xpmapenlem - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > xpmapenlem		Structured version Visualization version GIF version

Theorem xpmapenlem 9169

Description: Lemma for xpmapen 9170. (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	⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1^st ‘(𝑥‘𝑧)))
xpmapenlem.5	⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2^nd ‘(𝑥‘𝑧)))
xpmapenlem.6	⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)

**Assertion**
Ref	Expression
xpmapenlem	⊢ ((𝐴 × 𝐵) ↑_m 𝐶) ≈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))

Distinct variable groups: 𝑥,𝑦,𝑧,𝐴 𝑥,𝐵,𝑦,𝑧 𝑥,𝐶,𝑦,𝑧 𝑦,𝐷,𝑧 𝑦,𝑅,𝑧 𝑥,𝑆,𝑧 Allowed substitution hints: 𝐷(𝑥) 𝑅(𝑥) 𝑆(𝑦)

**Proof of Theorem xpmapenlem**
Step	Hyp	Ref	Expression
1		ovex 7453	. 2 ⊢ ((𝐴 × 𝐵) ↑_m 𝐶) ∈ V
2		ovex 7453	. . 3 ⊢ (𝐴 ↑_m 𝐶) ∈ V
3		ovex 7453	. . 3 ⊢ (𝐵 ↑_m 𝐶) ∈ V
4	2, 3	xpex 7755	. 2 ⊢ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∈ V
5		xpmapen.1	. . . . . . . . 9 ⊢ 𝐴 ∈ V
6		xpmapen.2	. . . . . . . . 9 ⊢ 𝐵 ∈ V
7	5, 6	xpex 7755	. . . . . . . 8 ⊢ (𝐴 × 𝐵) ∈ V
8		xpmapen.3	. . . . . . . 8 ⊢ 𝐶 ∈ V
9	7, 8	elmap 8890	. . . . . . 7 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
10		ffvelcdm 7091	. . . . . . 7 ⊢ ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
11	9, 10	sylanb 580	. . . . . 6 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
12		xp1st 8025	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (1^st ‘(𝑥‘𝑧)) ∈ 𝐴)
13	11, 12	syl 17	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) ∈ 𝐴)
14		xpmapenlem.4	. . . . 5 ⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1^st ‘(𝑥‘𝑧)))
15	13, 14	fmptd 7124	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝐷:𝐶⟶𝐴)
16	5, 8	elmap 8890	. . . 4 ⊢ (𝐷 ∈ (𝐴 ↑_m 𝐶) ↔ 𝐷:𝐶⟶𝐴)
17	15, 16	sylibr 233	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝐷 ∈ (𝐴 ↑_m 𝐶))
18		xp2nd 8026	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (2^nd ‘(𝑥‘𝑧)) ∈ 𝐵)
19	11, 18	syl 17	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) ∈ 𝐵)
20		xpmapenlem.5	. . . . 5 ⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2^nd ‘(𝑥‘𝑧)))
21	19, 20	fmptd 7124	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝑅:𝐶⟶𝐵)
22	6, 8	elmap 8890	. . . 4 ⊢ (𝑅 ∈ (𝐵 ↑_m 𝐶) ↔ 𝑅:𝐶⟶𝐵)
23	21, 22	sylibr 233	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝑅 ∈ (𝐵 ↑_m 𝐶))
24	17, 23	opelxpd 5717	. 2 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)))
25		xp1st 8025	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (1^st ‘𝑦) ∈ (𝐴 ↑_m 𝐶))
26	5, 8	elmap 8890	. . . . . . 7 ⊢ ((1^st ‘𝑦) ∈ (𝐴 ↑_m 𝐶) ↔ (1^st ‘𝑦):𝐶⟶𝐴)
27	25, 26	sylib 217	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (1^st ‘𝑦):𝐶⟶𝐴)
28	27	ffvelcdmda 7094	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((1^st ‘𝑦)‘𝑧) ∈ 𝐴)
29		xp2nd 8026	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (2^nd ‘𝑦) ∈ (𝐵 ↑_m 𝐶))
30	6, 8	elmap 8890	. . . . . . 7 ⊢ ((2^nd ‘𝑦) ∈ (𝐵 ↑_m 𝐶) ↔ (2^nd ‘𝑦):𝐶⟶𝐵)
31	29, 30	sylib 217	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (2^nd ‘𝑦):𝐶⟶𝐵)
32	31	ffvelcdmda 7094	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((2^nd ‘𝑦)‘𝑧) ∈ 𝐵)
33	28, 32	opelxpd 5717	. . . 4 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
34		xpmapenlem.6	. . . 4 ⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
35	33, 34	fmptd 7124	. . 3 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
36	7, 8	elmap 8890	. . 3 ⊢ (𝑆 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
37	35, 36	sylibr 233	. 2 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑_m 𝐶))
38		1st2nd2 8032	. . . . 5 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
39	38	ad2antlr 726	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
40	27	feqmptd 6967	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (1^st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
41	40	ad2antlr 726	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (1^st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
42		simplr 768	. . . . . . . . . . . 12 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → 𝑥 = 𝑆)
43	42	fveq1d 6899	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = (𝑆‘𝑧))
44		opex 5466	. . . . . . . . . . . . 13 ⊢ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ V
45	34	fvmpt2 7016	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐶 ∧ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ V) → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
46	44, 45	mpan2 690	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝐶 → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
47	46	adantl 481	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
48	43, 47	eqtrd 2768	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
49	48	fveq2d 6901	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) = (1^st ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩))
50		fvex 6910	. . . . . . . . . 10 ⊢ ((1^st ‘𝑦)‘𝑧) ∈ V
51		fvex 6910	. . . . . . . . . 10 ⊢ ((2^nd ‘𝑦)‘𝑧) ∈ V
52	50, 51	op1st 8001	. . . . . . . . 9 ⊢ (1^st ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = ((1^st ‘𝑦)‘𝑧)
53	49, 52	eqtrdi 2784	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) = ((1^st ‘𝑦)‘𝑧))
54	53	mpteq2dva 5248	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (1^st ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
55	14, 54	eqtrid 2780	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
56	41, 55	eqtr4d 2771	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (1^st ‘𝑦) = 𝐷)
57	31	feqmptd 6967	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (2^nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
58	57	ad2antlr 726	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (2^nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
59	48	fveq2d 6901	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) = (2^nd ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩))
60	50, 51	op2nd 8002	. . . . . . . . 9 ⊢ (2^nd ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = ((2^nd ‘𝑦)‘𝑧)
61	59, 60	eqtrdi 2784	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) = ((2^nd ‘𝑦)‘𝑧))
62	61	mpteq2dva 5248	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (2^nd ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
63	20, 62	eqtrid 2780	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
64	58, 63	eqtr4d 2771	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (2^nd ‘𝑦) = 𝑅)
65	56, 64	opeq12d 4882	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ = ⟨𝐷, 𝑅⟩)
66	39, 65	eqtrd 2768	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
67		simpll 766	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶))
68	67, 9	sylib 217	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
69	68	feqmptd 6967	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
70		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
71	70	fveq2d 6901	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘𝑦) = (1^st ‘⟨𝐷, 𝑅⟩))
72	17	ad2antrr 725	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴 ↑_m 𝐶))
73	23	ad2antrr 725	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵 ↑_m 𝐶))
74		op1stg 8005	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑_m 𝐶) ∧ 𝑅 ∈ (𝐵 ↑_m 𝐶)) → (1^st ‘⟨𝐷, 𝑅⟩) = 𝐷)
75	72, 73, 74	syl2anc 583	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘⟨𝐷, 𝑅⟩) = 𝐷)
76	71, 75	eqtrd 2768	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘𝑦) = 𝐷)
77	76	fveq1d 6899	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1^st ‘𝑦)‘𝑧) = (𝐷‘𝑧))
78		fvex 6910	. . . . . . . . . 10 ⊢ (1^st ‘(𝑥‘𝑧)) ∈ V
79	14	fvmpt2 7016	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (1^st ‘(𝑥‘𝑧)) ∈ V) → (𝐷‘𝑧) = (1^st ‘(𝑥‘𝑧)))
80	78, 79	mpan2 690	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝐷‘𝑧) = (1^st ‘(𝑥‘𝑧)))
81	77, 80	sylan9eq 2788	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((1^st ‘𝑦)‘𝑧) = (1^st ‘(𝑥‘𝑧)))
82	70	fveq2d 6901	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘𝑦) = (2^nd ‘⟨𝐷, 𝑅⟩))
83		op2ndg 8006	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑_m 𝐶) ∧ 𝑅 ∈ (𝐵 ↑_m 𝐶)) → (2^nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
84	72, 73, 83	syl2anc 583	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
85	82, 84	eqtrd 2768	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘𝑦) = 𝑅)
86	85	fveq1d 6899	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2^nd ‘𝑦)‘𝑧) = (𝑅‘𝑧))
87		fvex 6910	. . . . . . . . . 10 ⊢ (2^nd ‘(𝑥‘𝑧)) ∈ V
88	20	fvmpt2 7016	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (2^nd ‘(𝑥‘𝑧)) ∈ V) → (𝑅‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
89	87, 88	mpan2 690	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝑅‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
90	86, 89	sylan9eq 2788	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((2^nd ‘𝑦)‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
91	81, 90	opeq12d 4882	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
92	68	ffvelcdmda 7094	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
93		1st2nd2 8032	. . . . . . . 8 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (𝑥‘𝑧) = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
94	92, 93	syl 17	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
95	91, 94	eqtr4d 2771	. . . . . 6 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ = (𝑥‘𝑧))
96	95	mpteq2dva 5248	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧 ∈ 𝐶 ↦ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
97	34, 96	eqtrid 2780	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
98	69, 97	eqtr4d 2771	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
99	66, 98	impbida 800	. 2 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) → (𝑥 = 𝑆 ↔ 𝑦 = ⟨𝐷, 𝑅⟩))
100	1, 4, 24, 37, 99	en3i 9012	1 ⊢ ((𝐴 × 𝐵) ↑_m 𝐶) ≈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))

Colors of variables: wff setvar class

Syntax hints: ∧ wa 395 = wceq 1534 ∈ wcel 2099 Vcvv 3471 ⟨cop 4635 class class class wbr 5148 ↦ cmpt 5231 × cxp 5676 ⟶wf 6544 ‘cfv 6548 (class class class)co 7420 1^st c1st 7991 2^nd c2nd 7992 ↑_m cmap 8845 ≈ cen 8961

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2167 ax-ext 2699 ax-sep 5299 ax-nul 5306 ax-pow 5365 ax-pr 5429 ax-un 7740

This theorem depends on definitions: df-bi 206 df-an 396 df-or 847 df-3an 1087 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2530 df-eu 2559 df-clab 2706 df-cleq 2720 df-clel 2806 df-nfc 2881 df-ne 2938 df-ral 3059 df-rex 3068 df-rab 3430 df-v 3473 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-op 4636 df-uni 4909 df-br 5149 df-opab 5211 df-mpt 5232 df-id 5576 df-xp 5684 df-rel 5685 df-cnv 5686 df-co 5687 df-dm 5688 df-rn 5689 df-res 5690 df-ima 5691 df-iota 6500 df-fun 6550 df-fn 6551 df-f 6552 df-f1 6553 df-fo 6554 df-f1o 6555 df-fv 6556 df-ov 7423 df-oprab 7424 df-mpo 7425 df-1st 7993 df-2nd 7994 df-map 8847 df-en 8965

This theorem is referenced by: xpmapen 9170

W3C validator