Given a theorem-tactic ttac and a goal (A,t), STRIP_GOAL_THEN removes one
outermost occurrence of one of the connectives !, ==>, ~ or /\ from the
conclusion of the goal t.  If t is a universally quantified term, then
STRIP_GOAL_THEN strips off the quantifier:
      A ?- !x.u
   ==============  STRIP_GOAL_THEN ttac
     A ?- u[x'/x]
      A ?- v /\ w
   =================  STRIP_GOAL_THEN ttac
    A ?- v   A ?- w
      A ?- v
  ===============  ttac (u |- u)
     A' ?- v'
      A ?- u ==> v
  ====================  STRIP_GOAL_THEN ttac
        A' ?- v'