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