Theorem moexex 2529

Description: "At most one" double quantification. (Contributed by NM, 3-Dec-2001.) (Proof shortened by Wolf Lammen, 28-Dec-2018.)

Hypothesis

Ref	Expression
moexex.1	⊢ Ⅎ𝑦𝜑

Assertion

Ref	Expression
moexex	⊢ ((∃*𝑥𝜑 ∧ ∀𝑥∃*𝑦𝜓) → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))

Proof of Theorem moexex

Step	Hyp	Ref	Expression
1		nfmo1 2469	. . . 4 ⊢ Ⅎ𝑥∃*𝑥𝜑
2		nfa1 2015	. . . . 5 ⊢ Ⅎ𝑥∀𝑥∃*𝑦𝜓
3		nfe1 2014	. . . . . 6 ⊢ Ⅎ𝑥∃𝑥(𝜑 ∧ 𝜓)
4	3	nfmo 2475	. . . . 5 ⊢ Ⅎ𝑥∃*𝑦∃𝑥(𝜑 ∧ 𝜓)
5	2, 4	nfim 1813	. . . 4 ⊢ Ⅎ𝑥(∀𝑥∃*𝑦𝜓 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))
6		moexex.1	. . . . . . 7 ⊢ Ⅎ𝑦𝜑
7	6	nfmo 2475	. . . . . 6 ⊢ Ⅎ𝑦∃*𝑥𝜑
8		mopick 2523	. . . . . . . 8 ⊢ ((∃*𝑥𝜑 ∧ ∃𝑥(𝜑 ∧ 𝜓)) → (𝜑 → 𝜓))
9	8	ex 449	. . . . . . 7 ⊢ (∃*𝑥𝜑 → (∃𝑥(𝜑 ∧ 𝜓) → (𝜑 → 𝜓)))
10	9	com23 84	. . . . . 6 ⊢ (∃*𝑥𝜑 → (𝜑 → (∃𝑥(𝜑 ∧ 𝜓) → 𝜓)))
11	7, 6, 10	alrimd 2071	. . . . 5 ⊢ (∃*𝑥𝜑 → (𝜑 → ∀𝑦(∃𝑥(𝜑 ∧ 𝜓) → 𝜓)))
12		moim 2507	. . . . . 6 ⊢ (∀𝑦(∃𝑥(𝜑 ∧ 𝜓) → 𝜓) → (∃*𝑦𝜓 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓)))
13	12	spsd 2045	. . . . 5 ⊢ (∀𝑦(∃𝑥(𝜑 ∧ 𝜓) → 𝜓) → (∀𝑥∃*𝑦𝜓 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓)))
14	11, 13	syl6 34	. . . 4 ⊢ (∃*𝑥𝜑 → (𝜑 → (∀𝑥∃*𝑦𝜓 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))))
15	1, 5, 14	exlimd 2074	. . 3 ⊢ (∃*𝑥𝜑 → (∃𝑥𝜑 → (∀𝑥∃*𝑦𝜓 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))))
16	6	nfex 2140	. . . . . . 7 ⊢ Ⅎ𝑦∃𝑥𝜑
17		exsimpl 1783	. . . . . . 7 ⊢ (∃𝑥(𝜑 ∧ 𝜓) → ∃𝑥𝜑)
18	16, 17	exlimi 2073	. . . . . 6 ⊢ (∃𝑦∃𝑥(𝜑 ∧ 𝜓) → ∃𝑥𝜑)
19		exmo 2483	. . . . . . 7 ⊢ (∃𝑦∃𝑥(𝜑 ∧ 𝜓) ∨ ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))
20	19	ori 389	. . . . . 6 ⊢ (¬ ∃𝑦∃𝑥(𝜑 ∧ 𝜓) → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))
21	18, 20	nsyl4 155	. . . . 5 ⊢ (¬ ∃*𝑦∃𝑥(𝜑 ∧ 𝜓) → ∃𝑥𝜑)
22	21	con1i 143	. . . 4 ⊢ (¬ ∃𝑥𝜑 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))
23	22	a1d 25	. . 3 ⊢ (¬ ∃𝑥𝜑 → (∀𝑥∃*𝑦𝜓 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓)))
24	15, 23	pm2.61d1 170	. 2 ⊢ (∃*𝑥𝜑 → (∀𝑥∃*𝑦𝜓 → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓)))
25	24	imp 444	1 ⊢ ((∃*𝑥𝜑 ∧ ∀𝑥∃*𝑦𝜓) → ∃*𝑦∃𝑥(𝜑 ∧ 𝜓))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 383  ∀wal 1473  ∃wex 1695  Ⅎwnf 1699  ∃*wmo 2459

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-tru 1478  df-ex 1696  df-nf 1701  df-eu 2462  df-mo 2463

This theorem is referenced by:  moexexv  2530  2moswap  2535