Theorem xpmapenlem 7034

Description: Lemma for xpmapen 7035. (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 6823	. . 3 ⊢ ↑𝑚 Fn (V × V)
2		xpmapen.1	. . . 4 ⊢ 𝐴 ∈ V
3		xpmapen.2	. . . 4 ⊢ 𝐵 ∈ V
4	2, 3	xpex 4842	. . 3 ⊢ (𝐴 × 𝐵) ∈ V
5		xpmapen.3	. . 3 ⊢ 𝐶 ∈ V
6		fnovex 6050	. . 3 ⊢ (( ↑𝑚 Fn (V × V) ∧ (𝐴 × 𝐵) ∈ V ∧ 𝐶 ∈ V) → ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V)
7	1, 4, 5, 6	mp3an 1373	. 2 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V
8		fnovex 6050	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐴 ∈ V ∧ 𝐶 ∈ V) → (𝐴 ↑𝑚 𝐶) ∈ V)
9	1, 2, 5, 8	mp3an 1373	. . 3 ⊢ (𝐴 ↑𝑚 𝐶) ∈ V
10		fnovex 6050	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐵 ∈ V ∧ 𝐶 ∈ V) → (𝐵 ↑𝑚 𝐶) ∈ V)
11	1, 3, 5, 10	mp3an 1373	. . 3 ⊢ (𝐵 ↑𝑚 𝐶) ∈ V
12	9, 11	xpex 4842	. 2 ⊢ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∈ V
13	4, 5	elmap 6845	. . . . . . 7 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
14		ffvelcdm 5780	. . . . . . 7 ⊢ ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
15	13, 14	sylanb 284	. . . . . 6 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
16		xp1st 6327	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
17	15, 16	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
18		xpmapenlem.4	. . . . 5 ⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧)))
19	17, 18	fmptd 5801	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷:𝐶⟶𝐴)
20	2, 5	elmap 6845	. . . 4 ⊢ (𝐷 ∈ (𝐴 ↑𝑚 𝐶) ↔ 𝐷:𝐶⟶𝐴)
21	19, 20	sylibr 134	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
22		xp2nd 6328	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
23	15, 22	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
24		xpmapenlem.5	. . . . 5 ⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧)))
25	23, 24	fmptd 5801	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅:𝐶⟶𝐵)
26	3, 5	elmap 6845	. . . 4 ⊢ (𝑅 ∈ (𝐵 ↑𝑚 𝐶) ↔ 𝑅:𝐶⟶𝐵)
27	25, 26	sylibr 134	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
28		opelxpi 4757	. . 3 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
29	21, 27, 28	syl2anc 411	. 2 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
30		xp1st 6327	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶))
31	2, 5	elmap 6845	. . . . . . 7 ⊢ ((1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶) ↔ (1st ‘𝑦):𝐶⟶𝐴)
32	30, 31	sylib 122	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦):𝐶⟶𝐴)
33	32	ffvelcdmda 5782	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) ∈ 𝐴)
34		xp2nd 6328	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶))
35	3, 5	elmap 6845	. . . . . . 7 ⊢ ((2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶) ↔ (2nd ‘𝑦):𝐶⟶𝐵)
36	34, 35	sylib 122	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦):𝐶⟶𝐵)
37	36	ffvelcdmda 5782	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) ∈ 𝐵)
38		opelxpi 4757	. . . . 5 ⊢ ((((1st ‘𝑦)‘𝑧) ∈ 𝐴 ∧ ((2nd ‘𝑦)‘𝑧) ∈ 𝐵) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
39	33, 37, 38	syl2anc 411	. . . 4 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
40		xpmapenlem.6	. . . 4 ⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
41	39, 40	fmptd 5801	. . 3 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
42	4, 5	elmap 6845	. . 3 ⊢ (𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
43	41, 42	sylibr 134	. 2 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
44		1st2nd2 6337	. . . . 5 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
45	44	ad2antlr 489	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
46	32	feqmptd 5699	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
47	46	ad2antlr 489	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
48		simplr 529	. . . . . . . . . . . 12 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → 𝑥 = 𝑆)
49	48	fveq1d 5641	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = (𝑆‘𝑧))
50		vex 2805	. . . . . . . . . . . . . . . 16 ⊢ 𝑦 ∈ V
51		1stexg 6329	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (1st ‘𝑦) ∈ V)
52	50, 51	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (1st ‘𝑦) ∈ V
53		vex 2805	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
54	52, 53	fvex 5659	. . . . . . . . . . . . . 14 ⊢ ((1st ‘𝑦)‘𝑧) ∈ V
55		2ndexg 6330	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (2nd ‘𝑦) ∈ V)
56	50, 55	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘𝑦) ∈ V
57	56, 53	fvex 5659	. . . . . . . . . . . . . 14 ⊢ ((2nd ‘𝑦)‘𝑧) ∈ V
58	54, 57	opex 4321	. . . . . . . . . . . . 13 ⊢ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ V
59	40	fvmpt2 5730	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐶 ∧ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ V) → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
60	58, 59	mpan2 425	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝐶 → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
61	60	adantl 277	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
62	49, 61	eqtrd 2264	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
63	62	fveq2d 5643	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
64	54, 57	op1st 6308	. . . . . . . . 9 ⊢ (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((1st ‘𝑦)‘𝑧)
65	63, 64	eqtrdi 2280	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = ((1st ‘𝑦)‘𝑧))
66	65	mpteq2dva 4179	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
67	18, 66	eqtrid 2276	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
68	47, 67	eqtr4d 2267	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = 𝐷)
69	36	feqmptd 5699	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
70	69	ad2antlr 489	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
71	62	fveq2d 5643	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
72	54, 57	op2nd 6309	. . . . . . . . 9 ⊢ (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((2nd ‘𝑦)‘𝑧)
73	71, 72	eqtrdi 2280	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = ((2nd ‘𝑦)‘𝑧))
74	73	mpteq2dva 4179	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
75	24, 74	eqtrid 2276	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
76	70, 75	eqtr4d 2267	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = 𝑅)
77	68, 76	opeq12d 3870	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩ = ⟨𝐷, 𝑅⟩)
78	45, 77	eqtrd 2264	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
79		simpll 527	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
80	79, 13	sylib 122	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
81	80	feqmptd 5699	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
82		simpr 110	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
83	82	fveq2d 5643	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = (1st ‘⟨𝐷, 𝑅⟩))
84	21	ad2antrr 488	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
85	27	ad2antrr 488	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
86		op1stg 6312	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
87	84, 85, 86	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
88	83, 87	eqtrd 2264	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = 𝐷)
89	88	fveq1d 5641	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1st ‘𝑦)‘𝑧) = (𝐷‘𝑧))
90		vex 2805	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
91	90, 53	fvex 5659	. . . . . . . . . . 11 ⊢ (𝑥‘𝑧) ∈ V
92		1stexg 6329	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (1st ‘(𝑥‘𝑧)) ∈ V)
93	91, 92	ax-mp 5	. . . . . . . . . 10 ⊢ (1st ‘(𝑥‘𝑧)) ∈ V
94	18	fvmpt2 5730	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (1st ‘(𝑥‘𝑧)) ∈ V) → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
95	93, 94	mpan2 425	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
96	89, 95	sylan9eq 2284	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) = (1st ‘(𝑥‘𝑧)))
97	82	fveq2d 5643	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = (2nd ‘⟨𝐷, 𝑅⟩))
98		op2ndg 6313	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
99	84, 85, 98	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
100	97, 99	eqtrd 2264	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = 𝑅)
101	100	fveq1d 5641	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2nd ‘𝑦)‘𝑧) = (𝑅‘𝑧))
102		2ndexg 6330	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (2nd ‘(𝑥‘𝑧)) ∈ V)
103	91, 102	ax-mp 5	. . . . . . . . . 10 ⊢ (2nd ‘(𝑥‘𝑧)) ∈ V
104	24	fvmpt2 5730	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (2nd ‘(𝑥‘𝑧)) ∈ V) → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
105	103, 104	mpan2 425	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
106	101, 105	sylan9eq 2284	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) = (2nd ‘(𝑥‘𝑧)))
107	96, 106	opeq12d 3870	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
108	80	ffvelcdmda 5782	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
109		1st2nd2 6337	. . . . . . . 8 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
110	108, 109	syl 14	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
111	107, 110	eqtr4d 2267	. . . . . 6 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = (𝑥‘𝑧))
112	111	mpteq2dva 4179	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
113	40, 112	eqtrid 2276	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
114	81, 113	eqtr4d 2267	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
115	78, 114	impbida 600	. 2 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) → (𝑥 = 𝑆 ↔ 𝑦 = ⟨𝐷, 𝑅⟩))
116	7, 12, 29, 43, 115	en3i 6943	1 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ≈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))

Syntax hints:   ∧ wa 104   = wceq 1397   ∈ wcel 2202  Vcvv 2802  ⟨cop 3672   class class class wbr 4088   ↦ cmpt 4150   × cxp 4723   Fn wfn 5321  ⟶wf 5322  ‘cfv 5326  (class class class)co 6017  1^st c1st 6300  2^nd c2nd 6301   ↑_𝑚 cmap 6816   ≈ cen 6906

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-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-sep 4207  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635

This theorem depends on definitions:  df-bi 117  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-ral 2515  df-rex 2516  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-id 4390  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-ov 6020  df-oprab 6021  df-mpo 6022  df-1st 6302  df-2nd 6303  df-map 6818  df-en 6909

This theorem is referenced by:  xpmapen  7035