Theorem xpmapenlem 6743

Description: Lemma for xpmapen 6744. (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 6549	. . 3 ⊢ ↑𝑚 Fn (V × V)
2		xpmapen.1	. . . 4 ⊢ 𝐴 ∈ V
3		xpmapen.2	. . . 4 ⊢ 𝐵 ∈ V
4	2, 3	xpex 4654	. . 3 ⊢ (𝐴 × 𝐵) ∈ V
5		xpmapen.3	. . 3 ⊢ 𝐶 ∈ V
6		fnovex 5804	. . 3 ⊢ (( ↑𝑚 Fn (V × V) ∧ (𝐴 × 𝐵) ∈ V ∧ 𝐶 ∈ V) → ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V)
7	1, 4, 5, 6	mp3an 1315	. 2 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V
8		fnovex 5804	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐴 ∈ V ∧ 𝐶 ∈ V) → (𝐴 ↑𝑚 𝐶) ∈ V)
9	1, 2, 5, 8	mp3an 1315	. . 3 ⊢ (𝐴 ↑𝑚 𝐶) ∈ V
10		fnovex 5804	. . . 4 ⊢ (( ↑𝑚 Fn (V × V) ∧ 𝐵 ∈ V ∧ 𝐶 ∈ V) → (𝐵 ↑𝑚 𝐶) ∈ V)
11	1, 3, 5, 10	mp3an 1315	. . 3 ⊢ (𝐵 ↑𝑚 𝐶) ∈ V
12	9, 11	xpex 4654	. 2 ⊢ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∈ V
13	4, 5	elmap 6571	. . . . . . 7 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
14		ffvelrn 5553	. . . . . . 7 ⊢ ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
15	13, 14	sylanb 282	. . . . . 6 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
16		xp1st 6063	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
17	15, 16	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) ∈ 𝐴)
18		xpmapenlem.4	. . . . 5 ⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧)))
19	17, 18	fmptd 5574	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷:𝐶⟶𝐴)
20	2, 5	elmap 6571	. . . 4 ⊢ (𝐷 ∈ (𝐴 ↑𝑚 𝐶) ↔ 𝐷:𝐶⟶𝐴)
21	19, 20	sylibr 133	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
22		xp2nd 6064	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
23	15, 22	syl 14	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) ∈ 𝐵)
24		xpmapenlem.5	. . . . 5 ⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧)))
25	23, 24	fmptd 5574	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅:𝐶⟶𝐵)
26	3, 5	elmap 6571	. . . 4 ⊢ (𝑅 ∈ (𝐵 ↑𝑚 𝐶) ↔ 𝑅:𝐶⟶𝐵)
27	25, 26	sylibr 133	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
28		opelxpi 4571	. . 3 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
29	21, 27, 28	syl2anc 408	. 2 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)))
30		xp1st 6063	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶))
31	2, 5	elmap 6571	. . . . . . 7 ⊢ ((1st ‘𝑦) ∈ (𝐴 ↑𝑚 𝐶) ↔ (1st ‘𝑦):𝐶⟶𝐴)
32	30, 31	sylib 121	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦):𝐶⟶𝐴)
33	32	ffvelrnda 5555	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) ∈ 𝐴)
34		xp2nd 6064	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶))
35	3, 5	elmap 6571	. . . . . . 7 ⊢ ((2nd ‘𝑦) ∈ (𝐵 ↑𝑚 𝐶) ↔ (2nd ‘𝑦):𝐶⟶𝐵)
36	34, 35	sylib 121	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦):𝐶⟶𝐵)
37	36	ffvelrnda 5555	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) ∈ 𝐵)
38		opelxpi 4571	. . . . 5 ⊢ ((((1st ‘𝑦)‘𝑧) ∈ 𝐴 ∧ ((2nd ‘𝑦)‘𝑧) ∈ 𝐵) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
39	33, 37, 38	syl2anc 408	. . . 4 ⊢ ((𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
40		xpmapenlem.6	. . . 4 ⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
41	39, 40	fmptd 5574	. . 3 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
42	4, 5	elmap 6571	. . 3 ⊢ (𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
43	41, 42	sylibr 133	. 2 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
44		1st2nd2 6073	. . . . 5 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
45	44	ad2antlr 480	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩)
46	32	feqmptd 5474	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
47	46	ad2antlr 480	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
48		simplr 519	. . . . . . . . . . . 12 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → 𝑥 = 𝑆)
49	48	fveq1d 5423	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = (𝑆‘𝑧))
50		vex 2689	. . . . . . . . . . . . . . . 16 ⊢ 𝑦 ∈ V
51		1stexg 6065	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (1st ‘𝑦) ∈ V)
52	50, 51	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (1st ‘𝑦) ∈ V
53		vex 2689	. . . . . . . . . . . . . . 15 ⊢ 𝑧 ∈ V
54	52, 53	fvex 5441	. . . . . . . . . . . . . 14 ⊢ ((1st ‘𝑦)‘𝑧) ∈ V
55		2ndexg 6066	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 ∈ V → (2nd ‘𝑦) ∈ V)
56	50, 55	ax-mp 5	. . . . . . . . . . . . . . 15 ⊢ (2nd ‘𝑦) ∈ V
57	56, 53	fvex 5441	. . . . . . . . . . . . . 14 ⊢ ((2nd ‘𝑦)‘𝑧) ∈ V
58	54, 57	opex 4151	. . . . . . . . . . . . 13 ⊢ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ V
59	40	fvmpt2 5504	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐶 ∧ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ ∈ V) → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
60	58, 59	mpan2 421	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝐶 → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
61	60	adantl 275	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑆‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
62	49, 61	eqtrd 2172	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩)
63	62	fveq2d 5425	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
64	54, 57	op1st 6044	. . . . . . . . 9 ⊢ (1st ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((1st ‘𝑦)‘𝑧)
65	63, 64	syl6eq 2188	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1st ‘(𝑥‘𝑧)) = ((1st ‘𝑦)‘𝑧))
66	65	mpteq2dva 4018	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (1st ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
67	18, 66	syl5eq 2184	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧 ∈ 𝐶 ↦ ((1st ‘𝑦)‘𝑧)))
68	47, 67	eqtr4d 2175	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st ‘𝑦) = 𝐷)
69	36	feqmptd 5474	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶)) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
70	69	ad2antlr 480	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
71	62	fveq2d 5425	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩))
72	54, 57	op2nd 6045	. . . . . . . . 9 ⊢ (2nd ‘⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = ((2nd ‘𝑦)‘𝑧)
73	71, 72	syl6eq 2188	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2nd ‘(𝑥‘𝑧)) = ((2nd ‘𝑦)‘𝑧))
74	73	mpteq2dva 4018	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (2nd ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
75	24, 74	syl5eq 2184	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧 ∈ 𝐶 ↦ ((2nd ‘𝑦)‘𝑧)))
76	70, 75	eqtr4d 2175	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd ‘𝑦) = 𝑅)
77	68, 76	opeq12d 3713	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1st ‘𝑦), (2nd ‘𝑦)⟩ = ⟨𝐷, 𝑅⟩)
78	45, 77	eqtrd 2172	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
79		simpll 518	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
80	79, 13	sylib 121	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
81	80	feqmptd 5474	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
82		simpr 109	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
83	82	fveq2d 5425	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = (1st ‘⟨𝐷, 𝑅⟩))
84	21	ad2antrr 479	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴 ↑𝑚 𝐶))
85	27	ad2antrr 479	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵 ↑𝑚 𝐶))
86		op1stg 6048	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
87	84, 85, 86	syl2anc 408	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
88	83, 87	eqtrd 2172	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘𝑦) = 𝐷)
89	88	fveq1d 5423	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1st ‘𝑦)‘𝑧) = (𝐷‘𝑧))
90		vex 2689	. . . . . . . . . . . 12 ⊢ 𝑥 ∈ V
91	90, 53	fvex 5441	. . . . . . . . . . 11 ⊢ (𝑥‘𝑧) ∈ V
92		1stexg 6065	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (1st ‘(𝑥‘𝑧)) ∈ V)
93	91, 92	ax-mp 5	. . . . . . . . . 10 ⊢ (1st ‘(𝑥‘𝑧)) ∈ V
94	18	fvmpt2 5504	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (1st ‘(𝑥‘𝑧)) ∈ V) → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
95	93, 94	mpan2 421	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝐷‘𝑧) = (1st ‘(𝑥‘𝑧)))
96	89, 95	sylan9eq 2192	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((1st ‘𝑦)‘𝑧) = (1st ‘(𝑥‘𝑧)))
97	82	fveq2d 5425	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = (2nd ‘⟨𝐷, 𝑅⟩))
98		op2ndg 6049	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑𝑚 𝐶) ∧ 𝑅 ∈ (𝐵 ↑𝑚 𝐶)) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
99	84, 85, 98	syl2anc 408	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
100	97, 99	eqtrd 2172	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘𝑦) = 𝑅)
101	100	fveq1d 5423	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2nd ‘𝑦)‘𝑧) = (𝑅‘𝑧))
102		2ndexg 6066	. . . . . . . . . . 11 ⊢ ((𝑥‘𝑧) ∈ V → (2nd ‘(𝑥‘𝑧)) ∈ V)
103	91, 102	ax-mp 5	. . . . . . . . . 10 ⊢ (2nd ‘(𝑥‘𝑧)) ∈ V
104	24	fvmpt2 5504	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (2nd ‘(𝑥‘𝑧)) ∈ V) → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
105	103, 104	mpan2 421	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝑅‘𝑧) = (2nd ‘(𝑥‘𝑧)))
106	101, 105	sylan9eq 2192	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((2nd ‘𝑦)‘𝑧) = (2nd ‘(𝑥‘𝑧)))
107	96, 106	opeq12d 3713	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
108	80	ffvelrnda 5555	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
109		1st2nd2 6073	. . . . . . . 8 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
110	108, 109	syl 14	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨(1st ‘(𝑥‘𝑧)), (2nd ‘(𝑥‘𝑧))⟩)
111	107, 110	eqtr4d 2175	. . . . . 6 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩ = (𝑥‘𝑧))
112	111	mpteq2dva 4018	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧 ∈ 𝐶 ↦ ⟨((1st ‘𝑦)‘𝑧), ((2nd ‘𝑦)‘𝑧)⟩) = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
113	40, 112	syl5eq 2184	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
114	81, 113	eqtr4d 2175	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
115	78, 114	impbida 585	. 2 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))) → (𝑥 = 𝑆 ↔ 𝑦 = ⟨𝐷, 𝑅⟩))
116	7, 12, 29, 43, 115	en3i 6665	1 ⊢ ((𝐴 × 𝐵) ↑𝑚 𝐶) ≈ ((𝐴 ↑𝑚 𝐶) × (𝐵 ↑𝑚 𝐶))

Syntax hints:   ∧ wa 103   = wceq 1331   ∈ wcel 1480  Vcvv 2686  ⟨cop 3530   class class class wbr 3929   ↦ cmpt 3989   × cxp 4537   Fn wfn 5118  ⟶wf 5119  ‘cfv 5123  (class class class)co 5774  1^st c1st 6036  2^nd c2nd 6037   ↑_𝑚 cmap 6542   ≈ cen 6632

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 603  ax-in2 604  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-sep 4046  ax-pow 4098  ax-pr 4131  ax-un 4355  ax-setind 4452

This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-fal 1337  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ne 2309  df-ral 2421  df-rex 2422  df-rab 2425  df-v 2688  df-sbc 2910  df-csb 3004  df-dif 3073  df-un 3075  df-in 3077  df-ss 3084  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-iun 3815  df-br 3930  df-opab 3990  df-mpt 3991  df-id 4215  df-xp 4545  df-rel 4546  df-cnv 4547  df-co 4548  df-dm 4549  df-rn 4550  df-res 4551  df-ima 4552  df-iota 5088  df-fun 5125  df-fn 5126  df-f 5127  df-f1 5128  df-fo 5129  df-f1o 5130  df-fv 5131  df-ov 5777  df-oprab 5778  df-mpo 5779  df-1st 6038  df-2nd 6039  df-map 6544  df-en 6635

This theorem is referenced by:  xpmapen  6744