ABS : term -> thm -> thm
A |- t1 = t2 ------------------------ ABS x [Where x is not free in A] A |- (\x.t1) = (\x.t2)
- let val m = Term `m:bool` in ABS m (REFL m) end; > val it = |- (\m. m) = (\m. m) : thm