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 9146

Description: Lemma for xpmapen 9147. (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 7444	. 2 ⊢ ((𝐴 × 𝐵) ↑_m 𝐶) ∈ V
2		ovex 7444	. . 3 ⊢ (𝐴 ↑_m 𝐶) ∈ V
3		ovex 7444	. . 3 ⊢ (𝐵 ↑_m 𝐶) ∈ V
4	2, 3	xpex 7742	. 2 ⊢ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∈ V
5		xpmapen.1	. . . . . . . . 9 ⊢ 𝐴 ∈ V
6		xpmapen.2	. . . . . . . . 9 ⊢ 𝐵 ∈ V
7	5, 6	xpex 7742	. . . . . . . 8 ⊢ (𝐴 × 𝐵) ∈ V
8		xpmapen.3	. . . . . . . 8 ⊢ 𝐶 ∈ V
9	7, 8	elmap 8867	. . . . . . 7 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
10		ffvelcdm 7082	. . . . . . 7 ⊢ ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
11	9, 10	sylanb 579	. . . . . 6 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
12		xp1st 8009	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (1^st ‘(𝑥‘𝑧)) ∈ 𝐴)
13	11, 12	syl 17	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) ∈ 𝐴)
14		xpmapenlem.4	. . . . 5 ⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1^st ‘(𝑥‘𝑧)))
15	13, 14	fmptd 7114	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝐷:𝐶⟶𝐴)
16	5, 8	elmap 8867	. . . 4 ⊢ (𝐷 ∈ (𝐴 ↑_m 𝐶) ↔ 𝐷:𝐶⟶𝐴)
17	15, 16	sylibr 233	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝐷 ∈ (𝐴 ↑_m 𝐶))
18		xp2nd 8010	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (2^nd ‘(𝑥‘𝑧)) ∈ 𝐵)
19	11, 18	syl 17	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) ∈ 𝐵)
20		xpmapenlem.5	. . . . 5 ⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2^nd ‘(𝑥‘𝑧)))
21	19, 20	fmptd 7114	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝑅:𝐶⟶𝐵)
22	6, 8	elmap 8867	. . . 4 ⊢ (𝑅 ∈ (𝐵 ↑_m 𝐶) ↔ 𝑅:𝐶⟶𝐵)
23	21, 22	sylibr 233	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝑅 ∈ (𝐵 ↑_m 𝐶))
24	17, 23	opelxpd 5714	. 2 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)))
25		xp1st 8009	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (1^st ‘𝑦) ∈ (𝐴 ↑_m 𝐶))
26	5, 8	elmap 8867	. . . . . . 7 ⊢ ((1^st ‘𝑦) ∈ (𝐴 ↑_m 𝐶) ↔ (1^st ‘𝑦):𝐶⟶𝐴)
27	25, 26	sylib 217	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (1^st ‘𝑦):𝐶⟶𝐴)
28	27	ffvelcdmda 7085	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((1^st ‘𝑦)‘𝑧) ∈ 𝐴)
29		xp2nd 8010	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (2^nd ‘𝑦) ∈ (𝐵 ↑_m 𝐶))
30	6, 8	elmap 8867	. . . . . . 7 ⊢ ((2^nd ‘𝑦) ∈ (𝐵 ↑_m 𝐶) ↔ (2^nd ‘𝑦):𝐶⟶𝐵)
31	29, 30	sylib 217	. . . . . 6 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (2^nd ‘𝑦):𝐶⟶𝐵)
32	31	ffvelcdmda 7085	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((2^nd ‘𝑦)‘𝑧) ∈ 𝐵)
33	28, 32	opelxpd 5714	. . . 4 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
34		xpmapenlem.6	. . . 4 ⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
35	33, 34	fmptd 7114	. . 3 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
36	7, 8	elmap 8867	. . 3 ⊢ (𝑆 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
37	35, 36	sylibr 233	. 2 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑_m 𝐶))
38		1st2nd2 8016	. . . . 5 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
39	38	ad2antlr 723	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
40	27	feqmptd 6959	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (1^st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
41	40	ad2antlr 723	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (1^st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
42		simplr 765	. . . . . . . . . . . 12 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → 𝑥 = 𝑆)
43	42	fveq1d 6892	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = (𝑆‘𝑧))
44		opex 5463	. . . . . . . . . . . . 13 ⊢ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ V
45	34	fvmpt2 7008	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐶 ∧ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ V) → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
46	44, 45	mpan2 687	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝐶 → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
47	46	adantl 480	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
48	43, 47	eqtrd 2770	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
49	48	fveq2d 6894	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) = (1^st ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩))
50		fvex 6903	. . . . . . . . . 10 ⊢ ((1^st ‘𝑦)‘𝑧) ∈ V
51		fvex 6903	. . . . . . . . . 10 ⊢ ((2^nd ‘𝑦)‘𝑧) ∈ V
52	50, 51	op1st 7985	. . . . . . . . 9 ⊢ (1^st ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = ((1^st ‘𝑦)‘𝑧)
53	49, 52	eqtrdi 2786	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) = ((1^st ‘𝑦)‘𝑧))
54	53	mpteq2dva 5247	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (1^st ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
55	14, 54	eqtrid 2782	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
56	41, 55	eqtr4d 2773	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (1^st ‘𝑦) = 𝐷)
57	31	feqmptd 6959	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (2^nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
58	57	ad2antlr 723	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (2^nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
59	48	fveq2d 6894	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) = (2^nd ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩))
60	50, 51	op2nd 7986	. . . . . . . . 9 ⊢ (2^nd ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = ((2^nd ‘𝑦)‘𝑧)
61	59, 60	eqtrdi 2786	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) = ((2^nd ‘𝑦)‘𝑧))
62	61	mpteq2dva 5247	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (2^nd ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
63	20, 62	eqtrid 2782	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
64	58, 63	eqtr4d 2773	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (2^nd ‘𝑦) = 𝑅)
65	56, 64	opeq12d 4880	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ = ⟨𝐷, 𝑅⟩)
66	39, 65	eqtrd 2770	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
67		simpll 763	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶))
68	67, 9	sylib 217	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
69	68	feqmptd 6959	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
70		simpr 483	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
71	70	fveq2d 6894	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘𝑦) = (1^st ‘⟨𝐷, 𝑅⟩))
72	17	ad2antrr 722	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴 ↑_m 𝐶))
73	23	ad2antrr 722	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵 ↑_m 𝐶))
74		op1stg 7989	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑_m 𝐶) ∧ 𝑅 ∈ (𝐵 ↑_m 𝐶)) → (1^st ‘⟨𝐷, 𝑅⟩) = 𝐷)
75	72, 73, 74	syl2anc 582	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘⟨𝐷, 𝑅⟩) = 𝐷)
76	71, 75	eqtrd 2770	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘𝑦) = 𝐷)
77	76	fveq1d 6892	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1^st ‘𝑦)‘𝑧) = (𝐷‘𝑧))
78		fvex 6903	. . . . . . . . . 10 ⊢ (1^st ‘(𝑥‘𝑧)) ∈ V
79	14	fvmpt2 7008	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (1^st ‘(𝑥‘𝑧)) ∈ V) → (𝐷‘𝑧) = (1^st ‘(𝑥‘𝑧)))
80	78, 79	mpan2 687	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝐷‘𝑧) = (1^st ‘(𝑥‘𝑧)))
81	77, 80	sylan9eq 2790	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((1^st ‘𝑦)‘𝑧) = (1^st ‘(𝑥‘𝑧)))
82	70	fveq2d 6894	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘𝑦) = (2^nd ‘⟨𝐷, 𝑅⟩))
83		op2ndg 7990	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑_m 𝐶) ∧ 𝑅 ∈ (𝐵 ↑_m 𝐶)) → (2^nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
84	72, 73, 83	syl2anc 582	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
85	82, 84	eqtrd 2770	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘𝑦) = 𝑅)
86	85	fveq1d 6892	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2^nd ‘𝑦)‘𝑧) = (𝑅‘𝑧))
87		fvex 6903	. . . . . . . . . 10 ⊢ (2^nd ‘(𝑥‘𝑧)) ∈ V
88	20	fvmpt2 7008	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (2^nd ‘(𝑥‘𝑧)) ∈ V) → (𝑅‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
89	87, 88	mpan2 687	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝑅‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
90	86, 89	sylan9eq 2790	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((2^nd ‘𝑦)‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
91	81, 90	opeq12d 4880	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
92	68	ffvelcdmda 7085	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
93		1st2nd2 8016	. . . . . . . 8 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (𝑥‘𝑧) = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
94	92, 93	syl 17	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
95	91, 94	eqtr4d 2773	. . . . . 6 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ = (𝑥‘𝑧))
96	95	mpteq2dva 5247	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧 ∈ 𝐶 ↦ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
97	34, 96	eqtrid 2782	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
98	69, 97	eqtr4d 2773	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
99	66, 98	impbida 797	. 2 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) → (𝑥 = 𝑆 ↔ 𝑦 = ⟨𝐷, 𝑅⟩))
100	1, 4, 24, 37, 99	en3i 8989	1 ⊢ ((𝐴 × 𝐵) ↑_m 𝐶) ≈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))

Colors of variables: wff setvar class

Syntax hints: ∧ wa 394 = wceq 1539 ∈ wcel 2104 Vcvv 3472 ⟨cop 4633 class class class wbr 5147 ↦ cmpt 5230 × cxp 5673 ⟶wf 6538 ‘cfv 6542 (class class class)co 7411 1^st c1st 7975 2^nd c2nd 7976 ↑_m cmap 8822 ≈ cen 8938

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1911 ax-6 1969 ax-7 2009 ax-8 2106 ax-9 2114 ax-10 2135 ax-11 2152 ax-12 2169 ax-ext 2701 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7727

This theorem depends on definitions: df-bi 206 df-an 395 df-or 844 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2532 df-eu 2561 df-clab 2708 df-cleq 2722 df-clel 2808 df-nfc 2883 df-ne 2939 df-ral 3060 df-rex 3069 df-rab 3431 df-v 3474 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-br 5148 df-opab 5210 df-mpt 5231 df-id 5573 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-ov 7414 df-oprab 7415 df-mpo 7416 df-1st 7977 df-2nd 7978 df-map 8824 df-en 8942

This theorem is referenced by: xpmapen 9147

W3C validator