FREEZE_THEN : thm_tactical
A0 ?- t ========= f (w |- w) A ?- t1
A0 ?- t =================== FREEZE_THEN f (A1 |- w) A - {w}, A1 ?- 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