MK_PAIR : thm * thm -> thm
A1 |- a = x A2 |- b = y --------------------------- MK_PAIR A1 u A2 |- (a,b) = (x,y)