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

Theorem xpmapenlem 8281
Description: Lemma for xpmapen 8282. (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
StepHypRef Expression
1 ovex 6821 . 2 ((𝐴 × 𝐵) ↑𝑚 𝐶) ∈ V
2 ovex 6821 . . 3 (𝐴𝑚 𝐶) ∈ V
3 ovex 6821 . . 3 (𝐵𝑚 𝐶) ∈ V
42, 3xpex 7107 . 2 ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) ∈ V
5 xpmapen.1 . . . . . . . . 9 𝐴 ∈ V
6 xpmapen.2 . . . . . . . . 9 𝐵 ∈ V
75, 6xpex 7107 . . . . . . . 8 (𝐴 × 𝐵) ∈ V
8 xpmapen.3 . . . . . . . 8 𝐶 ∈ V
97, 8elmap 8036 . . . . . . 7 (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑥:𝐶⟶(𝐴 × 𝐵))
10 ffvelrn 6498 . . . . . . 7 ((𝑥:𝐶⟶(𝐴 × 𝐵) ∧ 𝑧𝐶) → (𝑥𝑧) ∈ (𝐴 × 𝐵))
119, 10sylanb 570 . . . . . 6 ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧𝐶) → (𝑥𝑧) ∈ (𝐴 × 𝐵))
12 xp1st 7345 . . . . . 6 ((𝑥𝑧) ∈ (𝐴 × 𝐵) → (1st ‘(𝑥𝑧)) ∈ 𝐴)
1311, 12syl 17 . . . . 5 ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧𝐶) → (1st ‘(𝑥𝑧)) ∈ 𝐴)
14 xpmapenlem.4 . . . . 5 𝐷 = (𝑧𝐶 ↦ (1st ‘(𝑥𝑧)))
1513, 14fmptd 6525 . . . 4 (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷:𝐶𝐴)
165, 8elmap 8036 . . . 4 (𝐷 ∈ (𝐴𝑚 𝐶) ↔ 𝐷:𝐶𝐴)
1715, 16sylibr 224 . . 3 (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝐷 ∈ (𝐴𝑚 𝐶))
18 xp2nd 7346 . . . . . 6 ((𝑥𝑧) ∈ (𝐴 × 𝐵) → (2nd ‘(𝑥𝑧)) ∈ 𝐵)
1911, 18syl 17 . . . . 5 ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑧𝐶) → (2nd ‘(𝑥𝑧)) ∈ 𝐵)
20 xpmapenlem.5 . . . . 5 𝑅 = (𝑧𝐶 ↦ (2nd ‘(𝑥𝑧)))
2119, 20fmptd 6525 . . . 4 (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅:𝐶𝐵)
226, 8elmap 8036 . . . 4 (𝑅 ∈ (𝐵𝑚 𝐶) ↔ 𝑅:𝐶𝐵)
2321, 22sylibr 224 . . 3 (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → 𝑅 ∈ (𝐵𝑚 𝐶))
2417, 23opelxpd 5287 . 2 (𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) → ⟨𝐷, 𝑅⟩ ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)))
25 xp1st 7345 . . . . . . 7 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → (1st𝑦) ∈ (𝐴𝑚 𝐶))
265, 8elmap 8036 . . . . . . 7 ((1st𝑦) ∈ (𝐴𝑚 𝐶) ↔ (1st𝑦):𝐶𝐴)
2725, 26sylib 208 . . . . . 6 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → (1st𝑦):𝐶𝐴)
2827ffvelrnda 6500 . . . . 5 ((𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) ∧ 𝑧𝐶) → ((1st𝑦)‘𝑧) ∈ 𝐴)
29 xp2nd 7346 . . . . . . 7 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → (2nd𝑦) ∈ (𝐵𝑚 𝐶))
306, 8elmap 8036 . . . . . . 7 ((2nd𝑦) ∈ (𝐵𝑚 𝐶) ↔ (2nd𝑦):𝐶𝐵)
3129, 30sylib 208 . . . . . 6 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → (2nd𝑦):𝐶𝐵)
3231ffvelrnda 6500 . . . . 5 ((𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) ∧ 𝑧𝐶) → ((2nd𝑦)‘𝑧) ∈ 𝐵)
3328, 32opelxpd 5287 . . . 4 ((𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) ∧ 𝑧𝐶) → ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩ ∈ (𝐴 × 𝐵))
34 xpmapenlem.6 . . . 4 𝑆 = (𝑧𝐶 ↦ ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩)
3533, 34fmptd 6525 . . 3 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → 𝑆:𝐶⟶(𝐴 × 𝐵))
367, 8elmap 8036 . . 3 (𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ↔ 𝑆:𝐶⟶(𝐴 × 𝐵))
3735, 36sylibr 224 . 2 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → 𝑆 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
38 1st2nd2 7352 . . . . 5 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
3938ad2antlr 706 . . . 4 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
4027feqmptd 6389 . . . . . . 7 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → (1st𝑦) = (𝑧𝐶 ↦ ((1st𝑦)‘𝑧)))
4140ad2antlr 706 . . . . . 6 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st𝑦) = (𝑧𝐶 ↦ ((1st𝑦)‘𝑧)))
42 simplr 752 . . . . . . . . . . . 12 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → 𝑥 = 𝑆)
4342fveq1d 6332 . . . . . . . . . . 11 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → (𝑥𝑧) = (𝑆𝑧))
44 opex 5060 . . . . . . . . . . . . 13 ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩ ∈ V
4534fvmpt2 6431 . . . . . . . . . . . . 13 ((𝑧𝐶 ∧ ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩ ∈ V) → (𝑆𝑧) = ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩)
4644, 45mpan2 671 . . . . . . . . . . . 12 (𝑧𝐶 → (𝑆𝑧) = ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩)
4746adantl 467 . . . . . . . . . . 11 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → (𝑆𝑧) = ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩)
4843, 47eqtrd 2805 . . . . . . . . . 10 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → (𝑥𝑧) = ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩)
4948fveq2d 6334 . . . . . . . . 9 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → (1st ‘(𝑥𝑧)) = (1st ‘⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩))
50 fvex 6340 . . . . . . . . . 10 ((1st𝑦)‘𝑧) ∈ V
51 fvex 6340 . . . . . . . . . 10 ((2nd𝑦)‘𝑧) ∈ V
5250, 51op1st 7321 . . . . . . . . 9 (1st ‘⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩) = ((1st𝑦)‘𝑧)
5349, 52syl6eq 2821 . . . . . . . 8 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → (1st ‘(𝑥𝑧)) = ((1st𝑦)‘𝑧))
5453mpteq2dva 4878 . . . . . . 7 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧𝐶 ↦ (1st ‘(𝑥𝑧))) = (𝑧𝐶 ↦ ((1st𝑦)‘𝑧)))
5514, 54syl5eq 2817 . . . . . 6 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝐷 = (𝑧𝐶 ↦ ((1st𝑦)‘𝑧)))
5641, 55eqtr4d 2808 . . . . 5 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (1st𝑦) = 𝐷)
5731feqmptd 6389 . . . . . . 7 (𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶)) → (2nd𝑦) = (𝑧𝐶 ↦ ((2nd𝑦)‘𝑧)))
5857ad2antlr 706 . . . . . 6 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd𝑦) = (𝑧𝐶 ↦ ((2nd𝑦)‘𝑧)))
5948fveq2d 6334 . . . . . . . . 9 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → (2nd ‘(𝑥𝑧)) = (2nd ‘⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩))
6050, 51op2nd 7322 . . . . . . . . 9 (2nd ‘⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩) = ((2nd𝑦)‘𝑧)
6159, 60syl6eq 2821 . . . . . . . 8 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) ∧ 𝑧𝐶) → (2nd ‘(𝑥𝑧)) = ((2nd𝑦)‘𝑧))
6261mpteq2dva 4878 . . . . . . 7 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (𝑧𝐶 ↦ (2nd ‘(𝑥𝑧))) = (𝑧𝐶 ↦ ((2nd𝑦)‘𝑧)))
6320, 62syl5eq 2817 . . . . . 6 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑅 = (𝑧𝐶 ↦ ((2nd𝑦)‘𝑧)))
6458, 63eqtr4d 2808 . . . . 5 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → (2nd𝑦) = 𝑅)
6556, 64opeq12d 4547 . . . 4 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → ⟨(1st𝑦), (2nd𝑦)⟩ = ⟨𝐷, 𝑅⟩)
6639, 65eqtrd 2805 . . 3 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑥 = 𝑆) → 𝑦 = ⟨𝐷, 𝑅⟩)
67 simpll 750 . . . . . 6 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶))
6867, 9sylib 208 . . . . 5 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥:𝐶⟶(𝐴 × 𝐵))
6968feqmptd 6389 . . . 4 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = (𝑧𝐶 ↦ (𝑥𝑧)))
70 simpr 471 . . . . . . . . . . . 12 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑦 = ⟨𝐷, 𝑅⟩)
7170fveq2d 6334 . . . . . . . . . . 11 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st𝑦) = (1st ‘⟨𝐷, 𝑅⟩))
7217ad2antrr 705 . . . . . . . . . . . 12 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝐷 ∈ (𝐴𝑚 𝐶))
7323ad2antrr 705 . . . . . . . . . . . 12 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑅 ∈ (𝐵𝑚 𝐶))
74 op1stg 7325 . . . . . . . . . . . 12 ((𝐷 ∈ (𝐴𝑚 𝐶) ∧ 𝑅 ∈ (𝐵𝑚 𝐶)) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
7572, 73, 74syl2anc 573 . . . . . . . . . . 11 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st ‘⟨𝐷, 𝑅⟩) = 𝐷)
7671, 75eqtrd 2805 . . . . . . . . . 10 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (1st𝑦) = 𝐷)
7776fveq1d 6332 . . . . . . . . 9 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((1st𝑦)‘𝑧) = (𝐷𝑧))
78 fvex 6340 . . . . . . . . . 10 (1st ‘(𝑥𝑧)) ∈ V
7914fvmpt2 6431 . . . . . . . . . 10 ((𝑧𝐶 ∧ (1st ‘(𝑥𝑧)) ∈ V) → (𝐷𝑧) = (1st ‘(𝑥𝑧)))
8078, 79mpan2 671 . . . . . . . . 9 (𝑧𝐶 → (𝐷𝑧) = (1st ‘(𝑥𝑧)))
8177, 80sylan9eq 2825 . . . . . . . 8 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧𝐶) → ((1st𝑦)‘𝑧) = (1st ‘(𝑥𝑧)))
8270fveq2d 6334 . . . . . . . . . . 11 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd𝑦) = (2nd ‘⟨𝐷, 𝑅⟩))
83 op2ndg 7326 . . . . . . . . . . . 12 ((𝐷 ∈ (𝐴𝑚 𝐶) ∧ 𝑅 ∈ (𝐵𝑚 𝐶)) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
8472, 73, 83syl2anc 573 . . . . . . . . . . 11 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd ‘⟨𝐷, 𝑅⟩) = 𝑅)
8582, 84eqtrd 2805 . . . . . . . . . 10 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (2nd𝑦) = 𝑅)
8685fveq1d 6332 . . . . . . . . 9 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → ((2nd𝑦)‘𝑧) = (𝑅𝑧))
87 fvex 6340 . . . . . . . . . 10 (2nd ‘(𝑥𝑧)) ∈ V
8820fvmpt2 6431 . . . . . . . . . 10 ((𝑧𝐶 ∧ (2nd ‘(𝑥𝑧)) ∈ V) → (𝑅𝑧) = (2nd ‘(𝑥𝑧)))
8987, 88mpan2 671 . . . . . . . . 9 (𝑧𝐶 → (𝑅𝑧) = (2nd ‘(𝑥𝑧)))
9086, 89sylan9eq 2825 . . . . . . . 8 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧𝐶) → ((2nd𝑦)‘𝑧) = (2nd ‘(𝑥𝑧)))
9181, 90opeq12d 4547 . . . . . . 7 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧𝐶) → ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩ = ⟨(1st ‘(𝑥𝑧)), (2nd ‘(𝑥𝑧))⟩)
9268ffvelrnda 6500 . . . . . . . 8 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧𝐶) → (𝑥𝑧) ∈ (𝐴 × 𝐵))
93 1st2nd2 7352 . . . . . . . 8 ((𝑥𝑧) ∈ (𝐴 × 𝐵) → (𝑥𝑧) = ⟨(1st ‘(𝑥𝑧)), (2nd ‘(𝑥𝑧))⟩)
9492, 93syl 17 . . . . . . 7 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧𝐶) → (𝑥𝑧) = ⟨(1st ‘(𝑥𝑧)), (2nd ‘(𝑥𝑧))⟩)
9591, 94eqtr4d 2808 . . . . . 6 ((((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) ∧ 𝑧𝐶) → ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩ = (𝑥𝑧))
9695mpteq2dva 4878 . . . . 5 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → (𝑧𝐶 ↦ ⟨((1st𝑦)‘𝑧), ((2nd𝑦)‘𝑧)⟩) = (𝑧𝐶 ↦ (𝑥𝑧)))
9734, 96syl5eq 2817 . . . 4 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑆 = (𝑧𝐶 ↦ (𝑥𝑧)))
9869, 97eqtr4d 2808 . . 3 (((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) ∧ 𝑦 = ⟨𝐷, 𝑅⟩) → 𝑥 = 𝑆)
9966, 98impbida 802 . 2 ((𝑥 ∈ ((𝐴 × 𝐵) ↑𝑚 𝐶) ∧ 𝑦 ∈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))) → (𝑥 = 𝑆𝑦 = ⟨𝐷, 𝑅⟩))
1001, 4, 24, 37, 99en3i 8146 1 ((𝐴 × 𝐵) ↑𝑚 𝐶) ≈ ((𝐴𝑚 𝐶) × (𝐵𝑚 𝐶))
Colors of variables: wff setvar class
Syntax hints:  wa 382   = wceq 1631  wcel 2145  Vcvv 3351  cop 4322   class class class wbr 4786  cmpt 4863   × cxp 5247  wf 6025  cfv 6029  (class class class)co 6791  1st c1st 7311  2nd c2nd 7312  𝑚 cmap 8007  cen 8104
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-8 2147  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-sep 4915  ax-nul 4923  ax-pow 4974  ax-pr 5034  ax-un 7094
This theorem depends on definitions:  df-bi 197  df-an 383  df-or 837  df-3an 1073  df-tru 1634  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ne 2944  df-ral 3066  df-rex 3067  df-rab 3070  df-v 3353  df-sbc 3588  df-csb 3683  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-nul 4064  df-if 4226  df-pw 4299  df-sn 4317  df-pr 4319  df-op 4323  df-uni 4575  df-br 4787  df-opab 4847  df-mpt 4864  df-id 5157  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-rn 5260  df-res 5261  df-ima 5262  df-iota 5992  df-fun 6031  df-fn 6032  df-f 6033  df-f1 6034  df-fo 6035  df-f1o 6036  df-fv 6037  df-ov 6794  df-oprab 6795  df-mpt2 6796  df-1st 7313  df-2nd 7314  df-map 8009  df-en 8108
This theorem is referenced by:  xpmapen  8282
  Copyright terms: Public domain W3C validator