Theorem mopickr 39053

Description: "At most one" picks a variable value, eliminating an existential quantifier. The proof begins with references *2.21 (pm2.21 124) and *14.26 (eupickbi 2666) 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 1894	. . 3 ⊢ (∃𝑥(𝜑 ∧ 𝜓) ↔ ∃𝑥(𝜓 ∧ 𝜑))
2		moeu2 39052	. . . 4 ⊢ (∃*𝑥𝜓 ↔ (¬ ∃𝑥𝜓 ∨ ∃!𝑥𝜓))
3		19.8a 2220	. . . . . . . 8 ⊢ (𝜓 → ∃𝑥𝜓)
4	3	con3i 155	. . . . . . 7 ⊢ (¬ ∃𝑥𝜓 → ¬ 𝜓)
5		pm2.21 124	. . . . . . 7 ⊢ (¬ 𝜓 → (𝜓 → 𝜑))
6	4, 5	syl 18	. . . . . 6 ⊢ (¬ ∃𝑥𝜓 → (𝜓 → 𝜑))
7	6	a1d 26	. . . . 5 ⊢ (¬ ∃𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
8		eupickbi 2666	. . . . . 6 ⊢ (∃!𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) ↔ ∀𝑥(𝜓 → 𝜑)))
9		sp 2222	. . . . . 6 ⊢ (∀𝑥(𝜓 → 𝜑) → (𝜓 → 𝜑))
10	8, 9	biimtrdi 256	. . . . 5 ⊢ (∃!𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
11	7, 10	jaoi 871	. . . 4 ⊢ ((¬ ∃𝑥𝜓 ∨ ∃!𝑥𝜓) → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
12	2, 11	sylbi 220	. . 3 ⊢ (∃*𝑥𝜓 → (∃𝑥(𝜓 ∧ 𝜑) → (𝜓 → 𝜑)))
13	1, 12	biimtrid 245	. 2 ⊢ (∃*𝑥𝜓 → (∃𝑥(𝜑 ∧ 𝜓) → (𝜓 → 𝜑)))
14	13	imp 412	1 ⊢ ((∃*𝑥𝜓 ∧ ∃𝑥(𝜑 ∧ 𝜓)) → (𝜓 → 𝜑))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   ∨ wo 861  ∀wal 1568  ∃wex 1812  ∃*wmo 2567  ∃!weu 2598

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-10 2179  ax-11 2195  ax-12 2216

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-tru 1573  df-ex 1813  df-nf 1817  df-mo 2569  df-eu 2599

This theorem is used by: (None)