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