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