Theorem xpmapenlem 7010

Description: Lemma for xpmapen 7011. (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 6802	. . 3 ⊢ ↑𝑚 Fn (V × V)
2		xpmapen.1	. . . 4 ⊢ 𝐴 ∈ V
3		xpmapen.2	. . . 4 ⊢ 𝐵 ∈ V
4	2, 3	xpex 4834	. . 3 ⊢ (𝐴 × 𝐵) ∈ V
5		xpmapen.3	. . 3 ⊢ 𝐶 ∈ V
6		fnovex 6034	. . 3 ⊢ (( ↑𝑚 Fn (V × V) ∧ (𝐴 × 𝐵) ∈ V ∧ 𝐶 ∈ V) → ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V)
7	1, 4, 5, 6	mp3an 1371	. 2 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V
8		fnovex 6034	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐴 ∈ V ∧ 𝐶 ∈ V) → (𝐴 ↑𝑚 𝐶) ∈ V)
9	1, 2, 5, 8	mp3an 1371	. . 3 ⊢ (𝐴 ↑𝑚 𝐶) ∈ V
10		fnovex 6034	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐵 ∈ V ∧ 𝐶 ∈ V) → (𝐵 ↑𝑚 𝐶) ∈ V)
11	1, 3, 5, 10	mp3an 1371	. . 3 ⊢ (𝐵 ↑𝑚 𝐶) ∈ V
12	9, 11	xpex 4834	. 2 ⊢ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∈ V
13	4, 5	elmap 6824	. . . . . . 7 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
14		ffvelcdm 5768	. . . . . . 7 ⊢ ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
15	13, 14	sylanb 284	. . . . . 6 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
16		xp1st 6311	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
17	15, 16	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
18		xpmapenlem.4	. . . . 5 ⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧)))
19	17, 18	fmptd 5789	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷:𝐶⟶𝐴)
20	2, 5	elmap 6824	. . . 4 ⊢ (𝐷 ∈ (𝐴 ↑𝑚 𝐶) ↔ 𝐷:𝐶⟶𝐴)
21	19, 20	sylibr 134	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
22		xp2nd 6312	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
23	15, 22	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
24		xpmapenlem.5	. . . . 5 ⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧)))
25	23, 24	fmptd 5789	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅:𝐶⟶𝐵)
26	3, 5	elmap 6824	. . . 4 ⊢ (𝑅 ∈ (𝐵 ↑𝑚 𝐶) ↔ 𝑅:𝐶⟶𝐵)
27	25, 26	sylibr 134	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
28		opelxpi 4751	. . 3 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
29	21, 27, 28	syl2anc 411	. 2 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
30		xp1st 6311	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶))
31	2, 5	elmap 6824	. . . . . . 7 ⊢ ((1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶) ↔ (1st ‘𝑦):𝐶⟶𝐴)
32	30, 31	sylib 122	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦):𝐶⟶𝐴)
33	32	ffvelcdmda 5770	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) ∈ 𝐴)
34		xp2nd 6312	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶))
35	3, 5	elmap 6824	. . . . . . 7 ⊢ ((2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶) ↔ (2nd ‘𝑦):𝐶⟶𝐵)
36	34, 35	sylib 122	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦):𝐶⟶𝐵)
37	36	ffvelcdmda 5770	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) ∈ 𝐵)
38		opelxpi 4751	. . . . 5 ⊢ ((((1st ‘𝑦)‘𝑧) ∈ 𝐴 ∧ ((2nd ‘𝑦)‘𝑧) ∈ 𝐵) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
39	33, 37, 38	syl2anc 411	. . . 4 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
40		xpmapenlem.6	. . . 4 ⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
41	39, 40	fmptd 5789	. . 3 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
42	4, 5	elmap 6824	. . 3 ⊢ (𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
43	41, 42	sylibr 134	. 2 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
44		1st2nd2 6321	. . . . 5 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
45	44	ad2antlr 489	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
46	32	feqmptd 5687	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
47	46	ad2antlr 489	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
48		simplr 528	. . . . . . . . . . . 12 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → 𝑥 = 𝑆)
49	48	fveq1d 5629	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = (𝑆‘𝑧))
50		vex 2802	. . . . . . . . . . . . . . . 16 ⊢ 𝑦 ∈ V
51		1stexg 6313	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (1st ‘𝑦) ∈ V)
52	50, 51	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (1st ‘𝑦) ∈ V
53		vex 2802	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
54	52, 53	fvex 5647	. . . . . . . . . . . . . 14 ⊢ ((1st ‘𝑦)‘𝑧) ∈ V
55		2ndexg 6314	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (2nd ‘𝑦) ∈ V)
56	50, 55	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘𝑦) ∈ V
57	56, 53	fvex 5647	. . . . . . . . . . . . . 14 ⊢ ((2nd ‘𝑦)‘𝑧) ∈ V
58	54, 57	opex 4315	. . . . . . . . . . . . 13 ⊢ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ V
59	40	fvmpt2 5718	. . . . . . . . . . . . 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 2262	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
63	62	fveq2d 5631	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
64	54, 57	op1st 6292	. . . . . . . . 9 ⊢ (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((1st ‘𝑦)‘𝑧)
65	63, 64	eqtrdi 2278	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = ((1st ‘𝑦)‘𝑧))
66	65	mpteq2dva 4174	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
67	18, 66	eqtrid 2274	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
68	47, 67	eqtr4d 2265	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = 𝐷)
69	36	feqmptd 5687	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
70	69	ad2antlr 489	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
71	62	fveq2d 5631	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
72	54, 57	op2nd 6293	. . . . . . . . 9 ⊢ (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((2nd ‘𝑦)‘𝑧)
73	71, 72	eqtrdi 2278	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = ((2nd ‘𝑦)‘𝑧))
74	73	mpteq2dva 4174	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
75	24, 74	eqtrid 2274	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
76	70, 75	eqtr4d 2265	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = 𝑅)
77	68, 76	opeq12d 3865	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩ = ⟨𝐷, 𝑅⟩)
78	45, 77	eqtrd 2262	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
79		simpll 527	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
80	79, 13	sylib 122	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
81	80	feqmptd 5687	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
82		simpr 110	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
83	82	fveq2d 5631	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = (1st ‘⟨𝐷, 𝑅⟩))
84	21	ad2antrr 488	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
85	27	ad2antrr 488	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
86		op1stg 6296	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
87	84, 85, 86	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
88	83, 87	eqtrd 2262	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = 𝐷)
89	88	fveq1d 5629	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1st ‘𝑦)‘𝑧) = (𝐷‘𝑧))
90		vex 2802	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
91	90, 53	fvex 5647	. . . . . . . . . . 11 ⊢ (𝑥‘𝑧) ∈ V
92		1stexg 6313	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (1st ‘(𝑥‘𝑧)) ∈ V)
93	91, 92	ax-mp 5	. . . . . . . . . 10 ⊢ (1st ‘(𝑥‘𝑧)) ∈ V
94	18	fvmpt2 5718	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (1st ‘(𝑥‘𝑧)) ∈ V) → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
95	93, 94	mpan2 425	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
96	89, 95	sylan9eq 2282	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) = (1st ‘(𝑥‘𝑧)))
97	82	fveq2d 5631	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = (2nd ‘⟨𝐷, 𝑅⟩))
98		op2ndg 6297	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
99	84, 85, 98	syl2anc 411	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
100	97, 99	eqtrd 2262	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = 𝑅)
101	100	fveq1d 5629	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2nd ‘𝑦)‘𝑧) = (𝑅‘𝑧))
102		2ndexg 6314	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (2nd ‘(𝑥‘𝑧)) ∈ V)
103	91, 102	ax-mp 5	. . . . . . . . . 10 ⊢ (2nd ‘(𝑥‘𝑧)) ∈ V
104	24	fvmpt2 5718	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (2nd ‘(𝑥‘𝑧)) ∈ V) → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
105	103, 104	mpan2 425	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
106	101, 105	sylan9eq 2282	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) = (2nd ‘(𝑥‘𝑧)))
107	96, 106	opeq12d 3865	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
108	80	ffvelcdmda 5770	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
109		1st2nd2 6321	. . . . . . . 8 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
110	108, 109	syl 14	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
111	107, 110	eqtr4d 2265	. . . . . 6 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = (𝑥‘𝑧))
112	111	mpteq2dva 4174	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
113	40, 112	eqtrid 2274	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
114	81, 113	eqtr4d 2265	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
115	78, 114	impbida 598	. 2 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) → (𝑥 = 𝑆 ↔ 𝑦 = ⟨𝐷, 𝑅⟩))
116	7, 12, 29, 43, 115	en3i 6922	1 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ≈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))

Syntax hints:   ∧ wa 104   = wceq 1395   ∈ wcel 2200  Vcvv 2799  ⟨cop 3669   class class class wbr 4083   ↦ cmpt 4145   × cxp 4717   Fn wfn 5313  ⟶wf 5314  ‘cfv 5318  (class class class)co 6001  1^st c1st 6284  2^nd c2nd 6285   ↑_𝑚 cmap 6795   ≈ cen 6885

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 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-sep 4202  ax-pow 4258  ax-pr 4293  ax-un 4524  ax-setind 4629

This theorem depends on definitions:  df-bi 117  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-ral 2513  df-rex 2514  df-rab 2517  df-v 2801  df-sbc 3029  df-csb 3125  df-dif 3199  df-un 3201  df-in 3203  df-ss 3210  df-pw 3651  df-sn 3672  df-pr 3673  df-op 3675  df-uni 3889  df-iun 3967  df-br 4084  df-opab 4146  df-mpt 4147  df-id 4384  df-xp 4725  df-rel 4726  df-cnv 4727  df-co 4728  df-dm 4729  df-rn 4730  df-res 4731  df-ima 4732  df-iota 5278  df-fun 5320  df-fn 5321  df-f 5322  df-f1 5323  df-fo 5324  df-f1o 5325  df-fv 5326  df-ov 6004  df-oprab 6005  df-mpo 6006  df-1st 6286  df-2nd 6287  df-map 6797  df-en 6888

This theorem is referenced by:  xpmapen  7011