Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mendring Structured version   Visualization version   GIF version

Theorem mendring 43212
Description: The module endomorphism algebra is a ring. (Contributed by Stefan O'Rear, 5-Sep-2015.)
Hypothesis
Ref Expression
mendassa.a 𝐴 = (MEndo‘𝑀)
Assertion
Ref Expression
mendring (𝑀 ∈ LMod → 𝐴 ∈ Ring)

Proof of Theorem mendring
Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mendassa.a . . . 4 𝐴 = (MEndo‘𝑀)
21mendbas 43204 . . 3 (𝑀 LMHom 𝑀) = (Base‘𝐴)
32a1i 11 . 2 (𝑀 ∈ LMod → (𝑀 LMHom 𝑀) = (Base‘𝐴))
4 eqidd 2736 . 2 (𝑀 ∈ LMod → (+g𝐴) = (+g𝐴))
5 eqidd 2736 . 2 (𝑀 ∈ LMod → (.r𝐴) = (.r𝐴))
6 eqid 2735 . . . . . 6 (+g𝑀) = (+g𝑀)
7 eqid 2735 . . . . . 6 (+g𝐴) = (+g𝐴)
81, 2, 6, 7mendplusg 43206 . . . . 5 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥(+g𝐴)𝑦) = (𝑥f (+g𝑀)𝑦))
96lmhmplusg 21002 . . . . 5 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥f (+g𝑀)𝑦) ∈ (𝑀 LMHom 𝑀))
108, 9eqeltrd 2834 . . . 4 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥(+g𝐴)𝑦) ∈ (𝑀 LMHom 𝑀))
11103adant1 1130 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥(+g𝐴)𝑦) ∈ (𝑀 LMHom 𝑀))
12 simpr1 1195 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑥 ∈ (𝑀 LMHom 𝑀))
13 simpr2 1196 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑦 ∈ (𝑀 LMHom 𝑀))
1412, 13, 9syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥f (+g𝑀)𝑦) ∈ (𝑀 LMHom 𝑀))
15 simpr3 1197 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑧 ∈ (𝑀 LMHom 𝑀))
161, 2, 6, 7mendplusg 43206 . . . . 5 (((𝑥f (+g𝑀)𝑦) ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → ((𝑥f (+g𝑀)𝑦)(+g𝐴)𝑧) = ((𝑥f (+g𝑀)𝑦) ∘f (+g𝑀)𝑧))
1714, 15, 16syl2anc 584 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥f (+g𝑀)𝑦)(+g𝐴)𝑧) = ((𝑥f (+g𝑀)𝑦) ∘f (+g𝑀)𝑧))
1812, 13, 8syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(+g𝐴)𝑦) = (𝑥f (+g𝑀)𝑦))
1918oveq1d 7420 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(+g𝐴)𝑦)(+g𝐴)𝑧) = ((𝑥f (+g𝑀)𝑦)(+g𝐴)𝑧))
206lmhmplusg 21002 . . . . . . 7 ((𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → (𝑦f (+g𝑀)𝑧) ∈ (𝑀 LMHom 𝑀))
2113, 15, 20syl2anc 584 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑦f (+g𝑀)𝑧) ∈ (𝑀 LMHom 𝑀))
221, 2, 6, 7mendplusg 43206 . . . . . 6 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ (𝑦f (+g𝑀)𝑧) ∈ (𝑀 LMHom 𝑀)) → (𝑥(+g𝐴)(𝑦f (+g𝑀)𝑧)) = (𝑥f (+g𝑀)(𝑦f (+g𝑀)𝑧)))
2312, 21, 22syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(+g𝐴)(𝑦f (+g𝑀)𝑧)) = (𝑥f (+g𝑀)(𝑦f (+g𝑀)𝑧)))
241, 2, 6, 7mendplusg 43206 . . . . . . 7 ((𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → (𝑦(+g𝐴)𝑧) = (𝑦f (+g𝑀)𝑧))
2513, 15, 24syl2anc 584 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑦(+g𝐴)𝑧) = (𝑦f (+g𝑀)𝑧))
2625oveq2d 7421 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(+g𝐴)(𝑦(+g𝐴)𝑧)) = (𝑥(+g𝐴)(𝑦f (+g𝑀)𝑧)))
27 lmodgrp 20824 . . . . . . . 8 (𝑀 ∈ LMod → 𝑀 ∈ Grp)
2827grpmndd 18929 . . . . . . 7 (𝑀 ∈ LMod → 𝑀 ∈ Mnd)
2928adantr 480 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑀 ∈ Mnd)
30 eqid 2735 . . . . . . . . 9 (Base‘𝑀) = (Base‘𝑀)
3130, 30lmhmf 20992 . . . . . . . 8 (𝑥 ∈ (𝑀 LMHom 𝑀) → 𝑥:(Base‘𝑀)⟶(Base‘𝑀))
3212, 31syl 17 . . . . . . 7 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑥:(Base‘𝑀)⟶(Base‘𝑀))
33 fvex 6889 . . . . . . . 8 (Base‘𝑀) ∈ V
3433, 33elmap 8885 . . . . . . 7 (𝑥 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)) ↔ 𝑥:(Base‘𝑀)⟶(Base‘𝑀))
3532, 34sylibr 234 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑥 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)))
3630, 30lmhmf 20992 . . . . . . . 8 (𝑦 ∈ (𝑀 LMHom 𝑀) → 𝑦:(Base‘𝑀)⟶(Base‘𝑀))
3713, 36syl 17 . . . . . . 7 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑦:(Base‘𝑀)⟶(Base‘𝑀))
3833, 33elmap 8885 . . . . . . 7 (𝑦 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)) ↔ 𝑦:(Base‘𝑀)⟶(Base‘𝑀))
3937, 38sylibr 234 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑦 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)))
4030, 30lmhmf 20992 . . . . . . . 8 (𝑧 ∈ (𝑀 LMHom 𝑀) → 𝑧:(Base‘𝑀)⟶(Base‘𝑀))
4115, 40syl 17 . . . . . . 7 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑧:(Base‘𝑀)⟶(Base‘𝑀))
4233, 33elmap 8885 . . . . . . 7 (𝑧 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)) ↔ 𝑧:(Base‘𝑀)⟶(Base‘𝑀))
4341, 42sylibr 234 . . . . . 6 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑧 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)))
4430, 6mndvass 18776 . . . . . 6 ((𝑀 ∈ Mnd ∧ (𝑥 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)) ∧ 𝑦 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)) ∧ 𝑧 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)))) → ((𝑥f (+g𝑀)𝑦) ∘f (+g𝑀)𝑧) = (𝑥f (+g𝑀)(𝑦f (+g𝑀)𝑧)))
4529, 35, 39, 43, 44syl13anc 1374 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥f (+g𝑀)𝑦) ∘f (+g𝑀)𝑧) = (𝑥f (+g𝑀)(𝑦f (+g𝑀)𝑧)))
4623, 26, 453eqtr4d 2780 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(+g𝐴)(𝑦(+g𝐴)𝑧)) = ((𝑥f (+g𝑀)𝑦) ∘f (+g𝑀)𝑧))
4717, 19, 463eqtr4d 2780 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(+g𝐴)𝑦)(+g𝐴)𝑧) = (𝑥(+g𝐴)(𝑦(+g𝐴)𝑧)))
48 id 22 . . . 4 (𝑀 ∈ LMod → 𝑀 ∈ LMod)
49 eqidd 2736 . . . 4 (𝑀 ∈ LMod → (Scalar‘𝑀) = (Scalar‘𝑀))
50 eqid 2735 . . . . 5 (0g𝑀) = (0g𝑀)
51 eqid 2735 . . . . 5 (Scalar‘𝑀) = (Scalar‘𝑀)
5250, 30, 51, 510lmhm 20998 . . . 4 ((𝑀 ∈ LMod ∧ 𝑀 ∈ LMod ∧ (Scalar‘𝑀) = (Scalar‘𝑀)) → ((Base‘𝑀) × {(0g𝑀)}) ∈ (𝑀 LMHom 𝑀))
5348, 48, 49, 52syl3anc 1373 . . 3 (𝑀 ∈ LMod → ((Base‘𝑀) × {(0g𝑀)}) ∈ (𝑀 LMHom 𝑀))
541, 2, 6, 7mendplusg 43206 . . . . 5 ((((Base‘𝑀) × {(0g𝑀)}) ∈ (𝑀 LMHom 𝑀) ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((Base‘𝑀) × {(0g𝑀)})(+g𝐴)𝑥) = (((Base‘𝑀) × {(0g𝑀)}) ∘f (+g𝑀)𝑥))
5553, 54sylan 580 . . . 4 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((Base‘𝑀) × {(0g𝑀)})(+g𝐴)𝑥) = (((Base‘𝑀) × {(0g𝑀)}) ∘f (+g𝑀)𝑥))
5631, 34sylibr 234 . . . . 5 (𝑥 ∈ (𝑀 LMHom 𝑀) → 𝑥 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)))
5730, 6, 50mndvlid 18777 . . . . 5 ((𝑀 ∈ Mnd ∧ 𝑥 ∈ ((Base‘𝑀) ↑m (Base‘𝑀))) → (((Base‘𝑀) × {(0g𝑀)}) ∘f (+g𝑀)𝑥) = 𝑥)
5828, 56, 57syl2an 596 . . . 4 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((Base‘𝑀) × {(0g𝑀)}) ∘f (+g𝑀)𝑥) = 𝑥)
5955, 58eqtrd 2770 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((Base‘𝑀) × {(0g𝑀)})(+g𝐴)𝑥) = 𝑥)
60 eqid 2735 . . . . 5 (invg𝑀) = (invg𝑀)
6160invlmhm 21000 . . . 4 (𝑀 ∈ LMod → (invg𝑀) ∈ (𝑀 LMHom 𝑀))
62 lmhmco 21001 . . . 4 (((invg𝑀) ∈ (𝑀 LMHom 𝑀) ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → ((invg𝑀) ∘ 𝑥) ∈ (𝑀 LMHom 𝑀))
6361, 62sylan 580 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → ((invg𝑀) ∘ 𝑥) ∈ (𝑀 LMHom 𝑀))
641, 2, 6, 7mendplusg 43206 . . . . 5 ((((invg𝑀) ∘ 𝑥) ∈ (𝑀 LMHom 𝑀) ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((invg𝑀) ∘ 𝑥)(+g𝐴)𝑥) = (((invg𝑀) ∘ 𝑥) ∘f (+g𝑀)𝑥))
6563, 64sylancom 588 . . . 4 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((invg𝑀) ∘ 𝑥)(+g𝐴)𝑥) = (((invg𝑀) ∘ 𝑥) ∘f (+g𝑀)𝑥))
6630, 6, 60, 50grpvlinv 22336 . . . . 5 ((𝑀 ∈ Grp ∧ 𝑥 ∈ ((Base‘𝑀) ↑m (Base‘𝑀))) → (((invg𝑀) ∘ 𝑥) ∘f (+g𝑀)𝑥) = ((Base‘𝑀) × {(0g𝑀)}))
6727, 56, 66syl2an 596 . . . 4 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((invg𝑀) ∘ 𝑥) ∘f (+g𝑀)𝑥) = ((Base‘𝑀) × {(0g𝑀)}))
6865, 67eqtrd 2770 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (((invg𝑀) ∘ 𝑥)(+g𝐴)𝑥) = ((Base‘𝑀) × {(0g𝑀)}))
693, 4, 11, 47, 53, 59, 63, 68isgrpd 18941 . 2 (𝑀 ∈ LMod → 𝐴 ∈ Grp)
70 eqid 2735 . . . . 5 (.r𝐴) = (.r𝐴)
711, 2, 70mendmulr 43208 . . . 4 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)𝑦) = (𝑥𝑦))
72 lmhmco 21001 . . . 4 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥𝑦) ∈ (𝑀 LMHom 𝑀))
7371, 72eqeltrd 2834 . . 3 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)𝑦) ∈ (𝑀 LMHom 𝑀))
74733adant1 1130 . 2 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)𝑦) ∈ (𝑀 LMHom 𝑀))
75 coass 6254 . . 3 ((𝑥𝑦) ∘ 𝑧) = (𝑥 ∘ (𝑦𝑧))
7612, 13, 71syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)𝑦) = (𝑥𝑦))
7776oveq1d 7420 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(.r𝐴)𝑦)(.r𝐴)𝑧) = ((𝑥𝑦)(.r𝐴)𝑧))
7812, 13, 72syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥𝑦) ∈ (𝑀 LMHom 𝑀))
791, 2, 70mendmulr 43208 . . . . 5 (((𝑥𝑦) ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → ((𝑥𝑦)(.r𝐴)𝑧) = ((𝑥𝑦) ∘ 𝑧))
8078, 15, 79syl2anc 584 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥𝑦)(.r𝐴)𝑧) = ((𝑥𝑦) ∘ 𝑧))
8177, 80eqtrd 2770 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(.r𝐴)𝑦)(.r𝐴)𝑧) = ((𝑥𝑦) ∘ 𝑧))
821, 2, 70mendmulr 43208 . . . . . 6 ((𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → (𝑦(.r𝐴)𝑧) = (𝑦𝑧))
8313, 15, 82syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑦(.r𝐴)𝑧) = (𝑦𝑧))
8483oveq2d 7421 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)(𝑦(.r𝐴)𝑧)) = (𝑥(.r𝐴)(𝑦𝑧)))
85 lmhmco 21001 . . . . . 6 ((𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → (𝑦𝑧) ∈ (𝑀 LMHom 𝑀))
8613, 15, 85syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑦𝑧) ∈ (𝑀 LMHom 𝑀))
871, 2, 70mendmulr 43208 . . . . 5 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ (𝑦𝑧) ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)(𝑦𝑧)) = (𝑥 ∘ (𝑦𝑧)))
8812, 86, 87syl2anc 584 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)(𝑦𝑧)) = (𝑥 ∘ (𝑦𝑧)))
8984, 88eqtrd 2770 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)(𝑦(.r𝐴)𝑧)) = (𝑥 ∘ (𝑦𝑧)))
9075, 81, 893eqtr4a 2796 . 2 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(.r𝐴)𝑦)(.r𝐴)𝑧) = (𝑥(.r𝐴)(𝑦(.r𝐴)𝑧)))
911, 2, 70mendmulr 43208 . . . 4 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ (𝑦f (+g𝑀)𝑧) ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)(𝑦f (+g𝑀)𝑧)) = (𝑥 ∘ (𝑦f (+g𝑀)𝑧)))
9212, 21, 91syl2anc 584 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)(𝑦f (+g𝑀)𝑧)) = (𝑥 ∘ (𝑦f (+g𝑀)𝑧)))
9325oveq2d 7421 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)(𝑦(+g𝐴)𝑧)) = (𝑥(.r𝐴)(𝑦f (+g𝑀)𝑧)))
94 lmhmco 21001 . . . . . 6 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → (𝑥𝑧) ∈ (𝑀 LMHom 𝑀))
9512, 15, 94syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥𝑧) ∈ (𝑀 LMHom 𝑀))
961, 2, 6, 7mendplusg 43206 . . . . 5 (((𝑥𝑦) ∈ (𝑀 LMHom 𝑀) ∧ (𝑥𝑧) ∈ (𝑀 LMHom 𝑀)) → ((𝑥𝑦)(+g𝐴)(𝑥𝑧)) = ((𝑥𝑦) ∘f (+g𝑀)(𝑥𝑧)))
9778, 95, 96syl2anc 584 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥𝑦)(+g𝐴)(𝑥𝑧)) = ((𝑥𝑦) ∘f (+g𝑀)(𝑥𝑧)))
981, 2, 70mendmulr 43208 . . . . . 6 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)𝑧) = (𝑥𝑧))
9912, 15, 98syl2anc 584 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)𝑧) = (𝑥𝑧))
10076, 99oveq12d 7423 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(.r𝐴)𝑦)(+g𝐴)(𝑥(.r𝐴)𝑧)) = ((𝑥𝑦)(+g𝐴)(𝑥𝑧)))
101 lmghm 20989 . . . . . 6 (𝑥 ∈ (𝑀 LMHom 𝑀) → 𝑥 ∈ (𝑀 GrpHom 𝑀))
102 ghmmhm 19209 . . . . . 6 (𝑥 ∈ (𝑀 GrpHom 𝑀) → 𝑥 ∈ (𝑀 MndHom 𝑀))
10312, 101, 1023syl 18 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑥 ∈ (𝑀 MndHom 𝑀))
10430, 6, 6mhmvlin 18779 . . . . 5 ((𝑥 ∈ (𝑀 MndHom 𝑀) ∧ 𝑦 ∈ ((Base‘𝑀) ↑m (Base‘𝑀)) ∧ 𝑧 ∈ ((Base‘𝑀) ↑m (Base‘𝑀))) → (𝑥 ∘ (𝑦f (+g𝑀)𝑧)) = ((𝑥𝑦) ∘f (+g𝑀)(𝑥𝑧)))
105103, 39, 43, 104syl3anc 1373 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥 ∘ (𝑦f (+g𝑀)𝑧)) = ((𝑥𝑦) ∘f (+g𝑀)(𝑥𝑧)))
10697, 100, 1053eqtr4d 2780 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(.r𝐴)𝑦)(+g𝐴)(𝑥(.r𝐴)𝑧)) = (𝑥 ∘ (𝑦f (+g𝑀)𝑧)))
10792, 93, 1063eqtr4d 2780 . 2 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (𝑥(.r𝐴)(𝑦(+g𝐴)𝑧)) = ((𝑥(.r𝐴)𝑦)(+g𝐴)(𝑥(.r𝐴)𝑧)))
1081, 2, 70mendmulr 43208 . . . 4 (((𝑥f (+g𝑀)𝑦) ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀)) → ((𝑥f (+g𝑀)𝑦)(.r𝐴)𝑧) = ((𝑥f (+g𝑀)𝑦) ∘ 𝑧))
10914, 15, 108syl2anc 584 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥f (+g𝑀)𝑦)(.r𝐴)𝑧) = ((𝑥f (+g𝑀)𝑦) ∘ 𝑧))
11018oveq1d 7420 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(+g𝐴)𝑦)(.r𝐴)𝑧) = ((𝑥f (+g𝑀)𝑦)(.r𝐴)𝑧))
1111, 2, 6, 7mendplusg 43206 . . . . 5 (((𝑥𝑧) ∈ (𝑀 LMHom 𝑀) ∧ (𝑦𝑧) ∈ (𝑀 LMHom 𝑀)) → ((𝑥𝑧)(+g𝐴)(𝑦𝑧)) = ((𝑥𝑧) ∘f (+g𝑀)(𝑦𝑧)))
11295, 86, 111syl2anc 584 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥𝑧)(+g𝐴)(𝑦𝑧)) = ((𝑥𝑧) ∘f (+g𝑀)(𝑦𝑧)))
11399, 83oveq12d 7423 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(.r𝐴)𝑧)(+g𝐴)(𝑦(.r𝐴)𝑧)) = ((𝑥𝑧)(+g𝐴)(𝑦𝑧)))
114 ffn 6706 . . . . . 6 (𝑥:(Base‘𝑀)⟶(Base‘𝑀) → 𝑥 Fn (Base‘𝑀))
11512, 31, 1143syl 18 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑥 Fn (Base‘𝑀))
116 ffn 6706 . . . . . 6 (𝑦:(Base‘𝑀)⟶(Base‘𝑀) → 𝑦 Fn (Base‘𝑀))
11713, 36, 1163syl 18 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → 𝑦 Fn (Base‘𝑀))
11833a1i 11 . . . . 5 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → (Base‘𝑀) ∈ V)
119 inidm 4202 . . . . 5 ((Base‘𝑀) ∩ (Base‘𝑀)) = (Base‘𝑀)
120115, 117, 41, 118, 118, 118, 119ofco 7696 . . . 4 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥f (+g𝑀)𝑦) ∘ 𝑧) = ((𝑥𝑧) ∘f (+g𝑀)(𝑦𝑧)))
121112, 113, 1203eqtr4d 2780 . . 3 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(.r𝐴)𝑧)(+g𝐴)(𝑦(.r𝐴)𝑧)) = ((𝑥f (+g𝑀)𝑦) ∘ 𝑧))
122109, 110, 1213eqtr4d 2780 . 2 ((𝑀 ∈ LMod ∧ (𝑥 ∈ (𝑀 LMHom 𝑀) ∧ 𝑦 ∈ (𝑀 LMHom 𝑀) ∧ 𝑧 ∈ (𝑀 LMHom 𝑀))) → ((𝑥(+g𝐴)𝑦)(.r𝐴)𝑧) = ((𝑥(.r𝐴)𝑧)(+g𝐴)(𝑦(.r𝐴)𝑧)))
12330idlmhm 20999 . 2 (𝑀 ∈ LMod → ( I ↾ (Base‘𝑀)) ∈ (𝑀 LMHom 𝑀))
1241, 2, 70mendmulr 43208 . . . 4 ((( I ↾ (Base‘𝑀)) ∈ (𝑀 LMHom 𝑀) ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (( I ↾ (Base‘𝑀))(.r𝐴)𝑥) = (( I ↾ (Base‘𝑀)) ∘ 𝑥))
125123, 124sylan 580 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (( I ↾ (Base‘𝑀))(.r𝐴)𝑥) = (( I ↾ (Base‘𝑀)) ∘ 𝑥))
12631adantl 481 . . . 4 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → 𝑥:(Base‘𝑀)⟶(Base‘𝑀))
127 fcoi2 6753 . . . 4 (𝑥:(Base‘𝑀)⟶(Base‘𝑀) → (( I ↾ (Base‘𝑀)) ∘ 𝑥) = 𝑥)
128126, 127syl 17 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (( I ↾ (Base‘𝑀)) ∘ 𝑥) = 𝑥)
129125, 128eqtrd 2770 . 2 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (( I ↾ (Base‘𝑀))(.r𝐴)𝑥) = 𝑥)
130 id 22 . . . 4 (𝑥 ∈ (𝑀 LMHom 𝑀) → 𝑥 ∈ (𝑀 LMHom 𝑀))
1311, 2, 70mendmulr 43208 . . . 4 ((𝑥 ∈ (𝑀 LMHom 𝑀) ∧ ( I ↾ (Base‘𝑀)) ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)( I ↾ (Base‘𝑀))) = (𝑥 ∘ ( I ↾ (Base‘𝑀))))
132130, 123, 131syl2anr 597 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)( I ↾ (Base‘𝑀))) = (𝑥 ∘ ( I ↾ (Base‘𝑀))))
133 fcoi1 6752 . . . 4 (𝑥:(Base‘𝑀)⟶(Base‘𝑀) → (𝑥 ∘ ( I ↾ (Base‘𝑀))) = 𝑥)
134126, 133syl 17 . . 3 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (𝑥 ∘ ( I ↾ (Base‘𝑀))) = 𝑥)
135132, 134eqtrd 2770 . 2 ((𝑀 ∈ LMod ∧ 𝑥 ∈ (𝑀 LMHom 𝑀)) → (𝑥(.r𝐴)( I ↾ (Base‘𝑀))) = 𝑥)
1363, 4, 5, 69, 74, 90, 107, 122, 123, 129, 135isringd 20251 1 (𝑀 ∈ LMod → 𝐴 ∈ Ring)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3a 1086   = wceq 1540  wcel 2108  Vcvv 3459  {csn 4601   I cid 5547   × cxp 5652  cres 5656  ccom 5658   Fn wfn 6526  wf 6527  cfv 6531  (class class class)co 7405  f cof 7669  m cmap 8840  Basecbs 17228  +gcplusg 17271  .rcmulr 17272  Scalarcsca 17274  0gc0g 17453  Mndcmnd 18712   MndHom cmhm 18759  Grpcgrp 18916  invgcminusg 18917   GrpHom cghm 19195  Ringcrg 20193  LModclmod 20817   LMHom clmhm 20977  MEndocmend 43195
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 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7729  ax-cnex 11185  ax-resscn 11186  ax-1cn 11187  ax-icn 11188  ax-addcl 11189  ax-addrcl 11190  ax-mulcl 11191  ax-mulrcl 11192  ax-mulcom 11193  ax-addass 11194  ax-mulass 11195  ax-distr 11196  ax-i2m1 11197  ax-1ne0 11198  ax-1rid 11199  ax-rnegex 11200  ax-rrecex 11201  ax-cnre 11202  ax-pre-lttri 11203  ax-pre-lttrn 11204  ax-pre-ltadd 11205  ax-pre-mulgt0 11206
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-pss 3946  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-tp 4606  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-tr 5230  df-id 5548  df-eprel 5553  df-po 5561  df-so 5562  df-fr 5606  df-we 5608  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6290  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-riota 7362  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7671  df-om 7862  df-1st 7988  df-2nd 7989  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-er 8719  df-map 8842  df-en 8960  df-dom 8961  df-sdom 8962  df-fin 8963  df-pnf 11271  df-mnf 11272  df-xr 11273  df-ltxr 11274  df-le 11275  df-sub 11468  df-neg 11469  df-nn 12241  df-2 12303  df-3 12304  df-4 12305  df-5 12306  df-6 12307  df-n0 12502  df-z 12589  df-uz 12853  df-fz 13525  df-struct 17166  df-sets 17183  df-slot 17201  df-ndx 17213  df-base 17229  df-plusg 17284  df-mulr 17285  df-sca 17287  df-vsca 17288  df-0g 17455  df-mgm 18618  df-sgrp 18697  df-mnd 18713  df-mhm 18761  df-grp 18919  df-minusg 18920  df-ghm 19196  df-cmn 19763  df-abl 19764  df-mgp 20101  df-rng 20113  df-ur 20142  df-ring 20195  df-lmod 20819  df-lmhm 20980  df-mend 43196
This theorem is referenced by:  mendlmod  43213  mendassa  43214
  Copyright terms: Public domain W3C validator