Theorem xpmapenlem 6827

Description: Lemma for xpmapen 6828. (Contributed by NM, 1-May-2004.) (Revised by Mario Carneiro, 16-Nov-2014.)

Hypotheses

Ref	Expression
xpmapen.1	⊢ 𝐴 ∈ V
xpmapen.2	⊢ 𝐵 ∈ V
xpmapen.3	⊢ 𝐶 ∈ V
xpmapenlem.4	⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧)))
xpmapenlem.5	⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧)))
xpmapenlem.6	⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)

Assertion

Ref	Expression
xpmapenlem	⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ≈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))

Distinct variable groups:   𝑥,𝑦,𝑧,𝐴   𝑥,𝐵,𝑦,𝑧   𝑥,𝐶,𝑦,𝑧   𝑦,𝐷,𝑧   𝑦,𝑅,𝑧   𝑥,𝑆,𝑧

Allowed substitution hints:   𝐷(𝑥)   𝑅(𝑥)   𝑆(𝑦)

Proof of Theorem xpmapenlem

Step	Hyp	Ref	Expression
1		fnmap 6633	. . 3 ⊢ ↑𝑚 Fn (V × V)
2		xpmapen.1	. . . 4 ⊢ 𝐴 ∈ V
3		xpmapen.2	. . . 4 ⊢ 𝐵 ∈ V
4	2, 3	xpex 4726	. . 3 ⊢ (𝐴 × 𝐵) ∈ V
5		xpmapen.3	. . 3 ⊢ 𝐶 ∈ V
6		fnovex 5886	. . 3 ⊢ (( ↑𝑚 Fn (V × V) ∧ (𝐴 × 𝐵) ∈ V ∧ 𝐶 ∈ V) → ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V)
7	1, 4, 5, 6	mp3an 1332	. 2 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V
8		fnovex 5886	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐴 ∈ V ∧ 𝐶 ∈ V) → (𝐴 ↑𝑚 𝐶) ∈ V)
9	1, 2, 5, 8	mp3an 1332	. . 3 ⊢ (𝐴 ↑𝑚 𝐶) ∈ V
10		fnovex 5886	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐵 ∈ V ∧ 𝐶 ∈ V) → (𝐵 ↑𝑚 𝐶) ∈ V)
11	1, 3, 5, 10	mp3an 1332	. . 3 ⊢ (𝐵 ↑𝑚 𝐶) ∈ V
12	9, 11	xpex 4726	. 2 ⊢ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∈ V
13	4, 5	elmap 6655	. . . . . . 7 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
14		ffvelrn 5629	. . . . . . 7 ⊢ ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
15	13, 14	sylanb 282	. . . . . 6 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
16		xp1st 6144	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
17	15, 16	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
18		xpmapenlem.4	. . . . 5 ⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧)))
19	17, 18	fmptd 5650	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷:𝐶⟶𝐴)
20	2, 5	elmap 6655	. . . 4 ⊢ (𝐷 ∈ (𝐴 ↑𝑚 𝐶) ↔ 𝐷:𝐶⟶𝐴)
21	19, 20	sylibr 133	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
22		xp2nd 6145	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
23	15, 22	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
24		xpmapenlem.5	. . . . 5 ⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧)))
25	23, 24	fmptd 5650	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅:𝐶⟶𝐵)
26	3, 5	elmap 6655	. . . 4 ⊢ (𝑅 ∈ (𝐵 ↑𝑚 𝐶) ↔ 𝑅:𝐶⟶𝐵)
27	25, 26	sylibr 133	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
28		opelxpi 4643	. . 3 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
29	21, 27, 28	syl2anc 409	. 2 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
30		xp1st 6144	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶))
31	2, 5	elmap 6655	. . . . . . 7 ⊢ ((1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶) ↔ (1st ‘𝑦):𝐶⟶𝐴)
32	30, 31	sylib 121	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦):𝐶⟶𝐴)
33	32	ffvelrnda 5631	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) ∈ 𝐴)
34		xp2nd 6145	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶))
35	3, 5	elmap 6655	. . . . . . 7 ⊢ ((2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶) ↔ (2nd ‘𝑦):𝐶⟶𝐵)
36	34, 35	sylib 121	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦):𝐶⟶𝐵)
37	36	ffvelrnda 5631	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) ∈ 𝐵)
38		opelxpi 4643	. . . . 5 ⊢ ((((1st ‘𝑦)‘𝑧) ∈ 𝐴 ∧ ((2nd ‘𝑦)‘𝑧) ∈ 𝐵) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
39	33, 37, 38	syl2anc 409	. . . 4 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
40		xpmapenlem.6	. . . 4 ⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
41	39, 40	fmptd 5650	. . 3 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
42	4, 5	elmap 6655	. . 3 ⊢ (𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
43	41, 42	sylibr 133	. 2 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
44		1st2nd2 6154	. . . . 5 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
45	44	ad2antlr 486	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
46	32	feqmptd 5549	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
47	46	ad2antlr 486	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
48		simplr 525	. . . . . . . . . . . 12 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → 𝑥 = 𝑆)
49	48	fveq1d 5498	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = (𝑆‘𝑧))
50		vex 2733	. . . . . . . . . . . . . . . 16 ⊢ 𝑦 ∈ V
51		1stexg 6146	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (1st ‘𝑦) ∈ V)
52	50, 51	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (1st ‘𝑦) ∈ V
53		vex 2733	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
54	52, 53	fvex 5516	. . . . . . . . . . . . . 14 ⊢ ((1st ‘𝑦)‘𝑧) ∈ V
55		2ndexg 6147	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (2nd ‘𝑦) ∈ V)
56	50, 55	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘𝑦) ∈ V
57	56, 53	fvex 5516	. . . . . . . . . . . . . 14 ⊢ ((2nd ‘𝑦)‘𝑧) ∈ V
58	54, 57	opex 4214	. . . . . . . . . . . . 13 ⊢ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ V
59	40	fvmpt2 5579	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐶 ∧ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ V) → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
60	58, 59	mpan2 423	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝐶 → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
61	60	adantl 275	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
62	49, 61	eqtrd 2203	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
63	62	fveq2d 5500	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
64	54, 57	op1st 6125	. . . . . . . . 9 ⊢ (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((1st ‘𝑦)‘𝑧)
65	63, 64	eqtrdi 2219	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = ((1st ‘𝑦)‘𝑧))
66	65	mpteq2dva 4079	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
67	18, 66	eqtrid 2215	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
68	47, 67	eqtr4d 2206	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = 𝐷)
69	36	feqmptd 5549	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
70	69	ad2antlr 486	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
71	62	fveq2d 5500	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
72	54, 57	op2nd 6126	. . . . . . . . 9 ⊢ (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((2nd ‘𝑦)‘𝑧)
73	71, 72	eqtrdi 2219	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = ((2nd ‘𝑦)‘𝑧))
74	73	mpteq2dva 4079	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
75	24, 74	eqtrid 2215	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
76	70, 75	eqtr4d 2206	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = 𝑅)
77	68, 76	opeq12d 3773	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩ = ⟨𝐷, 𝑅⟩)
78	45, 77	eqtrd 2203	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
79		simpll 524	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
80	79, 13	sylib 121	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
81	80	feqmptd 5549	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
82		simpr 109	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
83	82	fveq2d 5500	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = (1st ‘⟨𝐷, 𝑅⟩))
84	21	ad2antrr 485	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
85	27	ad2antrr 485	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
86		op1stg 6129	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
87	84, 85, 86	syl2anc 409	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
88	83, 87	eqtrd 2203	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = 𝐷)
89	88	fveq1d 5498	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1st ‘𝑦)‘𝑧) = (𝐷‘𝑧))
90		vex 2733	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
91	90, 53	fvex 5516	. . . . . . . . . . 11 ⊢ (𝑥‘𝑧) ∈ V
92		1stexg 6146	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (1st ‘(𝑥‘𝑧)) ∈ V)
93	91, 92	ax-mp 5	. . . . . . . . . 10 ⊢ (1st ‘(𝑥‘𝑧)) ∈ V
94	18	fvmpt2 5579	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (1st ‘(𝑥‘𝑧)) ∈ V) → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
95	93, 94	mpan2 423	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
96	89, 95	sylan9eq 2223	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) = (1st ‘(𝑥‘𝑧)))
97	82	fveq2d 5500	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = (2nd ‘⟨𝐷, 𝑅⟩))
98		op2ndg 6130	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
99	84, 85, 98	syl2anc 409	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
100	97, 99	eqtrd 2203	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = 𝑅)
101	100	fveq1d 5498	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2nd ‘𝑦)‘𝑧) = (𝑅‘𝑧))
102		2ndexg 6147	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (2nd ‘(𝑥‘𝑧)) ∈ V)
103	91, 102	ax-mp 5	. . . . . . . . . 10 ⊢ (2nd ‘(𝑥‘𝑧)) ∈ V
104	24	fvmpt2 5579	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (2nd ‘(𝑥‘𝑧)) ∈ V) → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
105	103, 104	mpan2 423	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
106	101, 105	sylan9eq 2223	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) = (2nd ‘(𝑥‘𝑧)))
107	96, 106	opeq12d 3773	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
108	80	ffvelrnda 5631	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
109		1st2nd2 6154	. . . . . . . 8 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
110	108, 109	syl 14	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
111	107, 110	eqtr4d 2206	. . . . . 6 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = (𝑥‘𝑧))
112	111	mpteq2dva 4079	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
113	40, 112	eqtrid 2215	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
114	81, 113	eqtr4d 2206	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
115	78, 114	impbida 591	. 2 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) → (𝑥 = 𝑆 ↔ 𝑦 = ⟨𝐷, 𝑅⟩))
116	7, 12, 29, 43, 115	en3i 6749	1 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ≈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))

Syntax hints:   ∧ wa 103   = wceq 1348   ∈ wcel 2141  Vcvv 2730  ⟨cop 3586   class class class wbr 3989   ↦ cmpt 4050   × cxp 4609   Fn wfn 5193  ⟶wf 5194  ‘cfv 5198  (class class class)co 5853  1^st c1st 6117  2^nd c2nd 6118   ↑_𝑚 cmap 6626   ≈ cen 6716

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-sep 4107  ax-pow 4160  ax-pr 4194  ax-un 4418  ax-setind 4521

This theorem depends on definitions:  df-bi 116  df-3an 975  df-tru 1351  df-fal 1354  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ne 2341  df-ral 2453  df-rex 2454  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-pw 3568  df-sn 3589  df-pr 3590  df-op 3592  df-uni 3797  df-iun 3875  df-br 3990  df-opab 4051  df-mpt 4052  df-id 4278  df-xp 4617  df-rel 4618  df-cnv 4619  df-co 4620  df-dm 4621  df-rn 4622  df-res 4623  df-ima 4624  df-iota 5160  df-fun 5200  df-fn 5201  df-f 5202  df-f1 5203  df-fo 5204  df-f1o 5205  df-fv 5206  df-ov 5856  df-oprab 5857  df-mpo 5858  df-1st 6119  df-2nd 6120  df-map 6628  df-en 6719

This theorem is referenced by:  xpmapen  6828