Theorem 2eu1v

Description: Double existential uniqueness. This theorem shows a condition under which a "naive" definition matches the correct one. Version of 2eu1 with x and y distinct, but not requiring ax-13 . (Contributed by NM, 3-Dec-2001) (Revised by Wolf Lammen, 2-Oct-2023)

	Ref	Expression
Assertion	2eu1v	⊢ ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃! 𝑦 𝜑 ↔ ( ∃! 𝑥 ∃ 𝑦 𝜑 ∧ ∃! 𝑦 ∃ 𝑥 𝜑 ) ) )

Proof

Step	Hyp	Ref	Expression
1		2eu2ex	⊢ ( ∃! 𝑥 ∃! 𝑦 𝜑 → ∃ 𝑥 ∃ 𝑦 𝜑 )
2		moeu	⊢ ( ∃* 𝑦 𝜑 ↔ ( ∃ 𝑦 𝜑 → ∃! 𝑦 𝜑 ) )
3	2	albii	⊢ ( ∀ 𝑥 ∃* 𝑦 𝜑 ↔ ∀ 𝑥 ( ∃ 𝑦 𝜑 → ∃! 𝑦 𝜑 ) )
4		euim	⊢ ( ( ∃ 𝑥 ∃ 𝑦 𝜑 ∧ ∀ 𝑥 ( ∃ 𝑦 𝜑 → ∃! 𝑦 𝜑 ) ) → ( ∃! 𝑥 ∃! 𝑦 𝜑 → ∃! 𝑥 ∃ 𝑦 𝜑 ) )
5	3 4	sylan2b	⊢ ( ( ∃ 𝑥 ∃ 𝑦 𝜑 ∧ ∀ 𝑥 ∃* 𝑦 𝜑 ) → ( ∃! 𝑥 ∃! 𝑦 𝜑 → ∃! 𝑥 ∃ 𝑦 𝜑 ) )
6	5	ex	⊢ ( ∃ 𝑥 ∃ 𝑦 𝜑 → ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃! 𝑦 𝜑 → ∃! 𝑥 ∃ 𝑦 𝜑 ) ) )
7	1 6	syl	⊢ ( ∃! 𝑥 ∃! 𝑦 𝜑 → ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃! 𝑦 𝜑 → ∃! 𝑥 ∃ 𝑦 𝜑 ) ) )
8	7	pm2.43b	⊢ ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃! 𝑦 𝜑 → ∃! 𝑥 ∃ 𝑦 𝜑 ) )
9		2euswapv	⊢ ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃ 𝑦 𝜑 → ∃! 𝑦 ∃ 𝑥 𝜑 ) )
10	8 9	syld	⊢ ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃! 𝑦 𝜑 → ∃! 𝑦 ∃ 𝑥 𝜑 ) )
11	8 10	jcad	⊢ ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃! 𝑦 𝜑 → ( ∃! 𝑥 ∃ 𝑦 𝜑 ∧ ∃! 𝑦 ∃ 𝑥 𝜑 ) ) )
12		2exeuv	⊢ ( ( ∃! 𝑥 ∃ 𝑦 𝜑 ∧ ∃! 𝑦 ∃ 𝑥 𝜑 ) → ∃! 𝑥 ∃! 𝑦 𝜑 )
13	11 12	impbid1	⊢ ( ∀ 𝑥 ∃* 𝑦 𝜑 → ( ∃! 𝑥 ∃! 𝑦 𝜑 ↔ ( ∃! 𝑥 ∃ 𝑦 𝜑 ∧ ∃! 𝑦 ∃ 𝑥 𝜑 ) ) )