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 7438	. 2 ⊢ ((𝐴 × 𝐵) ↑_m 𝐶) ∈ V
2		ovex 7438	. . 3 ⊢ (𝐴 ↑_m 𝐶) ∈ V
3		ovex 7438	. . 3 ⊢ (𝐵 ↑_m 𝐶) ∈ V
4	2, 3	xpex 7737	. 2 ⊢ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∈ V
5		xpmapen.1	. . . . . . . . 9 ⊢ 𝐴 ∈ V
6		xpmapen.2	. . . . . . . . 9 ⊢ 𝐵 ∈ V
7	5, 6	xpex 7737	. . . . . . . 8 ⊢ (𝐴 × 𝐵) ∈ V
8		xpmapen.3	. . . . . . . 8 ⊢ 𝐶 ∈ V
9	7, 8	elmap 8867	. . . . . . 7 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
10		ffvelcdm 7077	. . . . . . 7 ⊢ ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
11	9, 10	sylanb 580	. . . . . 6 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
12		xp1st 8006	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (1^st ‘(𝑥‘𝑧)) ∈ 𝐴)
13	11, 12	syl 17	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) ∈ 𝐴)
14		xpmapenlem.4	. . . . 5 ⊢ 𝐷 = (𝑧 ∈ 𝐶 ↦ (1^st ‘(𝑥‘𝑧)))
15	13, 14	fmptd 7109	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝐷:𝐶⟶𝐴)
16	5, 8	elmap 8867	. . . 4 ⊢ (𝐷 ∈ (𝐴 ↑_m 𝐶) ↔ 𝐷:𝐶⟶𝐴)
17	15, 16	sylibr 233	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝐷 ∈ (𝐴 ↑_m 𝐶))
18		xp2nd 8007	. . . . . 6 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (2^nd ‘(𝑥‘𝑧)) ∈ 𝐵)
19	11, 18	syl 17	. . . . 5 ⊢ ((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) ∈ 𝐵)
20		xpmapenlem.5	. . . . 5 ⊢ 𝑅 = (𝑧 ∈ 𝐶 ↦ (2^nd ‘(𝑥‘𝑧)))
21	19, 20	fmptd 7109	. . . 4 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝑅:𝐶⟶𝐵)
22	6, 8	elmap 8867	. . . 4 ⊢ (𝑅 ∈ (𝐵 ↑_m 𝐶) ↔ 𝑅:𝐶⟶𝐵)
23	21, 22	sylibr 233	. . 3 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → 𝑅 ∈ (𝐵 ↑_m 𝐶))
24	17, 23	opelxpd 5708	. 2 ⊢ (𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)))
25		xp1st 8006	. . . . . . 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 7080	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((1^st ‘𝑦)‘𝑧) ∈ 𝐴)
29		xp2nd 8007	. . . . . . 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 7080	. . . . 5 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ((2^nd ‘𝑦)‘𝑧) ∈ 𝐵)
33	28, 32	opelxpd 5708	. . . 4 ⊢ ((𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
34		xpmapenlem.6	. . . 4 ⊢ 𝑆 = (𝑧 ∈ 𝐶 ↦ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
35	33, 34	fmptd 7109	. . 3 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
36	7, 8	elmap 8867	. . 3 ⊢ (𝑆 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
37	35, 36	sylibr 233	. 2 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑_m 𝐶))
38		1st2nd2 8013	. . . . 5 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
39	38	ad2antlr 724	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩)
40	27	feqmptd 6954	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (1^st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
41	40	ad2antlr 724	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (1^st ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
42		simplr 766	. . . . . . . . . . . 12 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → 𝑥 = 𝑆)
43	42	fveq1d 6887	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = (𝑆‘𝑧))
44		opex 5457	. . . . . . . . . . . . 13 ⊢ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ V
45	34	fvmpt2 7003	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐶 ∧ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ ∈ V) → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
46	44, 45	mpan2 688	. . . . . . . . . . . 12 ⊢ (𝑧 ∈ 𝐶 → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
47	46	adantl 481	. . . . . . . . . . 11 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑆‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
48	43, 47	eqtrd 2766	. . . . . . . . . 10 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩)
49	48	fveq2d 6889	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) = (1^st ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩))
50		fvex 6898	. . . . . . . . . 10 ⊢ ((1^st ‘𝑦)‘𝑧) ∈ V
51		fvex 6898	. . . . . . . . . 10 ⊢ ((2^nd ‘𝑦)‘𝑧) ∈ V
52	50, 51	op1st 7982	. . . . . . . . 9 ⊢ (1^st ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = ((1^st ‘𝑦)‘𝑧)
53	49, 52	eqtrdi 2782	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (1^st ‘(𝑥‘𝑧)) = ((1^st ‘𝑦)‘𝑧))
54	53	mpteq2dva 5241	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (1^st ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
55	14, 54	eqtrid 2778	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧 ∈ 𝐶 ↦ ((1^st ‘𝑦)‘𝑧)))
56	41, 55	eqtr4d 2769	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (1^st ‘𝑦) = 𝐷)
57	31	feqmptd 6954	. . . . . . 7 ⊢ (𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶)) → (2^nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
58	57	ad2antlr 724	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (2^nd ‘𝑦) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
59	48	fveq2d 6889	. . . . . . . . 9 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) = (2^nd ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩))
60	50, 51	op2nd 7983	. . . . . . . . 9 ⊢ (2^nd ‘⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = ((2^nd ‘𝑦)‘𝑧)
61	59, 60	eqtrdi 2782	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧 ∈ 𝐶) → (2^nd ‘(𝑥‘𝑧)) = ((2^nd ‘𝑦)‘𝑧))
62	61	mpteq2dva 5241	. . . . . . 7 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧 ∈ 𝐶 ↦ (2^nd ‘(𝑥‘𝑧))) = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
63	20, 62	eqtrid 2778	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧 ∈ 𝐶 ↦ ((2^nd ‘𝑦)‘𝑧)))
64	58, 63	eqtr4d 2769	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → (2^nd ‘𝑦) = 𝑅)
65	56, 64	opeq12d 4876	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1^st ‘𝑦), (2^nd ‘𝑦)⟩ = ⟨𝐷, 𝑅⟩)
66	39, 65	eqtrd 2766	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
67		simpll 764	. . . . . 6 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶))
68	67, 9	sylib 217	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
69	68	feqmptd 6954	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
70		simpr 484	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
71	70	fveq2d 6889	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘𝑦) = (1^st ‘⟨𝐷, 𝑅⟩))
72	17	ad2antrr 723	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴 ↑_m 𝐶))
73	23	ad2antrr 723	. . . . . . . . . . . 12 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵 ↑_m 𝐶))
74		op1stg 7986	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑_m 𝐶) ∧ 𝑅 ∈ (𝐵 ↑_m 𝐶)) → (1^st ‘⟨𝐷, 𝑅⟩) = 𝐷)
75	72, 73, 74	syl2anc 583	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘⟨𝐷, 𝑅⟩) = 𝐷)
76	71, 75	eqtrd 2766	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1^st ‘𝑦) = 𝐷)
77	76	fveq1d 6887	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1^st ‘𝑦)‘𝑧) = (𝐷‘𝑧))
78		fvex 6898	. . . . . . . . . 10 ⊢ (1^st ‘(𝑥‘𝑧)) ∈ V
79	14	fvmpt2 7003	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (1^st ‘(𝑥‘𝑧)) ∈ V) → (𝐷‘𝑧) = (1^st ‘(𝑥‘𝑧)))
80	78, 79	mpan2 688	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝐷‘𝑧) = (1^st ‘(𝑥‘𝑧)))
81	77, 80	sylan9eq 2786	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((1^st ‘𝑦)‘𝑧) = (1^st ‘(𝑥‘𝑧)))
82	70	fveq2d 6889	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘𝑦) = (2^nd ‘⟨𝐷, 𝑅⟩))
83		op2ndg 7987	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (𝐴 ↑_m 𝐶) ∧ 𝑅 ∈ (𝐵 ↑_m 𝐶)) → (2^nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
84	72, 73, 83	syl2anc 583	. . . . . . . . . . 11 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
85	82, 84	eqtrd 2766	. . . . . . . . . 10 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2^nd ‘𝑦) = 𝑅)
86	85	fveq1d 6887	. . . . . . . . 9 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2^nd ‘𝑦)‘𝑧) = (𝑅‘𝑧))
87		fvex 6898	. . . . . . . . . 10 ⊢ (2^nd ‘(𝑥‘𝑧)) ∈ V
88	20	fvmpt2 7003	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐶 ∧ (2^nd ‘(𝑥‘𝑧)) ∈ V) → (𝑅‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
89	87, 88	mpan2 688	. . . . . . . . 9 ⊢ (𝑧 ∈ 𝐶 → (𝑅‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
90	86, 89	sylan9eq 2786	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ((2^nd ‘𝑦)‘𝑧) = (2^nd ‘(𝑥‘𝑧)))
91	81, 90	opeq12d 4876	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
92	68	ffvelcdmda 7080	. . . . . . . 8 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) ∈ (𝐴 × 𝐵))
93		1st2nd2 8013	. . . . . . . 8 ⊢ ((𝑥‘𝑧) ∈ (𝐴 × 𝐵) → (𝑥‘𝑧) = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
94	92, 93	syl 17	. . . . . . 7 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → (𝑥‘𝑧) = ⟨(1^st ‘(𝑥‘𝑧)), (2^nd ‘(𝑥‘𝑧))⟩)
95	91, 94	eqtr4d 2769	. . . . . 6 ⊢ ((((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧 ∈ 𝐶) → ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩ = (𝑥‘𝑧))
96	95	mpteq2dva 5241	. . . . 5 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧 ∈ 𝐶 ↦ ⟨((1^st ‘𝑦)‘𝑧), ((2^nd ‘𝑦)‘𝑧)⟩) = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
97	34, 96	eqtrid 2778	. . . 4 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧 ∈ 𝐶 ↦ (𝑥‘𝑧)))
98	69, 97	eqtr4d 2769	. . 3 ⊢ (((𝑥 ∈ ((𝐴 × 𝐵) ↑_m 𝐶) ∧ 𝑦 ∈ ((𝐴 ↑_m 𝐶) × (𝐵 ↑_m 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
99	66, 98	impbida 798	. 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 395 = wceq 1533 ∈ wcel 2098 Vcvv 3468 ⟨cop 4629 class class class wbr 5141 ↦ cmpt 5224 × cxp 5667 ⟶wf 6533 ‘cfv 6537 (class class class)co 7405 1^st c1st 7972 2^nd c2nd 7973 ↑_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 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2163 ax-ext 2697 ax-sep 5292 ax-nul 5299 ax-pow 5356 ax-pr 5420 ax-un 7722

This theorem depends on definitions: df-bi 206 df-an 396 df-or 845 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2704 df-cleq 2718 df-clel 2804 df-nfc 2879 df-ne 2935 df-ral 3056 df-rex 3065 df-rab 3427 df-v 3470 df-sbc 3773 df-csb 3889 df-dif 3946 df-un 3948 df-in 3950 df-ss 3960 df-nul 4318 df-if 4524 df-pw 4599 df-sn 4624 df-pr 4626 df-op 4630 df-uni 4903 df-br 5142 df-opab 5204 df-mpt 5225 df-id 5567 df-xp 5675 df-rel 5676 df-cnv 5677 df-co 5678 df-dm 5679 df-rn 5680 df-res 5681 df-ima 5682 df-iota 6489 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-ov 7408 df-oprab 7409 df-mpo 7410 df-1st 7974 df-2nd 7975 df-map 8824 df-en 8942

This theorem is referenced by: xpmapen 9147

W3C validator