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