Theorem xpf1o 6858

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 6180	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐶) → (1st ‘𝑢) ∈ 𝐴)
2	1	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → (1st ‘𝑢) ∈ 𝐴)
3		xpf1o.1	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ 𝐴 ↦ 𝑋):𝐴–1-1-onto→𝐵)
4		eqid 2187	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝐴 ↦ 𝑋) = (𝑥 ∈ 𝐴 ↦ 𝑋)
5	4	f1ompt 5680	. . . . . . . 8 ⊢ ((𝑥 ∈ 𝐴 ↦ 𝑋):𝐴–1-1-onto→𝐵 ↔ (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋))
6	3, 5	sylib 122	. . . . . . 7 ⊢ (𝜑 → (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 ∧ ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋))
7	6	simpld 112	. . . . . 6 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵)
8	7	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵)
9		nfcsb1v 3102	. . . . . . 7 ⊢ Ⅎ𝑥⦋(1st ‘𝑢) / 𝑥⦌𝑋
10	9	nfel1 2340	. . . . . 6 ⊢ Ⅎ𝑥⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵
11		csbeq1a 3078	. . . . . . 7 ⊢ (𝑥 = (1st ‘𝑢) → 𝑋 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋)
12	11	eleq1d 2256	. . . . . 6 ⊢ (𝑥 = (1st ‘𝑢) → (𝑋 ∈ 𝐵 ↔ ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵))
13	10, 12	rspc 2847	. . . . 5 ⊢ ((1st ‘𝑢) ∈ 𝐴 → (∀𝑥 ∈ 𝐴 𝑋 ∈ 𝐵 → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵))
14	2, 8, 13	sylc 62	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵)
15		xp2nd 6181	. . . . . 6 ⊢ (𝑢 ∈ (𝐴 × 𝐶) → (2nd ‘𝑢) ∈ 𝐶)
16	15	adantl 277	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → (2nd ‘𝑢) ∈ 𝐶)
17		xpf1o.2	. . . . . . . 8 ⊢ (𝜑 → (𝑦 ∈ 𝐶 ↦ 𝑌):𝐶–1-1-onto→𝐷)
18		eqid 2187	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝐶 ↦ 𝑌) = (𝑦 ∈ 𝐶 ↦ 𝑌)
19	18	f1ompt 5680	. . . . . . . 8 ⊢ ((𝑦 ∈ 𝐶 ↦ 𝑌):𝐶–1-1-onto→𝐷 ↔ (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 ∧ ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌))
20	17, 19	sylib 122	. . . . . . 7 ⊢ (𝜑 → (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 ∧ ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌))
21	20	simpld 112	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷)
22	21	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷)
23		nfcsb1v 3102	. . . . . . 7 ⊢ Ⅎ𝑦⦋(2nd ‘𝑢) / 𝑦⦌𝑌
24	23	nfel1 2340	. . . . . 6 ⊢ Ⅎ𝑦⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷
25		csbeq1a 3078	. . . . . . 7 ⊢ (𝑦 = (2nd ‘𝑢) → 𝑌 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)
26	25	eleq1d 2256	. . . . . 6 ⊢ (𝑦 = (2nd ‘𝑢) → (𝑌 ∈ 𝐷 ↔ ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷))
27	24, 26	rspc 2847	. . . . 5 ⊢ ((2nd ‘𝑢) ∈ 𝐶 → (∀𝑦 ∈ 𝐶 𝑌 ∈ 𝐷 → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷))
28	16, 22, 27	sylc 62	. . . 4 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷)
29		opelxpi 4670	. . . 4 ⊢ ((⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∈ 𝐵 ∧ ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ∈ 𝐷) → ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷))
30	14, 28, 29	syl2anc 411	. . 3 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐴 × 𝐶)) → ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷))
31	30	ralrimiva 2560	. 2 ⊢ (𝜑 → ∀𝑢 ∈ (𝐴 × 𝐶)⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷))
32	6	simprd 114	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑧 ∈ 𝐵 ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋)
33	32	r19.21bi 2575	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → ∃!𝑥 ∈ 𝐴 𝑧 = 𝑋)
34		reu6 2938	. . . . . . . . 9 ⊢ (∃!𝑥 ∈ 𝐴 𝑧 = 𝑋 ↔ ∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠))
35	33, 34	sylib 122	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐵) → ∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠))
36	20	simprd 114	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑤 ∈ 𝐷 ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌)
37	36	r19.21bi 2575	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐷) → ∃!𝑦 ∈ 𝐶 𝑤 = 𝑌)
38		reu6 2938	. . . . . . . . 9 ⊢ (∃!𝑦 ∈ 𝐶 𝑤 = 𝑌 ↔ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡))
39	37, 38	sylib 122	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝐷) → ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡))
40	35, 39	anim12dan 600	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → (∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)))
41		reeanv 2657	. . . . . . . 8 ⊢ (∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) ↔ (∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)))
42		pm4.38 605	. . . . . . . . . . . . . . 15 ⊢ (((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
43	42	ex 115	. . . . . . . . . . . . . 14 ⊢ ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ((𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
44	43	ralimdv 2555	. . . . . . . . . . . . 13 ⊢ ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
45	44	com12 30	. . . . . . . . . . . 12 ⊢ (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → ((𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
46	45	ralimdv 2555	. . . . . . . . . . 11 ⊢ (∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡) → (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
47	46	impcom 125	. . . . . . . . . 10 ⊢ ((∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
48	47	reximi 2584	. . . . . . . . 9 ⊢ (∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
49	48	reximi 2584	. . . . . . . 8 ⊢ (∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 (∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
50	41, 49	sylbir 135	. . . . . . 7 ⊢ ((∃𝑠 ∈ 𝐴 ∀𝑥 ∈ 𝐴 (𝑧 = 𝑋 ↔ 𝑥 = 𝑠) ∧ ∃𝑡 ∈ 𝐶 ∀𝑦 ∈ 𝐶 (𝑤 = 𝑌 ↔ 𝑦 = 𝑡)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
51	40, 50	syl 14	. . . . . 6 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
52		vex 2752	. . . . . . . . . . . . . . 15 ⊢ 𝑠 ∈ V
53		vex 2752	. . . . . . . . . . . . . . 15 ⊢ 𝑡 ∈ V
54	52, 53	op1std 6163	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (1st ‘𝑢) = 𝑠)
55	54	csbeq1d 3076	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 = ⦋𝑠 / 𝑥⦌𝑋)
56	55	eqeq2d 2199	. . . . . . . . . . . 12 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ↔ 𝑧 = ⦋𝑠 / 𝑥⦌𝑋))
57	52, 53	op2ndd 6164	. . . . . . . . . . . . . 14 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (2nd ‘𝑢) = 𝑡)
58	57	csbeq1d 3076	. . . . . . . . . . . . 13 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 = ⦋𝑡 / 𝑦⦌𝑌)
59	58	eqeq2d 2199	. . . . . . . . . . . 12 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 ↔ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌))
60	56, 59	anbi12d 473	. . . . . . . . . . 11 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → ((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ (𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
61		eqeq1 2194	. . . . . . . . . . 11 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (𝑢 = 𝑣 ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
62	60, 61	bibi12d 235	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑠, 𝑡⟩ → (((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
63	62	ralxp 4782	. . . . . . . . 9 ⊢ (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
64		nfv 1538	. . . . . . . . . 10 ⊢ Ⅎ𝑠∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣)
65		nfcv 2329	. . . . . . . . . . 11 ⊢ Ⅎ𝑥𝐶
66		nfcsb1v 3102	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑥⦋𝑠 / 𝑥⦌𝑋
67	66	nfeq2 2341	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥 𝑧 = ⦋𝑠 / 𝑥⦌𝑋
68		nfv 1538	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑥 𝑤 = ⦋𝑡 / 𝑦⦌𝑌
69	67, 68	nfan 1575	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥(𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)
70		nfv 1538	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥⟨𝑠, 𝑡⟩ = 𝑣
71	69, 70	nfbi 1599	. . . . . . . . . . 11 ⊢ Ⅎ𝑥((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)
72	65, 71	nfralxy 2525	. . . . . . . . . 10 ⊢ Ⅎ𝑥∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)
73		nfv 1538	. . . . . . . . . . . 12 ⊢ Ⅎ𝑡((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣)
74		nfv 1538	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦 𝑧 = 𝑋
75		nfcsb1v 3102	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑦⦋𝑡 / 𝑦⦌𝑌
76	75	nfeq2 2341	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑦 𝑤 = ⦋𝑡 / 𝑦⦌𝑌
77	74, 76	nfan 1575	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑦(𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)
78		nfv 1538	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑦⟨𝑥, 𝑡⟩ = 𝑣
79	77, 78	nfbi 1599	. . . . . . . . . . . 12 ⊢ Ⅎ𝑦((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣)
80		csbeq1a 3078	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑡 → 𝑌 = ⦋𝑡 / 𝑦⦌𝑌)
81	80	eqeq2d 2199	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → (𝑤 = 𝑌 ↔ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌))
82	81	anbi2d 464	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
83		opeq2 3791	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑡 → ⟨𝑥, 𝑦⟩ = ⟨𝑥, 𝑡⟩)
84	83	eqeq1d 2196	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑡 → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ ⟨𝑥, 𝑡⟩ = 𝑣))
85	82, 84	bibi12d 235	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑡 → (((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣)))
86	73, 79, 85	cbvral 2711	. . . . . . . . . . 11 ⊢ (∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣))
87		csbeq1a 3078	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑠 → 𝑋 = ⦋𝑠 / 𝑥⦌𝑋)
88	87	eqeq2d 2199	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑠 → (𝑧 = 𝑋 ↔ 𝑧 = ⦋𝑠 / 𝑥⦌𝑋))
89	88	anbi1d 465	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ (𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌)))
90		opeq1 3790	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑠 → ⟨𝑥, 𝑡⟩ = ⟨𝑠, 𝑡⟩)
91	90	eqeq1d 2196	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑠 → (⟨𝑥, 𝑡⟩ = 𝑣 ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
92	89, 91	bibi12d 235	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑠 → (((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣) ↔ ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
93	92	ralbidv 2487	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑠 → (∀𝑡 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑥, 𝑡⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
94	86, 93	bitrid 192	. . . . . . . . . 10 ⊢ (𝑥 = 𝑠 → (∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣)))
95	64, 72, 94	cbvral 2711	. . . . . . . . 9 ⊢ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑠 ∈ 𝐴 ∀𝑡 ∈ 𝐶 ((𝑧 = ⦋𝑠 / 𝑥⦌𝑋 ∧ 𝑤 = ⦋𝑡 / 𝑦⦌𝑌) ↔ ⟨𝑠, 𝑡⟩ = 𝑣))
96	63, 95	bitr4i 187	. . . . . . . 8 ⊢ (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣))
97		eqeq2 2197	. . . . . . . . . . 11 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ ⟨𝑥, 𝑦⟩ = ⟨𝑠, 𝑡⟩))
98		vex 2752	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
99		vex 2752	. . . . . . . . . . . 12 ⊢ 𝑦 ∈ V
100	98, 99	opth 4249	. . . . . . . . . . 11 ⊢ (⟨𝑥, 𝑦⟩ = ⟨𝑠, 𝑡⟩ ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))
101	97, 100	bitrdi 196	. . . . . . . . . 10 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (⟨𝑥, 𝑦⟩ = 𝑣 ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
102	101	bibi2d 232	. . . . . . . . 9 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
103	102	2ralbidv 2511	. . . . . . . 8 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ ⟨𝑥, 𝑦⟩ = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
104	96, 103	bitrid 192	. . . . . . 7 ⊢ (𝑣 = ⟨𝑠, 𝑡⟩ → (∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡))))
105	104	rexxp 4783	. . . . . 6 ⊢ (∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣) ↔ ∃𝑠 ∈ 𝐴 ∃𝑡 ∈ 𝐶 ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐶 ((𝑧 = 𝑋 ∧ 𝑤 = 𝑌) ↔ (𝑥 = 𝑠 ∧ 𝑦 = 𝑡)))
106	51, 105	sylibr 134	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣))
107		reu6 2938	. . . . 5 ⊢ (∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ ∃𝑣 ∈ (𝐴 × 𝐶)∀𝑢 ∈ (𝐴 × 𝐶)((𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌) ↔ 𝑢 = 𝑣))
108	106, 107	sylibr 134	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐵 ∧ 𝑤 ∈ 𝐷)) → ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
109	108	ralrimivva 2569	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐷 ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
110		eqeq1 2194	. . . . . 6 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ⟨𝑧, 𝑤⟩ = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩))
111		vex 2752	. . . . . . 7 ⊢ 𝑧 ∈ V
112		vex 2752	. . . . . . 7 ⊢ 𝑤 ∈ V
113	111, 112	opth 4249	. . . . . 6 ⊢ (⟨𝑧, 𝑤⟩ = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
114	110, 113	bitrdi 196	. . . . 5 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ (𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)))
115	114	reubidv 2671	. . . 4 ⊢ (𝑣 = ⟨𝑧, 𝑤⟩ → (∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌)))
116	115	ralxp 4782	. . 3 ⊢ (∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ↔ ∀𝑧 ∈ 𝐵 ∀𝑤 ∈ 𝐷 ∃!𝑢 ∈ (𝐴 × 𝐶)(𝑧 = ⦋(1st ‘𝑢) / 𝑥⦌𝑋 ∧ 𝑤 = ⦋(2nd ‘𝑢) / 𝑦⦌𝑌))
117	109, 116	sylibr 134	. 2 ⊢ (𝜑 → ∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩)
118		nfcv 2329	. . . . 5 ⊢ Ⅎ𝑧⟨𝑋, 𝑌⟩
119		nfcv 2329	. . . . 5 ⊢ Ⅎ𝑤⟨𝑋, 𝑌⟩
120		nfcsb1v 3102	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑧 / 𝑥⦌𝑋
121		nfcv 2329	. . . . . 6 ⊢ Ⅎ𝑥⦋𝑤 / 𝑦⦌𝑌
122	120, 121	nfop 3806	. . . . 5 ⊢ Ⅎ𝑥⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩
123		nfcv 2329	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑧 / 𝑥⦌𝑋
124		nfcsb1v 3102	. . . . . 6 ⊢ Ⅎ𝑦⦋𝑤 / 𝑦⦌𝑌
125	123, 124	nfop 3806	. . . . 5 ⊢ Ⅎ𝑦⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩
126		csbeq1a 3078	. . . . . 6 ⊢ (𝑥 = 𝑧 → 𝑋 = ⦋𝑧 / 𝑥⦌𝑋)
127		csbeq1a 3078	. . . . . 6 ⊢ (𝑦 = 𝑤 → 𝑌 = ⦋𝑤 / 𝑦⦌𝑌)
128		opeq12 3792	. . . . . 6 ⊢ ((𝑋 = ⦋𝑧 / 𝑥⦌𝑋 ∧ 𝑌 = ⦋𝑤 / 𝑦⦌𝑌) → ⟨𝑋, 𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
129	126, 127, 128	syl2an 289	. . . . 5 ⊢ ((𝑥 = 𝑧 ∧ 𝑦 = 𝑤) → ⟨𝑋, 𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
130	118, 119, 122, 125, 129	cbvmpo 5967	. . . 4 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩) = (𝑧 ∈ 𝐴, 𝑤 ∈ 𝐶 ↦ ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
131	111, 112	op1std 6163	. . . . . . 7 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → (1st ‘𝑢) = 𝑧)
132	131	csbeq1d 3076	. . . . . 6 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⦋(1st ‘𝑢) / 𝑥⦌𝑋 = ⦋𝑧 / 𝑥⦌𝑋)
133	111, 112	op2ndd 6164	. . . . . . 7 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → (2nd ‘𝑢) = 𝑤)
134	133	csbeq1d 3076	. . . . . 6 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⦋(2nd ‘𝑢) / 𝑦⦌𝑌 = ⦋𝑤 / 𝑦⦌𝑌)
135	132, 134	opeq12d 3798	. . . . 5 ⊢ (𝑢 = ⟨𝑧, 𝑤⟩ → ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ = ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
136	135	mpompt 5980	. . . 4 ⊢ (𝑢 ∈ (𝐴 × 𝐶) ↦ ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩) = (𝑧 ∈ 𝐴, 𝑤 ∈ 𝐶 ↦ ⟨⦋𝑧 / 𝑥⦌𝑋, ⦋𝑤 / 𝑦⦌𝑌⟩)
137	130, 136	eqtr4i 2211	. . 3 ⊢ (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩) = (𝑢 ∈ (𝐴 × 𝐶) ↦ ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩)
138	137	f1ompt 5680	. 2 ⊢ ((𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩):(𝐴 × 𝐶)–1-1-onto→(𝐵 × 𝐷) ↔ (∀𝑢 ∈ (𝐴 × 𝐶)⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩ ∈ (𝐵 × 𝐷) ∧ ∀𝑣 ∈ (𝐵 × 𝐷)∃!𝑢 ∈ (𝐴 × 𝐶)𝑣 = ⟨⦋(1st ‘𝑢) / 𝑥⦌𝑋, ⦋(2nd ‘𝑢) / 𝑦⦌𝑌⟩))
139	31, 117, 138	sylanbrc 417	1 ⊢ (𝜑 → (𝑥 ∈ 𝐴, 𝑦 ∈ 𝐶 ↦ ⟨𝑋, 𝑌⟩):(𝐴 × 𝐶)–1-1-onto→(𝐵 × 𝐷))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1363   ∈ wcel 2158  ∀wral 2465  ∃wrex 2466  ∃!wreu 2467  ⦋csb 3069  ⟨cop 3607   ↦ cmpt 4076   × cxp 4636  –1-1-onto→wf1o 5227  ‘cfv 5228   ∈ cmpo 5890  1^st c1st 6153  2^nd c2nd 6154

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 710  ax-5 1457  ax-7 1458  ax-gen 1459  ax-ie1 1503  ax-ie2 1504  ax-8 1514  ax-10 1515  ax-11 1516  ax-i12 1517  ax-bndl 1519  ax-4 1520  ax-17 1536  ax-i9 1540  ax-ial 1544  ax-i5r 1545  ax-13 2160  ax-14 2161  ax-ext 2169  ax-sep 4133  ax-pow 4186  ax-pr 4221  ax-un 4445

This theorem depends on definitions:  df-bi 117  df-3an 981  df-tru 1366  df-nf 1471  df-sb 1773  df-eu 2039  df-mo 2040  df-clab 2174  df-cleq 2180  df-clel 2183  df-nfc 2318  df-ral 2470  df-rex 2471  df-reu 2472  df-rab 2474  df-v 2751  df-sbc 2975  df-csb 3070  df-un 3145  df-in 3147  df-ss 3154  df-pw 3589  df-sn 3610  df-pr 3611  df-op 3613  df-uni 3822  df-iun 3900  df-br 4016  df-opab 4077  df-mpt 4078  df-id 4305  df-xp 4644  df-rel 4645  df-cnv 4646  df-co 4647  df-dm 4648  df-rn 4649  df-res 4650  df-ima 4651  df-iota 5190  df-fun 5230  df-fn 5231  df-f 5232  df-f1 5233  df-fo 5234  df-f1o 5235  df-fv 5236  df-oprab 5892  df-mpo 5893  df-1st 6155  df-2nd 6156

This theorem is referenced by:  xpen  6859