MK_PSELECT : (thm -> thm)
A |- !p. t1 = t2 -------------------------- MK_PSELECT A |- (@p. t1) = (@p. t2)