MK_EXISTS : (thm -> thm)
A |- !x. t1 = t2 -------------------------- MK_EXISTS A |- (?x. t1) = (?x. t2)