Theorem mopickr 38831

Description: "At most one" picks a variable value, eliminating an existential quantifier. The proof begins with references *2.21 (pm2.21 123) and *14.26 (eupickbi 2662) from [WhiteheadRussell] p. 104 and p. 183. (Contributed by Peter Mazsa, 18-Nov-2024.) (Proof modification is discouraged.)

Assertion

Ref	Expression
mopickr	⊢ ((∃*𝑥𝜓 ∧ ∃𝑥(𝜑 ∧ 𝜓)) → (𝜓 → 𝜑))

Proof of Theorem mopickr

Step	Hyp	Ref	Expression
1		exancom 1880	. . 3 ⊢ (∃𝑥(𝜑 ∧ 𝜓) ↔ ∃𝑥(𝜓 ∧ 𝜑))
2		moeu2 38830	. . . 4 ⊢ (∃*𝑥𝜓 ↔ (¬ ∃𝑥𝜓 ∨ ∃!𝑥𝜓))
3		19.8a 2215	. . . . . . . 8 ⊢ (𝜓 → ∃𝑥𝜓)
4	3	con3i 154	. . . . . . 7 ⊢ (¬ ∃𝑥𝜓 → ¬ 𝜓)
5		pm2.21 123	. . . . . . 7 ⊢ (¬ 𝜓 → (𝜓 → 𝜑))
6	4, 5	syl 17	. . . . . 6 ⊢ (¬ ∃𝑥𝜓 → (𝜓 → 𝜑))
7	6	a1d 25	. . . . 5 ⊢ (¬ ∃𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
8		eupickbi 2662	. . . . . 6 ⊢ (∃!𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) ↔ ∀𝑥(𝜓 → 𝜑)))
9		sp 2217	. . . . . 6 ⊢ (∀𝑥(𝜓 → 𝜑) → (𝜓 → 𝜑))
10	8, 9	biimtrdi 255	. . . . 5 ⊢ (∃!𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
11	7, 10	jaoi 868	. . . 4 ⊢ ((¬ ∃𝑥𝜓 ∨ ∃!𝑥𝜓) → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
12	2, 11	sylbi 219	. . 3 ⊢ (∃*𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
13	1, 12	biimtrid 244	. 2 ⊢ (∃*𝑥𝜓 → (∃𝑥(𝜑 ∧ 𝜓) → (𝜓 → 𝜑)))
14	13	imp 410	1 ⊢ ((∃*𝑥𝜓 ∧ ∃𝑥(𝜑 ∧ 𝜓)) → (𝜓 → 𝜑))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∨ wo 858  ∀wal 1557  ∃wex 1798  ∃*wmo 2563  ∃!weu 2594

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-10 2174  ax-11 2190  ax-12 2211

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-tru 1562  df-ex 1799  df-nf 1803  df-mo 2565  df-eu 2595

This theorem is referenced by: (None)