Given a goal (A,t), PSTRIP_TAC 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_TAC strips off the
quantifier. Note that PSTRIP_TAC will strip off paired quantifications.
     A ?- !p. u
   ==============  PSTRIP_TAC
    A ?- u[p'/p]
      A ?- v /\ w
   =================  PSTRIP_TAC
    A ?- v   A ?- w
    A ?- v1 /\ ... /\ vn ==> v            A ?- v1 \/ ... \/ vn ==> v
   ============================        =================================
       A u {v1,...,vn} ?- v             A u {v1} ?- v ... A u {vn} ?- v
     A ?- (?p. w) ==> v
   =====================
    A u {w[p'/p]} ?- v