Theorem xpf1o 8410

Description: Construct a bijection on a Cartesian product given bijections on the factors. (Contributed by Mario Carneiro, 30-May-2015.)

Hypotheses

Ref	Expression
xpf1o.1	⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝑋):𝐴–1-1-onto→𝐵)
xpf1o.2	⊢ (𝜑 → (𝑦 ∈ 𝐶 ↦ 𝑌):𝐶–1-1-onto→𝐷)

Assertion

Ref	Expression
xpf1o	⊢ (𝜑 → (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩):(𝐴 × 𝐶)–1-1-onto→(𝐵 × 𝐷))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐶,𝑦   𝑦,𝑋   𝑥,𝐵   𝑦,𝐷   𝑥,𝑌

Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐵(𝑦)   𝐷(𝑥)   𝑋(𝑥)   𝑌(𝑦)

Proof of Theorem xpf1o

Dummy variables 𝑡 𝑠 𝑢 𝑣 𝑤 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		xp1st 7477	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐶) → (1st ‘𝑢) ∈ 𝐴)
2	1	adantl 475	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → (1st ‘𝑢) ∈ 𝐴)
3		xpf1o.1	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝑋):𝐴–1-1-onto→𝐵)
4		eqid 2778	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴 ↦ 𝑋) = (𝑥 ∈ 𝐴 ↦ 𝑋)
5	4	f1ompt 6645	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝐴 ↦ 𝑋):𝐴–1-1-onto→𝐵 ↔ (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋))
6	3, 5	sylib 210	. . . . . . 7 ⊢ (𝜑 → (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋))
7	6	simpld 490	. . . . . 6 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵)
8	7	adantr 474	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵)
9		nfcsb1v 3767	. . . . . . 7 ⊢ Ⅎ𝑥⦋(1st ‘𝑢) / 𝑥⦌𝑋
10	9	nfel1 2948	. . . . . 6 ⊢ Ⅎ𝑥⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵
11		csbeq1a 3760	. . . . . . 7 ⊢ (𝑥 = (1st ‘𝑢) → 𝑋 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋)
12	11	eleq1d 2844	. . . . . 6 ⊢ (𝑥 = (1st ‘𝑢) → (𝑋 ∈ 𝐵 ↔ ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵))
13	10, 12	rspc 3505	. . . . 5 ⊢ ((1st ‘𝑢) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵))
14	2, 8, 13	sylc 65	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵)
15		xp2nd 7478	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐶) → (2nd ‘𝑢) ∈ 𝐶)
16	15	adantl 475	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → (2nd ‘𝑢) ∈ 𝐶)
17		xpf1o.2	. . . . . . . 8 ⊢ (𝜑 → (𝑦 ∈ 𝐶 ↦ 𝑌):𝐶–1-1-onto→𝐷)
18		eqid 2778	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐶 ↦ 𝑌) = (𝑦 ∈ 𝐶 ↦ 𝑌)
19	18	f1ompt 6645	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐶 ↦ 𝑌):𝐶–1-1-onto→𝐷 ↔ (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 ∧ ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌))
20	17, 19	sylib 210	. . . . . . 7 ⊢ (𝜑 → (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 ∧ ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌))
21	20	simpld 490	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷)
22	21	adantr 474	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷)
23		nfcsb1v 3767	. . . . . . 7 ⊢ Ⅎ𝑦⦋(2nd ‘𝑢) / 𝑦⦌𝑌
24	23	nfel1 2948	. . . . . 6 ⊢ Ⅎ𝑦⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷
25		csbeq1a 3760	. . . . . . 7 ⊢ (𝑦 = (2nd ‘𝑢) → 𝑌 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)
26	25	eleq1d 2844	. . . . . 6 ⊢ (𝑦 = (2nd ‘𝑢) → (𝑌 ∈ 𝐷 ↔ ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷))
27	24, 26	rspc 3505	. . . . 5 ⊢ ((2nd ‘𝑢) ∈ 𝐶 → (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷))
28	16, 22, 27	sylc 65	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷)
29	14, 28	opelxpd 5393	. . 3 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷))
30	29	ralrimiva 3148	. 2 ⊢ (𝜑 → ∀𝑢 ∈ (𝐴 × 𝐶)⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷))
31	6	simprd 491	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋)
32	31	r19.21bi 3114	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋)
33		reu6 3607	. . . . . . . . 9 ⊢ (∃!𝑥 ∈ 𝐴 𝑧 = 𝑋 ↔ ∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠))
34	32, 33	sylib 210	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → ∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠))
35	20	simprd 491	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌)
36	35	r19.21bi 3114	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐷) → ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌)
37		reu6 3607	. . . . . . . . 9 ⊢ (∃!𝑦 ∈ 𝐶 𝑤 = 𝑌 ↔ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡))
38	36, 37	sylib 210	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐷) → ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡))
39	34, 38	anim12dan 612	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → (∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)))
40		reeanv 3293	. . . . . . . 8 ⊢ (∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) ↔ (∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)))
41		pm4.38 628	. . . . . . . . . . . . . . 15 ⊢ (((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
42	41	ex 403	. . . . . . . . . . . . . 14 ⊢ ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ((𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
43	42	ralimdv 3145	. . . . . . . . . . . . 13 ⊢ ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
44	43	com12 32	. . . . . . . . . . . 12 ⊢ (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
45	44	ralimdv 3145	. . . . . . . . . . 11 ⊢ (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
46	45	impcom 398	. . . . . . . . . 10 ⊢ ((∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
47	46	reximi 3192	. . . . . . . . 9 ⊢ (∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
48	47	reximi 3192	. . . . . . . 8 ⊢ (∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
49	40, 48	sylbir 227	. . . . . . 7 ⊢ ((∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
50	39, 49	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
51		vex 3401	. . . . . . . . . . . . . . 15 ⊢ 𝑠 ∈ V
52		vex 3401	. . . . . . . . . . . . . . 15 ⊢ 𝑡 ∈ V
53	51, 52	op1std 7455	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (1st ‘𝑢) = 𝑠)
54	53	csbeq1d 3758	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 = ⦋𝑠 / 𝑥⦌𝑋)
55	54	eqeq2d 2788	. . . . . . . . . . . 12 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ↔ 𝑧 = ⦋𝑠 / 𝑥⦌𝑋))
56	51, 52	op2ndd 7456	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (2nd ‘𝑢) = 𝑡)
57	56	csbeq1d 3758	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 = ⦋𝑡 / 𝑦⦌𝑌)
58	57	eqeq2d 2788	. . . . . . . . . . . 12 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ↔ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌))
59	55, 58	anbi12d 624	. . . . . . . . . . 11 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ (𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
60		eqeq1 2782	. . . . . . . . . . 11 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑢 = 𝑣 ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
61	59, 60	bibi12d 337	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
62	61	ralxp 5509	. . . . . . . . 9 ⊢ (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
63		nfv 1957	. . . . . . . . . 10 ⊢ Ⅎ𝑠∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣)
64		nfcv 2934	. . . . . . . . . . 11 ⊢ Ⅎ𝑥𝐶
65		nfcsb1v 3767	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑥⦋𝑠 / 𝑥⦌𝑋
66	65	nfeq2 2949	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥 𝑧 = ⦋𝑠 / 𝑥⦌𝑋
67		nfv 1957	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥 𝑤 = ⦋𝑡 / 𝑦⦌𝑌
68	66, 67	nfan 1946	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥(𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)
69		nfv 1957	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥⟨𝑠, 𝑡⟩ = 𝑣
70	68, 69	nfbi 1950	. . . . . . . . . . 11 ⊢ Ⅎ𝑥((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)
71	64, 70	nfral 3127	. . . . . . . . . 10 ⊢ Ⅎ𝑥∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)
72		nfv 1957	. . . . . . . . . . . 12 ⊢ Ⅎ𝑡((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣)
73		nfv 1957	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦 𝑧 = 𝑋
74		nfcsb1v 3767	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑦⦋𝑡 / 𝑦⦌𝑌
75	74	nfeq2 2949	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦 𝑤 = ⦋𝑡 / 𝑦⦌𝑌
76	73, 75	nfan 1946	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑦(𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)
77		nfv 1957	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑦⟨𝑥, 𝑡⟩ = 𝑣
78	76, 77	nfbi 1950	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣)
79		csbeq1a 3760	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑡 → 𝑌 = ⦋𝑡 / 𝑦⦌𝑌)
80	79	eqeq2d 2788	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → (𝑤 = 𝑌 ↔ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌))
81	80	anbi2d 622	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
82		opeq2 4637	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑡⟩)
83	82	eqeq1d 2780	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ ⟨𝑥, 𝑡⟩ = 𝑣))
84	81, 83	bibi12d 337	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑡 → (((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣)))
85	72, 78, 84	cbvral 3363	. . . . . . . . . . 11 ⊢ (∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣))
86		csbeq1a 3760	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑠 → 𝑋 = ⦋𝑠 / 𝑥⦌𝑋)
87	86	eqeq2d 2788	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑠 → (𝑧 = 𝑋 ↔ 𝑧 = ⦋𝑠 / 𝑥⦌𝑋))
88	87	anbi1d 623	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ (𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
89		opeq1 4636	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑠 → ⟨𝑥, 𝑡⟩ = ⟨𝑠, 𝑡⟩)
90	89	eqeq1d 2780	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → (⟨𝑥, 𝑡⟩ = 𝑣 ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
91	88, 90	bibi12d 337	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑠 → (((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣) ↔ ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
92	91	ralbidv 3168	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (∀𝑡 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
93	85, 92	syl5bb 275	. . . . . . . . . 10 ⊢ (𝑥 = 𝑠 → (∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
94	63, 71, 93	cbvral 3363	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
95	62, 94	bitr4i 270	. . . . . . . 8 ⊢ (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣))
96		eqeq2 2789	. . . . . . . . . . 11 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ ⟨𝑥, 𝑦⟩ = ⟨𝑠, 𝑡⟩))
97		vex 3401	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
98		vex 3401	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
99	97, 98	opth 5176	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑠, 𝑡⟩ ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))
100	96, 99	syl6bb 279	. . . . . . . . . 10 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
101	100	bibi2d 334	. . . . . . . . 9 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
102	101	2ralbidv 3171	. . . . . . . 8 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
103	95, 102	syl5bb 275	. . . . . . 7 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
104	103	rexxp 5510	. . . . . 6 ⊢ (∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
105	50, 104	sylibr 226	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣))
106		reu6 3607	. . . . 5 ⊢ (∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ ∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣))
107	105, 106	sylibr 226	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
108	107	ralrimivva 3153	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐷 ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
109		eqeq1 2782	. . . . . 6 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ⟨𝑧, 𝑤⟩ = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩))
110		vex 3401	. . . . . . 7 ⊢ 𝑧 ∈ V
111		vex 3401	. . . . . . 7 ⊢ 𝑤 ∈ V
112	110, 111	opth 5176	. . . . . 6 ⊢ (⟨𝑧, 𝑤⟩ = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
113	109, 112	syl6bb 279	. . . . 5 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)))
114	113	reubidv 3314	. . . 4 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)))
115	114	ralxp 5509	. . 3 ⊢ (∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐷 ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
116	108, 115	sylibr 226	. 2 ⊢ (𝜑 → ∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩)
117		nfcv 2934	. . . . 5 ⊢ Ⅎ𝑧⟨𝑋, 𝑌⟩
118		nfcv 2934	. . . . 5 ⊢ Ⅎ𝑤⟨𝑋, 𝑌⟩
119		nfcsb1v 3767	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑧 / 𝑥⦌𝑋
120		nfcv 2934	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑤 / 𝑦⦌𝑌
121	119, 120	nfop 4652	. . . . 5 ⊢ Ⅎ𝑥⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩
122		nfcv 2934	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑧 / 𝑥⦌𝑋
123		nfcsb1v 3767	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑤 / 𝑦⦌𝑌
124	122, 123	nfop 4652	. . . . 5 ⊢ Ⅎ𝑦⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩
125		csbeq1a 3760	. . . . . 6 ⊢ (𝑥 = 𝑧 → 𝑋 = ⦋𝑧 / 𝑥⦌𝑋)
126		csbeq1a 3760	. . . . . 6 ⊢ (𝑦 = 𝑤 → 𝑌 = ⦋𝑤 / 𝑦⦌𝑌)
127		opeq12 4638	. . . . . 6 ⊢ ((𝑋 = ⦋𝑧 / 𝑥⦌𝑋 ∧ 𝑌 = ⦋𝑤 / 𝑦⦌𝑌) → ⟨𝑋, 𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
128	125, 126, 127	syl2an 589	. . . . 5 ⊢ ((𝑥 = 𝑧 ∧ 𝑦 = 𝑤) → ⟨𝑋, 𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
129	117, 118, 121, 124, 128	cbvmpt2 7011	. . . 4 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩) = (𝑧 ∈ 𝐴, 𝑤 ∈ 𝐶 ↦ ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
130	110, 111	op1std 7455	. . . . . . 7 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → (1st ‘𝑢) = 𝑧)
131	130	csbeq1d 3758	. . . . . 6 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 = ⦋𝑧 / 𝑥⦌𝑋)
132	110, 111	op2ndd 7456	. . . . . . 7 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → (2nd ‘𝑢) = 𝑤)
133	132	csbeq1d 3758	. . . . . 6 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 = ⦋𝑤 / 𝑦⦌𝑌)
134	131, 133	opeq12d 4644	. . . . 5 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
135	134	mpt2mpt 7029	. . . 4 ⊢ (𝑢 ∈ (𝐴 × 𝐶) ↦ ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩) = (𝑧 ∈ 𝐴, 𝑤 ∈ 𝐶 ↦ ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
136	129, 135	eqtr4i 2805	. . 3 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩) = (𝑢 ∈ (𝐴 × 𝐶) ↦ ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩)
137	136	f1ompt 6645	. 2 ⊢ ((𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩):(𝐴 × 𝐶)–1-1-onto→(𝐵 × 𝐷) ↔ (∀𝑢 ∈ (𝐴 × 𝐶)⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷) ∧ ∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩))
138	30, 116, 137	sylanbrc 578	1 ⊢ (𝜑 → (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩):(𝐴 × 𝐶)–1-1-onto→(𝐵 × 𝐷))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 386   = wceq 1601   ∈ wcel 2107  ∀wral 3090  ∃wrex 3091  ∃!wreu 3092  ⦋csb 3751  ⟨cop 4404   ↦ cmpt 4965   × cxp 5353  –1-1-onto→wf1o 6134  ‘cfv 6135   ↦ cmpt2 6924  1^st c1st 7443  2^nd c2nd 7444

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2055  ax-8 2109  ax-9 2116  ax-10 2135  ax-11 2150  ax-12 2163  ax-13 2334  ax-ext 2754  ax-sep 5017  ax-nul 5025  ax-pow 5077  ax-pr 5138  ax-un 7226

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2551  df-eu 2587  df-clab 2764  df-cleq 2770  df-clel 2774  df-nfc 2921  df-ne 2970  df-ral 3095  df-rex 3096  df-reu 3097  df-rab 3099  df-v 3400  df-sbc 3653  df-csb 3752  df-dif 3795  df-un 3797  df-in 3799  df-ss 3806  df-nul 4142  df-if 4308  df-sn 4399  df-pr 4401  df-op 4405  df-uni 4672  df-iun 4755  df-br 4887  df-opab 4949  df-mpt 4966  df-id 5261  df-xp 5361  df-rel 5362  df-cnv 5363  df-co 5364  df-dm 5365  df-rn 5366  df-res 5367  df-ima 5368  df-iota 6099  df-fun 6137  df-fn 6138  df-f 6139  df-f1 6140  df-fo 6141  df-f1o 6142  df-fv 6143  df-oprab 6926  df-mpt2 6927  df-1st 7445  df-2nd 7446

This theorem is referenced by:  infxpenc  9174  pwfseqlem5  9820