PCHOOSEPairRules.PCHOOSE : term * thm -> thm -> thm
Eliminates paired existential quantification using deduction from a particular witness.
When applied to a term-theorem pair (q,A1 |- ?p. s) and
a second theorem of the form A2 u {s[q/p]} |- t, the
inference rule PCHOOSE produces the theorem
A1 u A2 |- t.
A1 |- ?p. s A2 u {s[q/p]} |- t
------------------------------------ PCHOOSE ("q",(A1 |- ?q. s))
A1 u A2 |- t
Where no variable in the paired variable structure q is
free in A1, A2 or t.
Fails unless the terms and theorems correspond as indicated above; in
particular q must have the same type as the pair
existentially quantified over, and must not contain any variable free in
A1, A2 or t.
Thm.CHOOSE, PairRules.PCHOOSE_TAC,
PairRules.PEXISTS, PairRules.PEXISTS_TAC,
PairRules.PSELECT_ELIM