Theorem ichreuopeq 48648

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 2764	. . . . 5 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝑝 = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩))
2	1	anbi1d 643	. . . 4 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
3	2	2exbidv 1956	. . 3 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
4		eqeq1 2764	. . . . 5 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → (𝑝 = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩))
5	4	anbi1d 643	. . . 4 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
6	5	2exbidv 1956	. . 3 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → (∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
7	3, 6	reuop 6296	. 2 ⊢ (∃!𝑝 ∈ (𝑋 × 𝑋)∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑥 ∈ 𝑋 ∃𝑦 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)))
8		nfich1 48622	. . . . . 6 ⊢ Ⅎ𝑎[𝑎⇄𝑏]𝜑
9		nfv 1946	. . . . . 6 ⊢ Ⅎ𝑎(𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)
10	8, 9	nfan 1931	. . . . 5 ⊢ Ⅎ𝑎([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
11		nfcv 2922	. . . . . . 7 ⊢ Ⅎ𝑎𝑋
12		nfe1 2186	. . . . . . . . 9 ⊢ Ⅎ𝑎∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
13		nfv 1946	. . . . . . . . 9 ⊢ Ⅎ𝑎⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩
14	12, 13	nfim 1928	. . . . . . . 8 ⊢ Ⅎ𝑎(∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
15	11, 14	nfralw 3309	. . . . . . 7 ⊢ Ⅎ𝑎∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
16	11, 15	nfralw 3309	. . . . . 6 ⊢ Ⅎ𝑎∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
17		nfe1 2186	. . . . . 6 ⊢ Ⅎ𝑎∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
18	16, 17	nfim 1928	. . . . 5 ⊢ Ⅎ𝑎(∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
19		nfich2 48623	. . . . . . 7 ⊢ Ⅎ𝑏[𝑎⇄𝑏]𝜑
20		nfv 1946	. . . . . . 7 ⊢ Ⅎ𝑏(𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)
21	19, 20	nfan 1931	. . . . . 6 ⊢ Ⅎ𝑏([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
22		nfcv 2922	. . . . . . . 8 ⊢ Ⅎ𝑏𝑋
23		nfe1 2186	. . . . . . . . . . 11 ⊢ Ⅎ𝑏∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
24	23	nfex 2354	. . . . . . . . . 10 ⊢ Ⅎ𝑏∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
25		nfv 1946	. . . . . . . . . 10 ⊢ Ⅎ𝑏⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩
26	24, 25	nfim 1928	. . . . . . . . 9 ⊢ Ⅎ𝑏(∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
27	22, 26	nfralw 3309	. . . . . . . 8 ⊢ Ⅎ𝑏∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
28	22, 27	nfralw 3309	. . . . . . 7 ⊢ Ⅎ𝑏∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
29		nfe1 2186	. . . . . . . 8 ⊢ Ⅎ𝑏∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
30	29	nfex 2354	. . . . . . 7 ⊢ Ⅎ𝑏∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
31	28, 30	nfim 1928	. . . . . 6 ⊢ Ⅎ𝑏(∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
32		opeq12 4841	. . . . . . . . . . . . . 14 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ⟨𝑣, 𝑤⟩ = ⟨𝑦, 𝑥⟩)
33	32	eqeq1d 2762	. . . . . . . . . . . . 13 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩))
34	33	anbi1d 643	. . . . . . . . . . . 12 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ((⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
35	34	2exbidv 1956	. . . . . . . . . . 11 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
36	32	eqeq1d 2762	. . . . . . . . . . 11 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩))
37	35, 36	imbi12d 347	. . . . . . . . . 10 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ((∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) ↔ (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
38	37	rspc2gv 3585	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝑋 ∧ 𝑥 ∈ 𝑋) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
39	38	ancoms 464	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
40	39	adantl 487	. . . . . . 7 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
41		simprr 785	. . . . . . . . . . 11 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ 𝑋)
42	41	adantr 486	. . . . . . . . . 10 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → 𝑦 ∈ 𝑋)
43		simpl 488	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → 𝑥 ∈ 𝑋)
44	43	adantl 487	. . . . . . . . . . . 12 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ 𝑋)
45	44	adantr 486	. . . . . . . . . . 11 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → 𝑥 ∈ 𝑋)
46		eqidd 2761	. . . . . . . . . . . 12 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩)
47		vex 3454	. . . . . . . . . . . . . . . . 17 ⊢ 𝑥 ∈ V
48		vex 3454	. . . . . . . . . . . . . . . . 17 ⊢ 𝑦 ∈ V
49	47, 48	opth 5444	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ↔ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏))
50		sbceq1a 3749	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑏]𝜑))
51	50	equcoms 2052	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (𝜑 ↔ [𝑦 / 𝑏]𝜑))
52		sbceq1a 3749	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑥 → ([𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
53	52	equcoms 2052	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → ([𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
54	51, 53	sylan9bbr 520	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
55		dfich2 48633	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ([𝑎⇄𝑏]𝜑 ↔ ∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
56		2sp 2222	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
57		sbsbc 3742	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ([𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑏]𝜑)
58	57	sbbii 2112	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
59		sbsbc 3742	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
60	58, 59	bitri 278	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
61		sbsbc 3742	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ([𝑥 / 𝑏]𝜑 ↔ [𝑥 / 𝑏]𝜑)
62	61	sbbii 2112	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
63		sbsbc 3742	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
64	62, 63	bitri 278	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
65	56, 60, 64	3bitr3g 316	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
66	55, 65	sylbi 220	. . . . . . . . . . . . . . . . . . . 20 ⊢ ([𝑎⇄𝑏]𝜑 → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
67	66	biimpd 232	. . . . . . . . . . . . . . . . . . 19 ⊢ ([𝑎⇄𝑏]𝜑 → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
68	67	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
69	68	com12 33	. . . . . . . . . . . . . . . . 17 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
70	54, 69	biimtrdi 256	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)))
71	49, 70	sylbi 220	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ → (𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)))
72	71	imp 412	. . . . . . . . . . . . . 14 ⊢ ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
73	72	impcom 413	. . . . . . . . . . . . 13 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
74		sbccom 3817	. . . . . . . . . . . . 13 ⊢ ([𝑥 / 𝑏][𝑦 / 𝑎]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
75	73, 74	sylibr 237	. . . . . . . . . . . 12 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)
76	46, 75	jca 521	. . . . . . . . . . 11 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑))
77		nfcv 2922	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏𝑥
78		nfv 1946	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩
79		nfsbc1v 3758	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏[𝑥 / 𝑏][𝑦 / 𝑎]𝜑
80	78, 79	nfan 1931	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)
81		opeq2 4840	. . . . . . . . . . . . . 14 ⊢ (𝑏 = 𝑥 → ⟨𝑦, 𝑏⟩ = ⟨𝑦, 𝑥⟩)
82	81	eqeq2d 2771	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑥 → (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩))
83		sbceq1a 3749	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑥 → ([𝑦 / 𝑎]𝜑 ↔ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑))
84	82, 83	anbi12d 644	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑥 → ((⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)))
85	77, 80, 84	spcegf 3546	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝑋 → ((⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑) → ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
86	45, 76, 85	sylc 66	. . . . . . . . . 10 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑))
87		nfcv 2922	. . . . . . . . . . 11 ⊢ Ⅎ𝑎𝑦
88		nfv 1946	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩
89		nfsbc1v 3758	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎[𝑦 / 𝑎]𝜑
90	88, 89	nfan 1931	. . . . . . . . . . . 12 ⊢ Ⅎ𝑎(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)
91	90	nfex 2354	. . . . . . . . . . 11 ⊢ Ⅎ𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)
92		opeq1 4839	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑦 → ⟨𝑎, 𝑏⟩ = ⟨𝑦, 𝑏⟩)
93	92	eqeq2d 2771	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑦 → (⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩))
94		sbceq1a 3749	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑎]𝜑))
95	93, 94	anbi12d 644	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑦 → ((⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
96	95	exbidv 1953	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑦 → (∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
97	87, 91, 96	spcegf 3546	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝑋 → (∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑) → ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
98	42, 86, 97	sylc 66	. . . . . . . . 9 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑))
99		simpl 488	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑦 = 𝑥)
100		simprr 785	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑦 = 𝑏)
101		simpl 488	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝑥 = 𝑎)
102	101	adantl 487	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑥 = 𝑎)
103	99, 100, 102	3eqtr3rd 2804	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑎 = 𝑏)
104	103	anim1i 627	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) ∧ 𝜑) → (𝑎 = 𝑏 ∧ 𝜑))
105	104	exp31 425	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑥 → ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 → (𝑎 = 𝑏 ∧ 𝜑))))
106	49, 105	biimtrid 245	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑥 → (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ → (𝜑 → (𝑎 = 𝑏 ∧ 𝜑))))
107	106	impd 416	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑥 → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (𝑎 = 𝑏 ∧ 𝜑)))
108	48, 47	opth1 5443	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → 𝑦 = 𝑥)
109	107, 108	syl11 34	. . . . . . . . . . . . . 14 ⊢ ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → (𝑎 = 𝑏 ∧ 𝜑)))
110	109	adantl 487	. . . . . . . . . . . . 13 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → (𝑎 = 𝑏 ∧ 𝜑)))
111	110	imp 412	. . . . . . . . . . . 12 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → (𝑎 = 𝑏 ∧ 𝜑))
112	111	19.8ad 2218	. . . . . . . . . . 11 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
113	112	19.8ad 2218	. . . . . . . . . 10 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
114	113	ex 418	. . . . . . . . 9 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
115	98, 114	embantd 60	. . . . . . . 8 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ((∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
116	115	ex 418	. . . . . . 7 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ((∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
117	40, 116	syl5d 74	. . . . . 6 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
118	21, 31, 117	exlimd 2254	. . . . 5 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
119	10, 18, 118	exlimd 2254	. . . 4 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
120	119	impd 416	. . 3 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
121	120	rexlimdvva 3219	. 2 ⊢ ([𝑎⇄𝑏]𝜑 → (∃𝑥 ∈ 𝑋 ∃𝑦 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
122	7, 121	biimtrid 245	1 ⊢ ([𝑎⇄𝑏]𝜑 → (∃!𝑝 ∈ (𝑋 × 𝑋)∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401  ∀wal 1567   = wceq 1569  ∃wex 1811  [wsb 2098   ∈ wcel 2144  ∀wral 3076  ∃wrex 3086  ∃!wreu 3363  [wsbc 3738  ⟨cop 4834   × cxp 5648  [wich 48620

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-sep 5248  ax-pr 5390

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-sn 4585  df-pr 4587  df-op 4835  df-opab 5167  df-xp 5656  df-ich 48621

This theorem is used by: (None)