FREEZE_THEN : thm_tactical
A ?- t
========= f (w |- w)
A ?- t1
A ?- t
========= FREEZE_THEN f (A1 |- w)
A ?- t1
th = |- !p. a < b /\ b < p ==> a < p
{b < c, a < b, a < c, !p. c < p ==> b < p, !a'. a' < a ==> a' < b}
?- (SUC a) <= c
FREEZE_THEN IMP_RES_TAC th
{b < c, a < b, a < c} ?- (SUC a) <= c