PCHOOSE_THEN : thm_tactical
    A' |- ?p. t
and a goal, CHOOSE_THEN applies the tactic ttac (t[p'/p] |- t[p'/p]) to the goal, where p' is a variant of the pair p chosen to have no components free in the assumption list of the goal. Thus if:
    A ?- s1
   =========  ttac (t[q'/q] |- t[q'/q])
    B ?- s2
    A ?- s1
   ==========  CHOOSE_THEN ttac (A' |- ?q. t)
    B ?- s2