Theorem ichreuopeq 47955

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 2744	. . . . 5 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝑝 = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩))
2	1	anbi1d 637	. . . 4 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
3	2	2exbidv 1931	. . 3 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
4		eqeq1 2744	. . . . 5 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → (𝑝 = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩))
5	4	anbi1d 637	. . . 4 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → ((𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
6	5	2exbidv 1931	. . 3 ⊢ (𝑝 = ⟨𝑣, 𝑤⟩ → (∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
7	3, 6	reuop 6251	. 2 ⊢ (∃!𝑝 ∈ (𝑋 × 𝑋)∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑥 ∈ 𝑋 ∃𝑦 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)))
8		nfich1 47929	. . . . . 6 ⊢ Ⅎ𝑎[𝑎⇄𝑏]𝜑
9		nfv 1921	. . . . . 6 ⊢ Ⅎ𝑎(𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)
10	8, 9	nfan 1906	. . . . 5 ⊢ Ⅎ𝑎([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
11		nfcv 2902	. . . . . . 7 ⊢ Ⅎ𝑎𝑋
12		nfe1 2161	. . . . . . . . 9 ⊢ Ⅎ𝑎∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
13		nfv 1921	. . . . . . . . 9 ⊢ Ⅎ𝑎⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩
14	12, 13	nfim 1903	. . . . . . . 8 ⊢ Ⅎ𝑎(∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
15	11, 14	nfralw 3287	. . . . . . 7 ⊢ Ⅎ𝑎∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
16	11, 15	nfralw 3287	. . . . . 6 ⊢ Ⅎ𝑎∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
17		nfe1 2161	. . . . . 6 ⊢ Ⅎ𝑎∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
18	16, 17	nfim 1903	. . . . 5 ⊢ Ⅎ𝑎(∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
19		nfich2 47930	. . . . . . 7 ⊢ Ⅎ𝑏[𝑎⇄𝑏]𝜑
20		nfv 1921	. . . . . . 7 ⊢ Ⅎ𝑏(𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)
21	19, 20	nfan 1906	. . . . . 6 ⊢ Ⅎ𝑏([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
22		nfcv 2902	. . . . . . . 8 ⊢ Ⅎ𝑏𝑋
23		nfe1 2161	. . . . . . . . . . 11 ⊢ Ⅎ𝑏∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
24	23	nfex 2333	. . . . . . . . . 10 ⊢ Ⅎ𝑏∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)
25		nfv 1921	. . . . . . . . . 10 ⊢ Ⅎ𝑏⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩
26	24, 25	nfim 1903	. . . . . . . . 9 ⊢ Ⅎ𝑏(∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
27	22, 26	nfralw 3287	. . . . . . . 8 ⊢ Ⅎ𝑏∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
28	22, 27	nfralw 3287	. . . . . . 7 ⊢ Ⅎ𝑏∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)
29		nfe1 2161	. . . . . . . 8 ⊢ Ⅎ𝑏∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
30	29	nfex 2333	. . . . . . 7 ⊢ Ⅎ𝑏∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)
31	28, 30	nfim 1903	. . . . . 6 ⊢ Ⅎ𝑏(∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
32		opeq12 4813	. . . . . . . . . . . . . 14 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ⟨𝑣, 𝑤⟩ = ⟨𝑦, 𝑥⟩)
33	32	eqeq1d 2742	. . . . . . . . . . . . 13 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩))
34	33	anbi1d 637	. . . . . . . . . . . 12 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ((⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
35	34	2exbidv 1931	. . . . . . . . . . 11 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
36	32	eqeq1d 2742	. . . . . . . . . . 11 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → (⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩))
37	35, 36	imbi12d 345	. . . . . . . . . 10 ⊢ ((𝑣 = 𝑦 ∧ 𝑤 = 𝑥) → ((∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) ↔ (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
38	37	rspc2gv 3577	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝑋 ∧ 𝑥 ∈ 𝑋) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
39	38	ancoms 459	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
40	39	adantl 482	. . . . . . 7 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → (∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩)))
41		simprr 778	. . . . . . . . . . 11 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ 𝑋)
42	41	adantr 481	. . . . . . . . . 10 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → 𝑦 ∈ 𝑋)
43		simpl 483	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → 𝑥 ∈ 𝑋)
44	43	adantl 482	. . . . . . . . . . . 12 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ 𝑋)
45	44	adantr 481	. . . . . . . . . . 11 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → 𝑥 ∈ 𝑋)
46		eqidd 2741	. . . . . . . . . . . 12 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩)
47		vex 3436	. . . . . . . . . . . . . . . . 17 ⊢ 𝑥 ∈ V
48		vex 3436	. . . . . . . . . . . . . . . . 17 ⊢ 𝑦 ∈ V
49	47, 48	opth 5423	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ↔ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏))
50		sbceq1a 3741	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑏 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑏]𝜑))
51	50	equcoms 2027	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑦 = 𝑏 → (𝜑 ↔ [𝑦 / 𝑏]𝜑))
52		sbceq1a 3741	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑎 = 𝑥 → ([𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
53	52	equcoms 2027	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝑎 → ([𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
54	51, 53	sylan9bbr 515	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑))
55		dfich2 47940	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ([𝑎⇄𝑏]𝜑 ↔ ∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
56		2sp 2198	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
57		sbsbc 3734	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ([𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑏]𝜑)
58	57	sbbii 2087	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
59		sbsbc 3734	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
60	58, 59	bitri 276	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑥 / 𝑎][𝑦 / 𝑏]𝜑)
61		sbsbc 3734	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ([𝑥 / 𝑏]𝜑 ↔ [𝑥 / 𝑏]𝜑)
62	61	sbbii 2087	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
63		sbsbc 3734	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
64	62, 63	bitri 276	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ([𝑦 / 𝑎][𝑥 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
65	56, 60, 64	3bitr3g 314	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (∀𝑥∀𝑦([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
66	55, 65	sylbi 218	. . . . . . . . . . . . . . . . . . . 20 ⊢ ([𝑎⇄𝑏]𝜑 → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
67	66	biimpd 230	. . . . . . . . . . . . . . . . . . 19 ⊢ ([𝑎⇄𝑏]𝜑 → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
68	67	adantr 481	. . . . . . . . . . . . . . . . . 18 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
69	68	com12 32	. . . . . . . . . . . . . . . . 17 ⊢ ([𝑥 / 𝑎][𝑦 / 𝑏]𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
70	54, 69	biimtrdi 254	. . . . . . . . . . . . . . . 16 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)))
71	49, 70	sylbi 218	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ → (𝜑 → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)))
72	71	imp 407	. . . . . . . . . . . . . 14 ⊢ ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑))
73	72	impcom 408	. . . . . . . . . . . . 13 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
74		sbccom 3810	. . . . . . . . . . . . 13 ⊢ ([𝑥 / 𝑏][𝑦 / 𝑎]𝜑 ↔ [𝑦 / 𝑎][𝑥 / 𝑏]𝜑)
75	73, 74	sylibr 235	. . . . . . . . . . . 12 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)
76	46, 75	jca 516	. . . . . . . . . . 11 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑))
77		nfcv 2902	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏𝑥
78		nfv 1921	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩
79		nfsbc1v 3750	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏[𝑥 / 𝑏][𝑦 / 𝑎]𝜑
80	78, 79	nfan 1906	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)
81		opeq2 4812	. . . . . . . . . . . . . 14 ⊢ (𝑏 = 𝑥 → ⟨𝑦, 𝑏⟩ = ⟨𝑦, 𝑥⟩)
82	81	eqeq2d 2751	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑥 → (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩))
83		sbceq1a 3741	. . . . . . . . . . . . 13 ⊢ (𝑏 = 𝑥 → ([𝑦 / 𝑎]𝜑 ↔ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑))
84	82, 83	anbi12d 638	. . . . . . . . . . . 12 ⊢ (𝑏 = 𝑥 → ((⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑)))
85	77, 80, 84	spcegf 3537	. . . . . . . . . . 11 ⊢ (𝑥 ∈ 𝑋 → ((⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑥⟩ ∧ [𝑥 / 𝑏][𝑦 / 𝑎]𝜑) → ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
86	45, 76, 85	sylc 65	. . . . . . . . . 10 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑))
87		nfcv 2902	. . . . . . . . . . 11 ⊢ Ⅎ𝑎𝑦
88		nfv 1921	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩
89		nfsbc1v 3750	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎[𝑦 / 𝑎]𝜑
90	88, 89	nfan 1906	. . . . . . . . . . . 12 ⊢ Ⅎ𝑎(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)
91	90	nfex 2333	. . . . . . . . . . 11 ⊢ Ⅎ𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)
92		opeq1 4811	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑦 → ⟨𝑎, 𝑏⟩ = ⟨𝑦, 𝑏⟩)
93	92	eqeq2d 2751	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑦 → (⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ↔ ⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩))
94		sbceq1a 3741	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑦 → (𝜑 ↔ [𝑦 / 𝑎]𝜑))
95	93, 94	anbi12d 638	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑦 → ((⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ (⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
96	95	exbidv 1928	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑦 → (∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ↔ ∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑)))
97	87, 91, 96	spcegf 3537	. . . . . . . . . 10 ⊢ (𝑦 ∈ 𝑋 → (∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑦, 𝑏⟩ ∧ [𝑦 / 𝑎]𝜑) → ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)))
98	42, 86, 97	sylc 65	. . . . . . . . 9 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑))
99		simpl 483	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑦 = 𝑥)
100		simprr 778	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑦 = 𝑏)
101		simpl 483	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → 𝑥 = 𝑎)
102	101	adantl 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑥 = 𝑎)
103	99, 100, 102	3eqtr3rd 2784	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) → 𝑎 = 𝑏)
104	103	anim1i 621	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑦 = 𝑥 ∧ (𝑥 = 𝑎 ∧ 𝑦 = 𝑏)) ∧ 𝜑) → (𝑎 = 𝑏 ∧ 𝜑))
105	104	exp31 420	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 = 𝑥 → ((𝑥 = 𝑎 ∧ 𝑦 = 𝑏) → (𝜑 → (𝑎 = 𝑏 ∧ 𝜑))))
106	49, 105	biimtrid 243	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑥 → (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ → (𝜑 → (𝑎 = 𝑏 ∧ 𝜑))))
107	106	impd 411	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑥 → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (𝑎 = 𝑏 ∧ 𝜑)))
108	48, 47	opth1 5422	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → 𝑦 = 𝑥)
109	107, 108	syl11 33	. . . . . . . . . . . . . 14 ⊢ ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → (𝑎 = 𝑏 ∧ 𝜑)))
110	109	adantl 482	. . . . . . . . . . . . 13 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → (𝑎 = 𝑏 ∧ 𝜑)))
111	110	imp 407	. . . . . . . . . . . 12 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → (𝑎 = 𝑏 ∧ 𝜑))
112	111	19.8ad 2194	. . . . . . . . . . 11 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
113	112	19.8ad 2194	. . . . . . . . . 10 ⊢ (((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) ∧ ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))
114	113	ex 413	. . . . . . . . 9 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → (⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩ → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
115	98, 114	embantd 59	. . . . . . . 8 ⊢ ((([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) ∧ (⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑)) → ((∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
116	115	ex 413	. . . . . . 7 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ((∃𝑎∃𝑏(⟨𝑦, 𝑥⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑦, 𝑥⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
117	40, 116	syl5d 73	. . . . . 6 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
118	21, 31, 117	exlimd 2230	. . . . 5 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
119	10, 18, 118	exlimd 2230	. . . 4 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → (∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑))))
120	119	impd 411	. . 3 ⊢ (([𝑎⇄𝑏]𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
121	120	rexlimdvva 3197	. 2 ⊢ ([𝑎⇄𝑏]𝜑 → (∃𝑥 ∈ 𝑋 ∃𝑦 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑥, 𝑦⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) ∧ ∀𝑣 ∈ 𝑋 ∀𝑤 ∈ 𝑋 (∃𝑎∃𝑏(⟨𝑣, 𝑤⟩ = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ⟨𝑣, 𝑤⟩ = ⟨𝑥, 𝑦⟩)) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))
122	7, 121	biimtrid 243	1 ⊢ ([𝑎⇄𝑏]𝜑 → (∃!𝑝 ∈ (𝑋 × 𝑋)∃𝑎∃𝑏(𝑝 = ⟨𝑎, 𝑏⟩ ∧ 𝜑) → ∃𝑎∃𝑏(𝑎 = 𝑏 ∧ 𝜑)))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396  ∀wal 1545   = wceq 1547  ∃wex 1786  [wsb 2073   ∈ wcel 2119  ∀wral 3054  ∃wrex 3064  ∃!wreu 3343  [wsbc 3730  ⟨cop 4568   × cxp 5623  [wich 47927

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-sep 5225  ax-pr 5369

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-sn 4563  df-pr 4565  df-op 4569  df-opab 5142  df-xp 5631  df-ich 47928

This theorem is referenced by: (None)