Theorem ichreuopeq 44813

Description: If the setvar variables are interchangeable in a wff, and there is a unique ordered pair fulfilling the wff, then both setvar variables must be equal. (Contributed by AV, 28-Aug-2023.)

Assertion

Ref	Expression
ichreuopeq	⊢ ([𝑎⇄𝑏]𝜑 → (∃!𝑝 ∈ (𝑋 × 𝑋)∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))

Distinct variable groups:   𝑋,𝑎,𝑏,𝑝   𝜑,𝑝

Allowed substitution hints:   𝜑(𝑎,𝑏)

Proof of Theorem ichreuopeq

Dummy variables 𝑣 𝑤 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqeq1 2742	. . . . 5 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝑝 = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩))
2	1	anbi1d 629	. . . 4 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
3	2	2exbidv 1928	. . 3 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
4		eqeq1 2742	. . . . 5 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → (𝑝 = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩))
5	4	anbi1d 629	. . . 4 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
6	5	2exbidv 1928	. . 3 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → (∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
7	3, 6	reuop 6185	. 2 ⊢ (∃!𝑝 ∈ (𝑋 × 𝑋)∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑥 ∈ 𝑋 ∃𝑦 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)))
8		nfich1 44787	. . . . . 6 ⊢ Ⅎ𝑎[𝑎⇄𝑏]𝜑
9		nfv 1918	. . . . . 6 ⊢ Ⅎ𝑎(𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)
10	8, 9	nfan 1903	. . . . 5 ⊢ Ⅎ𝑎([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
11		nfcv 2906	. . . . . . 7 ⊢ Ⅎ𝑎𝑋
12		nfe1 2149	. . . . . . . . 9 ⊢ Ⅎ𝑎∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
13		nfv 1918	. . . . . . . . 9 ⊢ Ⅎ𝑎⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩
14	12, 13	nfim 1900	. . . . . . . 8 ⊢ Ⅎ𝑎(∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
15	11, 14	nfralw 3149	. . . . . . 7 ⊢ Ⅎ𝑎∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
16	11, 15	nfralw 3149	. . . . . 6 ⊢ Ⅎ𝑎∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
17		nfe1 2149	. . . . . 6 ⊢ Ⅎ𝑎∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
18	16, 17	nfim 1900	. . . . 5 ⊢ Ⅎ𝑎(∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
19		nfich2 44788	. . . . . . 7 ⊢ Ⅎ𝑏[𝑎⇄𝑏]𝜑
20		nfv 1918	. . . . . . 7 ⊢ Ⅎ𝑏(𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)
21	19, 20	nfan 1903	. . . . . 6 ⊢ Ⅎ𝑏([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
22		nfcv 2906	. . . . . . . 8 ⊢ Ⅎ𝑏𝑋
23		nfe1 2149	. . . . . . . . . . 11 ⊢ Ⅎ𝑏∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
24	23	nfex 2322	. . . . . . . . . 10 ⊢ Ⅎ𝑏∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
25		nfv 1918	. . . . . . . . . 10 ⊢ Ⅎ𝑏⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩
26	24, 25	nfim 1900	. . . . . . . . 9 ⊢ Ⅎ𝑏(∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
27	22, 26	nfralw 3149	. . . . . . . 8 ⊢ Ⅎ𝑏∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
28	22, 27	nfralw 3149	. . . . . . 7 ⊢ Ⅎ𝑏∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
29		nfe1 2149	. . . . . . . 8 ⊢ Ⅎ𝑏∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
30	29	nfex 2322	. . . . . . 7 ⊢ Ⅎ𝑏∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
31	28, 30	nfim 1900	. . . . . 6 ⊢ Ⅎ𝑏(∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
32		opeq12 4803	. . . . . . . . . . . . . 14 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ⟨𝑣, 𝑤⟩ = ⟨𝑦, 𝑥⟩)
33	32	eqeq1d 2740	. . . . . . . . . . . . 13 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩))
34	33	anbi1d 629	. . . . . . . . . . . 12 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ((⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
35	34	2exbidv 1928	. . . . . . . . . . 11 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
36	32	eqeq1d 2740	. . . . . . . . . . 11 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩))
37	35, 36	imbi12d 344	. . . . . . . . . 10 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ((∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) ↔ (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
38	37	rspc2gv 3561	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝑋 ∧ 𝑥 ∈ 𝑋) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
39	38	ancoms 458	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
40	39	adantl 481	. . . . . . 7 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
41		simprr 769	. . . . . . . . . . 11 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ 𝑋)
42	41	adantr 480	. . . . . . . . . 10 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → 𝑦 ∈ 𝑋)
43		simpl 482	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → 𝑥 ∈ 𝑋)
44	43	adantl 481	. . . . . . . . . . . 12 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ 𝑋)
45	44	adantr 480	. . . . . . . . . . 11 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → 𝑥 ∈ 𝑋)
46		eqidd 2739	. . . . . . . . . . . 12 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩)
47		vex 3426	. . . . . . . . . . . . . . . . 17 ⊢ 𝑥 ∈ V
48		vex 3426	. . . . . . . . . . . . . . . . 17 ⊢ 𝑦 ∈ V
49	47, 48	opth 5385	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ↔ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏))
50		sbceq1a 3722	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑏]𝜑))
51	50	equcoms 2024	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (𝜑 ↔ [𝑦 / 𝑏]𝜑))
52		sbceq1a 3722	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑥 → ([𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
53	52	equcoms 2024	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → ([𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
54	51, 53	sylan9bbr 510	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
55		dfich2 44798	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ([𝑎⇄𝑏]𝜑 ↔ ∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
56		2sp 2181	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
57		sbsbc 3715	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ([𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑏]𝜑)
58	57	sbbii 2080	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
59		sbsbc 3715	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
60	58, 59	bitri 274	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
61		sbsbc 3715	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ([𝑥 / 𝑏]𝜑 ↔ [𝑥 / 𝑏]𝜑)
62	61	sbbii 2080	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
63		sbsbc 3715	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
64	62, 63	bitri 274	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
65	56, 60, 64	3bitr3g 312	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
66	55, 65	sylbi 216	. . . . . . . . . . . . . . . . . . . 20 ⊢ ([𝑎⇄𝑏]𝜑 → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
67	66	biimpd 228	. . . . . . . . . . . . . . . . . . 19 ⊢ ([𝑎⇄𝑏]𝜑 → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
68	67	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
69	68	com12 32	. . . . . . . . . . . . . . . . 17 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
70	54, 69	syl6bi 252	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)))
71	49, 70	sylbi 216	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ → (𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)))
72	71	imp 406	. . . . . . . . . . . . . 14 ⊢ ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
73	72	impcom 407	. . . . . . . . . . . . 13 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
74		sbccom 3800	. . . . . . . . . . . . 13 ⊢ ([𝑥 / 𝑏][𝑦 / 𝑎]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
75	73, 74	sylibr 233	. . . . . . . . . . . 12 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)
76	46, 75	jca 511	. . . . . . . . . . 11 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑))
77		nfcv 2906	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏𝑥
78		nfv 1918	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩
79		nfsbc1v 3731	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏[𝑥 / 𝑏][𝑦 / 𝑎]𝜑
80	78, 79	nfan 1903	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)
81		opeq2 4802	. . . . . . . . . . . . . 14 ⊢ (𝑏 = 𝑥 → ⟨𝑦, 𝑏⟩ = ⟨𝑦, 𝑥⟩)
82	81	eqeq2d 2749	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑥 → (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩))
83		sbceq1a 3722	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑥 → ([𝑦 / 𝑎]𝜑 ↔ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑))
84	82, 83	anbi12d 630	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑥 → ((⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)))
85	77, 80, 84	spcegf 3521	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝑋 → ((⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑) → ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
86	45, 76, 85	sylc 65	. . . . . . . . . 10 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑))
87		nfcv 2906	. . . . . . . . . . 11 ⊢ Ⅎ𝑎𝑦
88		nfv 1918	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩
89		nfsbc1v 3731	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎[𝑦 / 𝑎]𝜑
90	88, 89	nfan 1903	. . . . . . . . . . . 12 ⊢ Ⅎ𝑎(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)
91	90	nfex 2322	. . . . . . . . . . 11 ⊢ Ⅎ𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)
92		opeq1 4801	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑦 → ⟨𝑎, 𝑏⟩ = ⟨𝑦, 𝑏⟩)
93	92	eqeq2d 2749	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑦 → (⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩))
94		sbceq1a 3722	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑎]𝜑))
95	93, 94	anbi12d 630	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑦 → ((⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
96	95	exbidv 1925	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑦 → (∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
97	87, 91, 96	spcegf 3521	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝑋 → (∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑) → ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
98	42, 86, 97	sylc 65	. . . . . . . . 9 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑))
99		simpl 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑦 = 𝑥)
100		simprr 769	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑦 = 𝑏)
101		simpl 482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝑥 = 𝑎)
102	101	adantl 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑥 = 𝑎)
103	99, 100, 102	3eqtr3rd 2787	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑎 = 𝑏)
104	103	anim1i 614	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) ∧ 𝜑) → (𝑎 = 𝑏 ∧ 𝜑))
105	104	exp31 419	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑥 → ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 → (𝑎 = 𝑏 ∧ 𝜑))))
106	49, 105	syl5bi 241	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑥 → (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ → (𝜑 → (𝑎 = 𝑏 ∧ 𝜑))))
107	106	impd 410	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑥 → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (𝑎 = 𝑏 ∧ 𝜑)))
108	48, 47	opth1 5384	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → 𝑦 = 𝑥)
109	107, 108	syl11 33	. . . . . . . . . . . . . 14 ⊢ ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → (𝑎 = 𝑏 ∧ 𝜑)))
110	109	adantl 481	. . . . . . . . . . . . 13 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → (𝑎 = 𝑏 ∧ 𝜑)))
111	110	imp 406	. . . . . . . . . . . 12 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → (𝑎 = 𝑏 ∧ 𝜑))
112	111	19.8ad 2177	. . . . . . . . . . 11 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
113	112	19.8ad 2177	. . . . . . . . . 10 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
114	113	ex 412	. . . . . . . . 9 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
115	98, 114	embantd 59	. . . . . . . 8 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ((∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
116	115	ex 412	. . . . . . 7 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ((∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
117	40, 116	syl5d 73	. . . . . 6 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
118	21, 31, 117	exlimd 2214	. . . . 5 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
119	10, 18, 118	exlimd 2214	. . . 4 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
120	119	impd 410	. . 3 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
121	120	rexlimdvva 3222	. 2 ⊢ ([𝑎⇄𝑏]𝜑 → (∃𝑥 ∈ 𝑋 ∃𝑦 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
122	7, 121	syl5bi 241	1 ⊢ ([𝑎⇄𝑏]𝜑 → (∃!𝑝 ∈ (𝑋 × 𝑋)∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395  ∀wal 1537   = wceq 1539  ∃wex 1783  [wsb 2068   ∈ wcel 2108  ∀wral 3063  ∃wrex 3064  ∃!wreu 3065  [wsbc 3711  ⟨cop 4564   × cxp 5578  [wich 44785

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pr 5347

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ral 3068  df-rex 3069  df-reu 3070  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-nul 4254  df-if 4457  df-sn 4559  df-pr 4561  df-op 4565  df-opab 5133  df-xp 5586  df-ich 44786

This theorem is referenced by: (None)