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