Theorem opreu2reuALT 32764

Description: Correspondence between uniqueness of ordered pairs and double restricted existential uniqueness quantification. Alternate proof of one direction only, use opreu2reurex 6296 instead. (Contributed by Thierry Arnoux, 4-Jul-2023.) (Proof modification is discouraged.) (New usage is discouraged.)

Hypothesis

Ref	Expression
opsbc2ie.a	⊢ (𝑝 = ⟨𝑎, 𝑏⟩ → (𝜑 ↔ 𝜒))

Assertion

Ref	Expression
opreu2reuALT	⊢ ((∃!𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ ∃!𝑏 ∈ 𝐵 ∃𝑎 ∈ 𝐴 𝜒) → ∃!𝑝 ∈ (𝐴 × 𝐵)𝜑)

Distinct variable groups:   𝑎,𝑏,𝑝   𝜑,𝑎,𝑏   𝐴,𝑎,𝑏,𝑝   𝐵,𝑎,𝑏,𝑝   𝜒,𝑎,𝑏,𝑝

Allowed substitution hint:   𝜑(𝑝)

Proof of Theorem opreu2reuALT

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

Step	Hyp	Ref	Expression
1		2reu4 4488	. 2 ⊢ ((∃!𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ ∃!𝑏 ∈ 𝐵 ∃𝑎 ∈ 𝐴 𝜒) ↔ (∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))))
2		simpllr 787	. . . . . 6 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → 𝑥 ∈ 𝐴)
3		simplr 780	. . . . . 6 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → 𝑦 ∈ 𝐵)
4		opelxpi 5699	. . . . . 6 ⊢ ((𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐵) → ⟨𝑥, 𝑦⟩ ∈ (𝐴 × 𝐵))
5	2, 3, 4	syl2anc 595	. . . . 5 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → ⟨𝑥, 𝑦⟩ ∈ (𝐴 × 𝐵))
6		nfre1 3296	. . . . . . . . 9 ⊢ Ⅎ𝑎∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒
7		nfv 1941	. . . . . . . . 9 ⊢ Ⅎ𝑎 𝑥 ∈ 𝐴
8	6, 7	nfan 1926	. . . . . . . 8 ⊢ Ⅎ𝑎(∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴)
9		nfv 1941	. . . . . . . 8 ⊢ Ⅎ𝑎 𝑦 ∈ 𝐵
10	8, 9	nfan 1926	. . . . . . 7 ⊢ Ⅎ𝑎((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵)
11		nfra1 3295	. . . . . . 7 ⊢ Ⅎ𝑎∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))
12	10, 11	nfan 1926	. . . . . 6 ⊢ Ⅎ𝑎(((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)))
13		nfcv 2931	. . . . . . 7 ⊢ Ⅎ𝑎𝑦
14		nfsbc1v 3771	. . . . . . 7 ⊢ Ⅎ𝑎[𝑥 / 𝑎]𝜒
15	13, 14	nfsbc 3776	. . . . . 6 ⊢ Ⅎ𝑎[𝑦 / 𝑏][𝑥 / 𝑎]𝜒
16		nfcv 2931	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏𝐴
17		nfre1 3296	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏∃𝑏 ∈ 𝐵 𝜒
18	16, 17	nfrexw 3319	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒
19		nfv 1941	. . . . . . . . . . . 12 ⊢ Ⅎ𝑏 𝑥 ∈ 𝐴
20	18, 19	nfan 1926	. . . . . . . . . . 11 ⊢ Ⅎ𝑏(∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴)
21		nfv 1941	. . . . . . . . . . 11 ⊢ Ⅎ𝑏 𝑦 ∈ 𝐵
22	20, 21	nfan 1926	. . . . . . . . . 10 ⊢ Ⅎ𝑏((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵)
23		nfra1 3295	. . . . . . . . . . 11 ⊢ Ⅎ𝑏∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))
24	16, 23	nfral 3369	. . . . . . . . . 10 ⊢ Ⅎ𝑏∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))
25	22, 24	nfan 1926	. . . . . . . . 9 ⊢ Ⅎ𝑏(((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)))
26		nfv 1941	. . . . . . . . 9 ⊢ Ⅎ𝑏 𝑎 ∈ 𝐴
27	25, 26	nfan 1926	. . . . . . . 8 ⊢ Ⅎ𝑏((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴)
28	27, 17	nfan 1926	. . . . . . 7 ⊢ Ⅎ𝑏(((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ ∃𝑏 ∈ 𝐵 𝜒)
29		nfsbc1v 3771	. . . . . . 7 ⊢ Ⅎ𝑏[𝑦 / 𝑏][𝑥 / 𝑎]𝜒
30		rspa 3260	. . . . . . . . . . . 12 ⊢ ((∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)) ∧ 𝑎 ∈ 𝐴) → ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)))
31	30	ad5ant23 771	. . . . . . . . . . 11 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)))
32		simplr 780	. . . . . . . . . . 11 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → 𝑏 ∈ 𝐵)
33		simpr 489	. . . . . . . . . . 11 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → 𝜒)
34		rspa 3260	. . . . . . . . . . . 12 ⊢ ((∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)) ∧ 𝑏 ∈ 𝐵) → (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)))
35	34	imp 411	. . . . . . . . . . 11 ⊢ (((∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))
36	31, 32, 33, 35	syl21anc 850	. . . . . . . . . 10 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))
37	36	simprd 500	. . . . . . . . 9 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → 𝑏 = 𝑦)
38	36	simpld 499	. . . . . . . . . 10 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → 𝑎 = 𝑥)
39		sbceq1a 3762	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑥 → (𝜒 ↔ [𝑥 / 𝑎]𝜒))
40	39	biimpa 481	. . . . . . . . . 10 ⊢ ((𝑎 = 𝑥 ∧ 𝜒) → [𝑥 / 𝑎]𝜒)
41	38, 33, 40	syl2anc 595	. . . . . . . . 9 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → [𝑥 / 𝑎]𝜒)
42		sbceq1a 3762	. . . . . . . . . 10 ⊢ (𝑏 = 𝑦 → ([𝑥 / 𝑎]𝜒 ↔ [𝑦 / 𝑏][𝑥 / 𝑎]𝜒))
43	42	biimpa 481	. . . . . . . . 9 ⊢ ((𝑏 = 𝑦 ∧ [𝑥 / 𝑎]𝜒) → [𝑦 / 𝑏][𝑥 / 𝑎]𝜒)
44	37, 41, 43	syl2anc 595	. . . . . . . 8 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → [𝑦 / 𝑏][𝑥 / 𝑎]𝜒)
45	44	adantllr 731	. . . . . . 7 ⊢ ((((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ ∃𝑏 ∈ 𝐵 𝜒) ∧ 𝑏 ∈ 𝐵) ∧ 𝜒) → [𝑦 / 𝑏][𝑥 / 𝑎]𝜒)
46		simpr 489	. . . . . . 7 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ ∃𝑏 ∈ 𝐵 𝜒) → ∃𝑏 ∈ 𝐵 𝜒)
47	28, 29, 45, 46	r19.29af2 3279	. . . . . 6 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑎 ∈ 𝐴) ∧ ∃𝑏 ∈ 𝐵 𝜒) → [𝑦 / 𝑏][𝑥 / 𝑎]𝜒)
48		simplll 786	. . . . . 6 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → ∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒)
49	12, 15, 47, 48	r19.29af2 3279	. . . . 5 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → [𝑦 / 𝑏][𝑥 / 𝑎]𝜒)
50		1st2nd2 8025	. . . . . . . . 9 ⊢ (𝑝 ∈ (𝐴 × 𝐵) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
51	50	ad2antlr 739	. . . . . . . 8 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → 𝑝 = ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩)
52		nfv 1941	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑎 𝑝 ∈ (𝐴 × 𝐵)
53	12, 52	nfan 1926	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑎((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵))
54		nfv 1941	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑎𝜑
55	53, 54	nfan 1926	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎(((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑)
56		nfv 1941	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑏 𝑝 ∈ (𝐴 × 𝐵)
57	25, 56	nfan 1926	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑏((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵))
58		nfv 1941	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑏𝜑
59	57, 58	nfan 1926	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏(((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑)
60		nfv 1941	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑎(𝜑 → ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦))
61		nfv 1941	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑏(𝜑 → ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦))
62		xp1st 8018	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ (𝐴 × 𝐵) → (1st ‘𝑝) ∈ 𝐴)
63	62	ad2antlr 739	. . . . . . . . . . . . 13 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → (1st ‘𝑝) ∈ 𝐴)
64		xp2nd 8019	. . . . . . . . . . . . . 14 ⊢ (𝑝 ∈ (𝐴 × 𝐵) → (2nd ‘𝑝) ∈ 𝐵)
65	64	ad2antlr 739	. . . . . . . . . . . . 13 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → (2nd ‘𝑝) ∈ 𝐵)
66		eqcom 2776	. . . . . . . . . . . . . . . . 17 ⊢ ((1st ‘𝑝) = 𝑎 ↔ 𝑎 = (1st ‘𝑝))
67		eqcom 2776	. . . . . . . . . . . . . . . . 17 ⊢ ((2nd ‘𝑝) = 𝑏 ↔ 𝑏 = (2nd ‘𝑝))
68		eqopi 8022	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑝 ∈ (𝐴 × 𝐵) ∧ ((1st ‘𝑝) = 𝑎 ∧ (2nd ‘𝑝) = 𝑏)) → 𝑝 = ⟨𝑎, 𝑏⟩)
69		opsbc2ie.a	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑝 = ⟨𝑎, 𝑏⟩ → (𝜑 ↔ 𝜒))
70	68, 69	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑝 ∈ (𝐴 × 𝐵) ∧ ((1st ‘𝑝) = 𝑎 ∧ (2nd ‘𝑝) = 𝑏)) → (𝜑 ↔ 𝜒))
71	70	bicomd 226	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑝 ∈ (𝐴 × 𝐵) ∧ ((1st ‘𝑝) = 𝑎 ∧ (2nd ‘𝑝) = 𝑏)) → (𝜒 ↔ 𝜑))
72	71	ancoms 463	. . . . . . . . . . . . . . . . . 18 ⊢ ((((1st ‘𝑝) = 𝑎 ∧ (2nd ‘𝑝) = 𝑏) ∧ 𝑝 ∈ (𝐴 × 𝐵)) → (𝜒 ↔ 𝜑))
73	72	ex 417	. . . . . . . . . . . . . . . . 17 ⊢ (((1st ‘𝑝) = 𝑎 ∧ (2nd ‘𝑝) = 𝑏) → (𝑝 ∈ (𝐴 × 𝐵) → (𝜒 ↔ 𝜑)))
74	66, 67, 73	syl2anbr 610	. . . . . . . . . . . . . . . 16 ⊢ ((𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝)) → (𝑝 ∈ (𝐴 × 𝐵) → (𝜒 ↔ 𝜑)))
75	74	impcom 412	. . . . . . . . . . . . . . 15 ⊢ ((𝑝 ∈ (𝐴 × 𝐵) ∧ (𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝))) → (𝜒 ↔ 𝜑))
76	75	ad4ant24 766	. . . . . . . . . . . . . 14 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) ∧ (𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝))) → (𝜒 ↔ 𝜑))
77		simpl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝)) → 𝑎 = (1st ‘𝑝))
78	77	eqeq1d 2771	. . . . . . . . . . . . . . . 16 ⊢ ((𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝)) → (𝑎 = 𝑥 ↔ (1st ‘𝑝) = 𝑥))
79		simpr 489	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝)) → 𝑏 = (2nd ‘𝑝))
80	79	eqeq1d 2771	. . . . . . . . . . . . . . . 16 ⊢ ((𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝)) → (𝑏 = 𝑦 ↔ (2nd ‘𝑝) = 𝑦))
81	78, 80	anbi12d 643	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝)) → ((𝑎 = 𝑥 ∧ 𝑏 = 𝑦) ↔ ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦)))
82	81	adantl 486	. . . . . . . . . . . . . 14 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) ∧ (𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝))) → ((𝑎 = 𝑥 ∧ 𝑏 = 𝑦) ↔ ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦)))
83	76, 82	imbi12d 347	. . . . . . . . . . . . 13 ⊢ (((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) ∧ (𝑎 = (1st ‘𝑝) ∧ 𝑏 = (2nd ‘𝑝))) → ((𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)) ↔ (𝜑 → ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦))))
84		simpllr 787	. . . . . . . . . . . . 13 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦)))
85	55, 59, 60, 61, 63, 65, 83, 84	rspc2daf 32754	. . . . . . . . . . . 12 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → (𝜑 → ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦)))
86	85	com12 33	. . . . . . . . . . 11 ⊢ (𝜑 → ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦)))
87	86	anabsi7 683	. . . . . . . . . 10 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → ((1st ‘𝑝) = 𝑥 ∧ (2nd ‘𝑝) = 𝑦))
88	87	simpld 499	. . . . . . . . 9 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → (1st ‘𝑝) = 𝑥)
89	87	simprd 500	. . . . . . . . 9 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → (2nd ‘𝑝) = 𝑦)
90	88, 89	opeq12d 4848	. . . . . . . 8 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → ⟨(1st ‘𝑝), (2nd ‘𝑝)⟩ = ⟨𝑥, 𝑦⟩)
91	51, 90	eqtrd 2804	. . . . . . 7 ⊢ ((((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) ∧ 𝜑) → 𝑝 = ⟨𝑥, 𝑦⟩)
92	91	ex 417	. . . . . 6 ⊢ (((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) ∧ 𝑝 ∈ (𝐴 × 𝐵)) → (𝜑 → 𝑝 = ⟨𝑥, 𝑦⟩))
93	92	ralrimiva 3163	. . . . 5 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → ∀𝑝 ∈ (𝐴 × 𝐵)(𝜑 → 𝑝 = ⟨𝑥, 𝑦⟩))
94	5, 49, 93	3jca 1144	. . . 4 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → (⟨𝑥, 𝑦⟩ ∈ (𝐴 × 𝐵) ∧ [𝑦 / 𝑏][𝑥 / 𝑎]𝜒 ∧ ∀𝑝 ∈ (𝐴 × 𝐵)(𝜑 → 𝑝 = ⟨𝑥, 𝑦⟩)))
95	69	opsbc2ie 32763	. . . . 5 ⊢ (𝑝 = ⟨𝑥, 𝑦⟩ → (𝜑 ↔ [𝑦 / 𝑏][𝑥 / 𝑎]𝜒))
96	95	eqreu 3699	. . . 4 ⊢ ((⟨𝑥, 𝑦⟩ ∈ (𝐴 × 𝐵) ∧ [𝑦 / 𝑏][𝑥 / 𝑎]𝜒 ∧ ∀𝑝 ∈ (𝐴 × 𝐵)(𝜑 → 𝑝 = ⟨𝑥, 𝑦⟩)) → ∃!𝑝 ∈ (𝐴 × 𝐵)𝜑)
97	94, 96	syl 18	. . 3 ⊢ ((((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐵) ∧ ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → ∃!𝑝 ∈ (𝐴 × 𝐵)𝜑)
98	97	r19.29ffa 32759	. 2 ⊢ ((∃𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ ∃𝑥 ∈ 𝐴 ∃𝑦 ∈ 𝐵 ∀𝑎 ∈ 𝐴 ∀𝑏 ∈ 𝐵 (𝜒 → (𝑎 = 𝑥 ∧ 𝑏 = 𝑦))) → ∃!𝑝 ∈ (𝐴 × 𝐵)𝜑)
99	1, 98	sylbi 220	1 ⊢ ((∃!𝑎 ∈ 𝐴 ∃𝑏 ∈ 𝐵 𝜒 ∧ ∃!𝑏 ∈ 𝐵 ∃𝑎 ∈ 𝐴 𝜒) → ∃!𝑝 ∈ (𝐴 × 𝐵)𝜑)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149  ∀wral 3085  ∃wrex 3095  ∃!wreu 3373  [wsbc 3751  ⟨cop 4598   × cxp 5660  ‘cfv 6537  1^st c1st 7984  2^nd c2nd 7985

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-13 2410  ax-ext 2741  ax-sep 5259  ax-nul 5271  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3375  df-reu 3376  df-rab 3423  df-v 3463  df-sbc 3752  df-csb 3860  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-nul 4293  df-if 4491  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-br 5112  df-opab 5176  df-mpt 5195  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-iota 6493  df-fun 6539  df-fv 6545  df-1st 7986  df-2nd 7987

This theorem is referenced by: (None)