Theorem xpf1o 9137

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 8027	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐶) → (1st ‘𝑢) ∈ 𝐴)
2	1	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → (1st ‘𝑢) ∈ 𝐴)
3		xpf1o.1	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝑋):𝐴–1-1-onto→𝐵)
4		eqid 2766	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴 ↦ 𝑋) = (𝑥 ∈ 𝐴 ↦ 𝑋)
5	4	f1ompt 7113	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝐴 ↦ 𝑋):𝐴–1-1-onto→𝐵 ↔ (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋))
6	3, 5	sylib 221	. . . . . . 7 ⊢ (𝜑 → (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋))
7	6	simpld 500	. . . . . 6 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵)
8	7	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵)
9		nfcsb1v 3880	. . . . . . 7 ⊢ Ⅎ𝑥⦋(1st ‘𝑢) / 𝑥⦌𝑋
10	9	nfel1 2944	. . . . . 6 ⊢ Ⅎ𝑥⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵
11		csbeq1a 3870	. . . . . . 7 ⊢ (𝑥 = (1st ‘𝑢) → 𝑋 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋)
12	11	eleq1d 2851	. . . . . 6 ⊢ (𝑥 = (1st ‘𝑢) → (𝑋 ∈ 𝐵 ↔ ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵))
13	10, 12	rspc 3572	. . . . 5 ⊢ ((1st ‘𝑢) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵))
14	2, 8, 13	sylc 66	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵)
15		xp2nd 8028	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐶) → (2nd ‘𝑢) ∈ 𝐶)
16	15	adantl 487	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → (2nd ‘𝑢) ∈ 𝐶)
17		xpf1o.2	. . . . . . . 8 ⊢ (𝜑 → (𝑦 ∈ 𝐶 ↦ 𝑌):𝐶–1-1-onto→𝐷)
18		eqid 2766	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐶 ↦ 𝑌) = (𝑦 ∈ 𝐶 ↦ 𝑌)
19	18	f1ompt 7113	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐶 ↦ 𝑌):𝐶–1-1-onto→𝐷 ↔ (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 ∧ ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌))
20	17, 19	sylib 221	. . . . . . 7 ⊢ (𝜑 → (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 ∧ ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌))
21	20	simpld 500	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷)
22	21	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷)
23		nfcsb1v 3880	. . . . . . 7 ⊢ Ⅎ𝑦⦋(2nd ‘𝑢) / 𝑦⦌𝑌
24	23	nfel1 2944	. . . . . 6 ⊢ Ⅎ𝑦⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷
25		csbeq1a 3870	. . . . . . 7 ⊢ (𝑦 = (2nd ‘𝑢) → 𝑌 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)
26	25	eleq1d 2851	. . . . . 6 ⊢ (𝑦 = (2nd ‘𝑢) → (𝑌 ∈ 𝐷 ↔ ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷))
27	24, 26	rspc 3572	. . . . 5 ⊢ ((2nd ‘𝑢) ∈ 𝐶 → (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷))
28	16, 22, 27	sylc 66	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷)
29	14, 28	opelxpd 5705	. . 3 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷))
30	29	ralrimiva 3160	. 2 ⊢ (𝜑 → ∀𝑢 ∈ (𝐴 × 𝐶)⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷))
31	6	simprd 501	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋)
32	31	r19.21bi 3260	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋)
33		reu6 3692	. . . . . . . . 9 ⊢ (∃!𝑥 ∈ 𝐴 𝑧 = 𝑋 ↔ ∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠))
34	32, 33	sylib 221	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → ∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠))
35	20	simprd 501	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌)
36	35	r19.21bi 3260	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐷) → ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌)
37		reu6 3692	. . . . . . . . 9 ⊢ (∃!𝑦 ∈ 𝐶 𝑤 = 𝑌 ↔ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡))
38	36, 37	sylib 221	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐷) → ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡))
39	34, 38	anim12dan 631	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → (∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)))
40		reeanv 3240	. . . . . . . 8 ⊢ (∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) ↔ (∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)))
41		pm4.38 649	. . . . . . . . . . . . . . 15 ⊢ (((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
42	41	ex 418	. . . . . . . . . . . . . 14 ⊢ ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ((𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
43	42	ralimdv 3182	. . . . . . . . . . . . 13 ⊢ ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
44	43	com12 33	. . . . . . . . . . . 12 ⊢ (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
45	44	ralimdv 3182	. . . . . . . . . . 11 ⊢ (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
46	45	impcom 413	. . . . . . . . . 10 ⊢ ((∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
47	46	reximi 3106	. . . . . . . . 9 ⊢ (∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
48	47	reximi 3106	. . . . . . . 8 ⊢ (∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
49	40, 48	sylbir 238	. . . . . . 7 ⊢ ((∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
50	39, 49	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
51		vex 3462	. . . . . . . . . . . . . . 15 ⊢ 𝑠 ∈ V
52		vex 3462	. . . . . . . . . . . . . . 15 ⊢ 𝑡 ∈ V
53	51, 52	op1std 8005	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (1st ‘𝑢) = 𝑠)
54	53	csbeq1d 3860	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 = ⦋𝑠 / 𝑥⦌𝑋)
55	54	eqeq2d 2777	. . . . . . . . . . . 12 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ↔ 𝑧 = ⦋𝑠 / 𝑥⦌𝑋))
56	51, 52	op2ndd 8006	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (2nd ‘𝑢) = 𝑡)
57	56	csbeq1d 3860	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 = ⦋𝑡 / 𝑦⦌𝑌)
58	57	eqeq2d 2777	. . . . . . . . . . . 12 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ↔ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌))
59	55, 58	anbi12d 644	. . . . . . . . . . 11 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ (𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
60		eqeq1 2770	. . . . . . . . . . 11 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑢 = 𝑣 ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
61	59, 60	bibi12d 348	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
62	61	ralxp 5832	. . . . . . . . 9 ⊢ (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
63		nfv 1947	. . . . . . . . . 10 ⊢ Ⅎ𝑠∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣)
64		nfcv 2928	. . . . . . . . . . 11 ⊢ Ⅎ𝑥𝐶
65		nfcsb1v 3880	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑥⦋𝑠 / 𝑥⦌𝑋
66	65	nfeq2 2945	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥 𝑧 = ⦋𝑠 / 𝑥⦌𝑋
67		nfv 1947	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥 𝑤 = ⦋𝑡 / 𝑦⦌𝑌
68	66, 67	nfan 1932	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥(𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)
69		nfv 1947	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥⟨𝑠, 𝑡⟩ = 𝑣
70	68, 69	nfbi 1936	. . . . . . . . . . 11 ⊢ Ⅎ𝑥((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)
71	64, 70	nfralw 3315	. . . . . . . . . 10 ⊢ Ⅎ𝑥∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)
72		nfv 1947	. . . . . . . . . . . 12 ⊢ Ⅎ𝑡((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣)
73		nfv 1947	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦 𝑧 = 𝑋
74		nfcsb1v 3880	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑦⦋𝑡 / 𝑦⦌𝑌
75	74	nfeq2 2945	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦 𝑤 = ⦋𝑡 / 𝑦⦌𝑌
76	73, 75	nfan 1932	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑦(𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)
77		nfv 1947	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑦⟨𝑥, 𝑡⟩ = 𝑣
78	76, 77	nfbi 1936	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣)
79		csbeq1a 3870	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑡 → 𝑌 = ⦋𝑡 / 𝑦⦌𝑌)
80	79	eqeq2d 2777	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → (𝑤 = 𝑌 ↔ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌))
81	80	anbi2d 642	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
82		opeq2 4844	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑡⟩)
83	82	eqeq1d 2768	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ ⟨𝑥, 𝑡⟩ = 𝑣))
84	81, 83	bibi12d 348	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑡 → (((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣)))
85	72, 78, 84	cbvralw 3310	. . . . . . . . . . 11 ⊢ (∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣))
86		csbeq1a 3870	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑠 → 𝑋 = ⦋𝑠 / 𝑥⦌𝑋)
87	86	eqeq2d 2777	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑠 → (𝑧 = 𝑋 ↔ 𝑧 = ⦋𝑠 / 𝑥⦌𝑋))
88	87	anbi1d 643	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ (𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
89		opeq1 4843	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑠 → ⟨𝑥, 𝑡⟩ = ⟨𝑠, 𝑡⟩)
90	89	eqeq1d 2768	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → (⟨𝑥, 𝑡⟩ = 𝑣 ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
91	88, 90	bibi12d 348	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑠 → (((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣) ↔ ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
92	91	ralbidv 3191	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (∀𝑡 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
93	85, 92	bitrid 286	. . . . . . . . . 10 ⊢ (𝑥 = 𝑠 → (∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
94	63, 71, 93	cbvralw 3310	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
95	62, 94	bitr4i 281	. . . . . . . 8 ⊢ (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣))
96		eqeq2 2778	. . . . . . . . . . 11 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ ⟨𝑥, 𝑦⟩ = ⟨𝑠, 𝑡⟩))
97		vex 3462	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
98		vex 3462	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
99	97, 98	opth 5463	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑠, 𝑡⟩ ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))
100	96, 99	bitrdi 290	. . . . . . . . . 10 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
101	100	bibi2d 345	. . . . . . . . 9 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
102	101	2ralbidv 3232	. . . . . . . 8 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
103	95, 102	bitrid 286	. . . . . . 7 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
104	103	rexxp 5833	. . . . . 6 ⊢ (∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
105	50, 104	sylibr 237	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣))
106		reu6 3692	. . . . 5 ⊢ (∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ ∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣))
107	105, 106	sylibr 237	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
108	107	ralrimivva 3211	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐷 ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
109		eqeq1 2770	. . . . . 6 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ⟨𝑧, 𝑤⟩ = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩))
110		vex 3462	. . . . . . 7 ⊢ 𝑧 ∈ V
111		vex 3462	. . . . . . 7 ⊢ 𝑤 ∈ V
112	110, 111	opth 5463	. . . . . 6 ⊢ (⟨𝑧, 𝑤⟩ = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
113	109, 112	bitrdi 290	. . . . 5 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)))
114	113	reubidv 3388	. . . 4 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)))
115	114	ralxp 5832	. . 3 ⊢ (∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐷 ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
116	108, 115	sylibr 237	. 2 ⊢ (𝜑 → ∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩)
117		nfcv 2928	. . . . 5 ⊢ Ⅎ𝑧⟨𝑋, 𝑌⟩
118		nfcv 2928	. . . . 5 ⊢ Ⅎ𝑤⟨𝑋, 𝑌⟩
119		nfcsb1v 3880	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑧 / 𝑥⦌𝑋
120		nfcv 2928	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑤 / 𝑦⦌𝑌
121	119, 120	nfop 4859	. . . . 5 ⊢ Ⅎ𝑥⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩
122		nfcv 2928	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑧 / 𝑥⦌𝑋
123		nfcsb1v 3880	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑤 / 𝑦⦌𝑌
124	122, 123	nfop 4859	. . . . 5 ⊢ Ⅎ𝑦⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩
125		csbeq1a 3870	. . . . . 6 ⊢ (𝑥 = 𝑧 → 𝑋 = ⦋𝑧 / 𝑥⦌𝑋)
126		csbeq1a 3870	. . . . . 6 ⊢ (𝑦 = 𝑤 → 𝑌 = ⦋𝑤 / 𝑦⦌𝑌)
127		opeq12 4845	. . . . . 6 ⊢ ((𝑋 = ⦋𝑧 / 𝑥⦌𝑋 ∧ 𝑌 = ⦋𝑤 / 𝑦⦌𝑌) → ⟨𝑋, 𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
128	125, 126, 127	syl2an 608	. . . . 5 ⊢ ((𝑥 = 𝑧 ∧ 𝑦 = 𝑤) → ⟨𝑋, 𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
129	117, 118, 121, 124, 128	cbvmpo 7517	. . . 4 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩) = (𝑧 ∈ 𝐴, 𝑤 ∈ 𝐶 ↦ ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
130	110, 111	op1std 8005	. . . . . . 7 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → (1st ‘𝑢) = 𝑧)
131	130	csbeq1d 3860	. . . . . 6 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 = ⦋𝑧 / 𝑥⦌𝑋)
132	110, 111	op2ndd 8006	. . . . . . 7 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → (2nd ‘𝑢) = 𝑤)
133	132	csbeq1d 3860	. . . . . 6 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 = ⦋𝑤 / 𝑦⦌𝑌)
134	131, 133	opeq12d 4851	. . . . 5 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
135	134	mpompt 7537	. . . 4 ⊢ (𝑢 ∈ (𝐴 × 𝐶) ↦ ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩) = (𝑧 ∈ 𝐴, 𝑤 ∈ 𝐶 ↦ ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
136	129, 135	eqtr4i 2792	. . 3 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩) = (𝑢 ∈ (𝐴 × 𝐶) ↦ ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩)
137	136	f1ompt 7113	. 2 ⊢ ((𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩):(𝐴 × 𝐶)–1-1-onto→(𝐵 × 𝐷) ↔ (∀𝑢 ∈ (𝐴 × 𝐶)⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷) ∧ ∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩))
138	30, 116, 137	sylanbrc 595	1 ⊢ (𝜑 → (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩):(𝐴 × 𝐶)–1-1-onto→(𝐵 × 𝐷))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3082  ∃wrex 3092  ∃!wreu 3370  ⦋csb 3856  ⟨cop 4600   ↦ cmpt 5197   × cxp 5664  –1-1-onto→wf1o 6542  ‘cfv 6543   ∈ cmpo 7425  1^st c1st 7993  2^nd c2nd 7994

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-sep 5262  ax-nul 5274  ax-pr 5409  ax-un 7745

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-oprab 7427  df-mpo 7428  df-1st 7995  df-2nd 7996

This theorem is used by:  infxpenc  10021  pwfseqlem5  10666