SELECT_EQ : (term -> thm -> thm)
A |- t1 = t2 ------------------------ SELECT_EQ "x" [where x is not free in A] A |- (@x.t1) = (@x.t2)
th = |- (x MOD 2 = 0) = (?y. x = 2 * y)A theorem giving the equivalence of the epsilon abstraction of each form is obtained:
#SELECT_EQ "x:num" th;; |- (@x. x MOD 2 = 0) = (@x. ?y. x = 2 * y)