Step |
Hyp |
Ref |
Expression |
1 |
|
mendassa.a |
|- A = ( MEndo ` M ) |
2 |
1
|
mendbas |
|- ( M LMHom M ) = ( Base ` A ) |
3 |
2
|
a1i |
|- ( M e. LMod -> ( M LMHom M ) = ( Base ` A ) ) |
4 |
|
eqidd |
|- ( M e. LMod -> ( +g ` A ) = ( +g ` A ) ) |
5 |
|
eqidd |
|- ( M e. LMod -> ( .r ` A ) = ( .r ` A ) ) |
6 |
|
eqid |
|- ( +g ` M ) = ( +g ` M ) |
7 |
|
eqid |
|- ( +g ` A ) = ( +g ` A ) |
8 |
1 2 6 7
|
mendplusg |
|- ( ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x ( +g ` A ) y ) = ( x oF ( +g ` M ) y ) ) |
9 |
6
|
lmhmplusg |
|- ( ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x oF ( +g ` M ) y ) e. ( M LMHom M ) ) |
10 |
8 9
|
eqeltrd |
|- ( ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x ( +g ` A ) y ) e. ( M LMHom M ) ) |
11 |
10
|
3adant1 |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x ( +g ` A ) y ) e. ( M LMHom M ) ) |
12 |
|
simpr1 |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> x e. ( M LMHom M ) ) |
13 |
|
simpr2 |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> y e. ( M LMHom M ) ) |
14 |
12 13 9
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x oF ( +g ` M ) y ) e. ( M LMHom M ) ) |
15 |
|
simpr3 |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> z e. ( M LMHom M ) ) |
16 |
1 2 6 7
|
mendplusg |
|- ( ( ( x oF ( +g ` M ) y ) e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( ( x oF ( +g ` M ) y ) ( +g ` A ) z ) = ( ( x oF ( +g ` M ) y ) oF ( +g ` M ) z ) ) |
17 |
14 15 16
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x oF ( +g ` M ) y ) ( +g ` A ) z ) = ( ( x oF ( +g ` M ) y ) oF ( +g ` M ) z ) ) |
18 |
12 13 8
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( +g ` A ) y ) = ( x oF ( +g ` M ) y ) ) |
19 |
18
|
oveq1d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( +g ` A ) y ) ( +g ` A ) z ) = ( ( x oF ( +g ` M ) y ) ( +g ` A ) z ) ) |
20 |
6
|
lmhmplusg |
|- ( ( y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( y oF ( +g ` M ) z ) e. ( M LMHom M ) ) |
21 |
13 15 20
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( y oF ( +g ` M ) z ) e. ( M LMHom M ) ) |
22 |
1 2 6 7
|
mendplusg |
|- ( ( x e. ( M LMHom M ) /\ ( y oF ( +g ` M ) z ) e. ( M LMHom M ) ) -> ( x ( +g ` A ) ( y oF ( +g ` M ) z ) ) = ( x oF ( +g ` M ) ( y oF ( +g ` M ) z ) ) ) |
23 |
12 21 22
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( +g ` A ) ( y oF ( +g ` M ) z ) ) = ( x oF ( +g ` M ) ( y oF ( +g ` M ) z ) ) ) |
24 |
1 2 6 7
|
mendplusg |
|- ( ( y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( y ( +g ` A ) z ) = ( y oF ( +g ` M ) z ) ) |
25 |
13 15 24
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( y ( +g ` A ) z ) = ( y oF ( +g ` M ) z ) ) |
26 |
25
|
oveq2d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( +g ` A ) ( y ( +g ` A ) z ) ) = ( x ( +g ` A ) ( y oF ( +g ` M ) z ) ) ) |
27 |
|
lmodgrp |
|- ( M e. LMod -> M e. Grp ) |
28 |
27
|
grpmndd |
|- ( M e. LMod -> M e. Mnd ) |
29 |
28
|
adantr |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> M e. Mnd ) |
30 |
|
eqid |
|- ( Base ` M ) = ( Base ` M ) |
31 |
30 30
|
lmhmf |
|- ( x e. ( M LMHom M ) -> x : ( Base ` M ) --> ( Base ` M ) ) |
32 |
12 31
|
syl |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> x : ( Base ` M ) --> ( Base ` M ) ) |
33 |
|
fvex |
|- ( Base ` M ) e. _V |
34 |
33 33
|
elmap |
|- ( x e. ( ( Base ` M ) ^m ( Base ` M ) ) <-> x : ( Base ` M ) --> ( Base ` M ) ) |
35 |
32 34
|
sylibr |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> x e. ( ( Base ` M ) ^m ( Base ` M ) ) ) |
36 |
30 30
|
lmhmf |
|- ( y e. ( M LMHom M ) -> y : ( Base ` M ) --> ( Base ` M ) ) |
37 |
13 36
|
syl |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> y : ( Base ` M ) --> ( Base ` M ) ) |
38 |
33 33
|
elmap |
|- ( y e. ( ( Base ` M ) ^m ( Base ` M ) ) <-> y : ( Base ` M ) --> ( Base ` M ) ) |
39 |
37 38
|
sylibr |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> y e. ( ( Base ` M ) ^m ( Base ` M ) ) ) |
40 |
30 30
|
lmhmf |
|- ( z e. ( M LMHom M ) -> z : ( Base ` M ) --> ( Base ` M ) ) |
41 |
15 40
|
syl |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> z : ( Base ` M ) --> ( Base ` M ) ) |
42 |
33 33
|
elmap |
|- ( z e. ( ( Base ` M ) ^m ( Base ` M ) ) <-> z : ( Base ` M ) --> ( Base ` M ) ) |
43 |
41 42
|
sylibr |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> z e. ( ( Base ` M ) ^m ( Base ` M ) ) ) |
44 |
30 6
|
mndvass |
|- ( ( M e. Mnd /\ ( x e. ( ( Base ` M ) ^m ( Base ` M ) ) /\ y e. ( ( Base ` M ) ^m ( Base ` M ) ) /\ z e. ( ( Base ` M ) ^m ( Base ` M ) ) ) ) -> ( ( x oF ( +g ` M ) y ) oF ( +g ` M ) z ) = ( x oF ( +g ` M ) ( y oF ( +g ` M ) z ) ) ) |
45 |
29 35 39 43 44
|
syl13anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x oF ( +g ` M ) y ) oF ( +g ` M ) z ) = ( x oF ( +g ` M ) ( y oF ( +g ` M ) z ) ) ) |
46 |
23 26 45
|
3eqtr4d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( +g ` A ) ( y ( +g ` A ) z ) ) = ( ( x oF ( +g ` M ) y ) oF ( +g ` M ) z ) ) |
47 |
17 19 46
|
3eqtr4d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( +g ` A ) y ) ( +g ` A ) z ) = ( x ( +g ` A ) ( y ( +g ` A ) z ) ) ) |
48 |
|
id |
|- ( M e. LMod -> M e. LMod ) |
49 |
|
eqidd |
|- ( M e. LMod -> ( Scalar ` M ) = ( Scalar ` M ) ) |
50 |
|
eqid |
|- ( 0g ` M ) = ( 0g ` M ) |
51 |
|
eqid |
|- ( Scalar ` M ) = ( Scalar ` M ) |
52 |
50 30 51 51
|
0lmhm |
|- ( ( M e. LMod /\ M e. LMod /\ ( Scalar ` M ) = ( Scalar ` M ) ) -> ( ( Base ` M ) X. { ( 0g ` M ) } ) e. ( M LMHom M ) ) |
53 |
48 48 49 52
|
syl3anc |
|- ( M e. LMod -> ( ( Base ` M ) X. { ( 0g ` M ) } ) e. ( M LMHom M ) ) |
54 |
1 2 6 7
|
mendplusg |
|- ( ( ( ( Base ` M ) X. { ( 0g ` M ) } ) e. ( M LMHom M ) /\ x e. ( M LMHom M ) ) -> ( ( ( Base ` M ) X. { ( 0g ` M ) } ) ( +g ` A ) x ) = ( ( ( Base ` M ) X. { ( 0g ` M ) } ) oF ( +g ` M ) x ) ) |
55 |
53 54
|
sylan |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( ( Base ` M ) X. { ( 0g ` M ) } ) ( +g ` A ) x ) = ( ( ( Base ` M ) X. { ( 0g ` M ) } ) oF ( +g ` M ) x ) ) |
56 |
31 34
|
sylibr |
|- ( x e. ( M LMHom M ) -> x e. ( ( Base ` M ) ^m ( Base ` M ) ) ) |
57 |
30 6 50
|
mndvlid |
|- ( ( M e. Mnd /\ x e. ( ( Base ` M ) ^m ( Base ` M ) ) ) -> ( ( ( Base ` M ) X. { ( 0g ` M ) } ) oF ( +g ` M ) x ) = x ) |
58 |
28 56 57
|
syl2an |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( ( Base ` M ) X. { ( 0g ` M ) } ) oF ( +g ` M ) x ) = x ) |
59 |
55 58
|
eqtrd |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( ( Base ` M ) X. { ( 0g ` M ) } ) ( +g ` A ) x ) = x ) |
60 |
|
eqid |
|- ( invg ` M ) = ( invg ` M ) |
61 |
60
|
invlmhm |
|- ( M e. LMod -> ( invg ` M ) e. ( M LMHom M ) ) |
62 |
|
lmhmco |
|- ( ( ( invg ` M ) e. ( M LMHom M ) /\ x e. ( M LMHom M ) ) -> ( ( invg ` M ) o. x ) e. ( M LMHom M ) ) |
63 |
61 62
|
sylan |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( invg ` M ) o. x ) e. ( M LMHom M ) ) |
64 |
1 2 6 7
|
mendplusg |
|- ( ( ( ( invg ` M ) o. x ) e. ( M LMHom M ) /\ x e. ( M LMHom M ) ) -> ( ( ( invg ` M ) o. x ) ( +g ` A ) x ) = ( ( ( invg ` M ) o. x ) oF ( +g ` M ) x ) ) |
65 |
63 64
|
sylancom |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( ( invg ` M ) o. x ) ( +g ` A ) x ) = ( ( ( invg ` M ) o. x ) oF ( +g ` M ) x ) ) |
66 |
30 6 60 50
|
grpvlinv |
|- ( ( M e. Grp /\ x e. ( ( Base ` M ) ^m ( Base ` M ) ) ) -> ( ( ( invg ` M ) o. x ) oF ( +g ` M ) x ) = ( ( Base ` M ) X. { ( 0g ` M ) } ) ) |
67 |
27 56 66
|
syl2an |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( ( invg ` M ) o. x ) oF ( +g ` M ) x ) = ( ( Base ` M ) X. { ( 0g ` M ) } ) ) |
68 |
65 67
|
eqtrd |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( ( invg ` M ) o. x ) ( +g ` A ) x ) = ( ( Base ` M ) X. { ( 0g ` M ) } ) ) |
69 |
3 4 11 47 53 59 63 68
|
isgrpd |
|- ( M e. LMod -> A e. Grp ) |
70 |
|
eqid |
|- ( .r ` A ) = ( .r ` A ) |
71 |
1 2 70
|
mendmulr |
|- ( ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x ( .r ` A ) y ) = ( x o. y ) ) |
72 |
|
lmhmco |
|- ( ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x o. y ) e. ( M LMHom M ) ) |
73 |
71 72
|
eqeltrd |
|- ( ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x ( .r ` A ) y ) e. ( M LMHom M ) ) |
74 |
73
|
3adant1 |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) /\ y e. ( M LMHom M ) ) -> ( x ( .r ` A ) y ) e. ( M LMHom M ) ) |
75 |
|
coass |
|- ( ( x o. y ) o. z ) = ( x o. ( y o. z ) ) |
76 |
12 13 71
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) y ) = ( x o. y ) ) |
77 |
76
|
oveq1d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( .r ` A ) y ) ( .r ` A ) z ) = ( ( x o. y ) ( .r ` A ) z ) ) |
78 |
12 13 72
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x o. y ) e. ( M LMHom M ) ) |
79 |
1 2 70
|
mendmulr |
|- ( ( ( x o. y ) e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( ( x o. y ) ( .r ` A ) z ) = ( ( x o. y ) o. z ) ) |
80 |
78 15 79
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x o. y ) ( .r ` A ) z ) = ( ( x o. y ) o. z ) ) |
81 |
77 80
|
eqtrd |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( .r ` A ) y ) ( .r ` A ) z ) = ( ( x o. y ) o. z ) ) |
82 |
1 2 70
|
mendmulr |
|- ( ( y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( y ( .r ` A ) z ) = ( y o. z ) ) |
83 |
13 15 82
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( y ( .r ` A ) z ) = ( y o. z ) ) |
84 |
83
|
oveq2d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) ( y ( .r ` A ) z ) ) = ( x ( .r ` A ) ( y o. z ) ) ) |
85 |
|
lmhmco |
|- ( ( y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( y o. z ) e. ( M LMHom M ) ) |
86 |
13 15 85
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( y o. z ) e. ( M LMHom M ) ) |
87 |
1 2 70
|
mendmulr |
|- ( ( x e. ( M LMHom M ) /\ ( y o. z ) e. ( M LMHom M ) ) -> ( x ( .r ` A ) ( y o. z ) ) = ( x o. ( y o. z ) ) ) |
88 |
12 86 87
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) ( y o. z ) ) = ( x o. ( y o. z ) ) ) |
89 |
84 88
|
eqtrd |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) ( y ( .r ` A ) z ) ) = ( x o. ( y o. z ) ) ) |
90 |
75 81 89
|
3eqtr4a |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( .r ` A ) y ) ( .r ` A ) z ) = ( x ( .r ` A ) ( y ( .r ` A ) z ) ) ) |
91 |
1 2 70
|
mendmulr |
|- ( ( x e. ( M LMHom M ) /\ ( y oF ( +g ` M ) z ) e. ( M LMHom M ) ) -> ( x ( .r ` A ) ( y oF ( +g ` M ) z ) ) = ( x o. ( y oF ( +g ` M ) z ) ) ) |
92 |
12 21 91
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) ( y oF ( +g ` M ) z ) ) = ( x o. ( y oF ( +g ` M ) z ) ) ) |
93 |
25
|
oveq2d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) ( y ( +g ` A ) z ) ) = ( x ( .r ` A ) ( y oF ( +g ` M ) z ) ) ) |
94 |
|
lmhmco |
|- ( ( x e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( x o. z ) e. ( M LMHom M ) ) |
95 |
12 15 94
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x o. z ) e. ( M LMHom M ) ) |
96 |
1 2 6 7
|
mendplusg |
|- ( ( ( x o. y ) e. ( M LMHom M ) /\ ( x o. z ) e. ( M LMHom M ) ) -> ( ( x o. y ) ( +g ` A ) ( x o. z ) ) = ( ( x o. y ) oF ( +g ` M ) ( x o. z ) ) ) |
97 |
78 95 96
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x o. y ) ( +g ` A ) ( x o. z ) ) = ( ( x o. y ) oF ( +g ` M ) ( x o. z ) ) ) |
98 |
1 2 70
|
mendmulr |
|- ( ( x e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( x ( .r ` A ) z ) = ( x o. z ) ) |
99 |
12 15 98
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) z ) = ( x o. z ) ) |
100 |
76 99
|
oveq12d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( .r ` A ) y ) ( +g ` A ) ( x ( .r ` A ) z ) ) = ( ( x o. y ) ( +g ` A ) ( x o. z ) ) ) |
101 |
|
lmghm |
|- ( x e. ( M LMHom M ) -> x e. ( M GrpHom M ) ) |
102 |
|
ghmmhm |
|- ( x e. ( M GrpHom M ) -> x e. ( M MndHom M ) ) |
103 |
12 101 102
|
3syl |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> x e. ( M MndHom M ) ) |
104 |
30 6 6
|
mhmvlin |
|- ( ( x e. ( M MndHom M ) /\ y e. ( ( Base ` M ) ^m ( Base ` M ) ) /\ z e. ( ( Base ` M ) ^m ( Base ` M ) ) ) -> ( x o. ( y oF ( +g ` M ) z ) ) = ( ( x o. y ) oF ( +g ` M ) ( x o. z ) ) ) |
105 |
103 39 43 104
|
syl3anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x o. ( y oF ( +g ` M ) z ) ) = ( ( x o. y ) oF ( +g ` M ) ( x o. z ) ) ) |
106 |
97 100 105
|
3eqtr4d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( .r ` A ) y ) ( +g ` A ) ( x ( .r ` A ) z ) ) = ( x o. ( y oF ( +g ` M ) z ) ) ) |
107 |
92 93 106
|
3eqtr4d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( x ( .r ` A ) ( y ( +g ` A ) z ) ) = ( ( x ( .r ` A ) y ) ( +g ` A ) ( x ( .r ` A ) z ) ) ) |
108 |
1 2 70
|
mendmulr |
|- ( ( ( x oF ( +g ` M ) y ) e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) -> ( ( x oF ( +g ` M ) y ) ( .r ` A ) z ) = ( ( x oF ( +g ` M ) y ) o. z ) ) |
109 |
14 15 108
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x oF ( +g ` M ) y ) ( .r ` A ) z ) = ( ( x oF ( +g ` M ) y ) o. z ) ) |
110 |
18
|
oveq1d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( +g ` A ) y ) ( .r ` A ) z ) = ( ( x oF ( +g ` M ) y ) ( .r ` A ) z ) ) |
111 |
1 2 6 7
|
mendplusg |
|- ( ( ( x o. z ) e. ( M LMHom M ) /\ ( y o. z ) e. ( M LMHom M ) ) -> ( ( x o. z ) ( +g ` A ) ( y o. z ) ) = ( ( x o. z ) oF ( +g ` M ) ( y o. z ) ) ) |
112 |
95 86 111
|
syl2anc |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x o. z ) ( +g ` A ) ( y o. z ) ) = ( ( x o. z ) oF ( +g ` M ) ( y o. z ) ) ) |
113 |
99 83
|
oveq12d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( .r ` A ) z ) ( +g ` A ) ( y ( .r ` A ) z ) ) = ( ( x o. z ) ( +g ` A ) ( y o. z ) ) ) |
114 |
|
ffn |
|- ( x : ( Base ` M ) --> ( Base ` M ) -> x Fn ( Base ` M ) ) |
115 |
12 31 114
|
3syl |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> x Fn ( Base ` M ) ) |
116 |
|
ffn |
|- ( y : ( Base ` M ) --> ( Base ` M ) -> y Fn ( Base ` M ) ) |
117 |
13 36 116
|
3syl |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> y Fn ( Base ` M ) ) |
118 |
33
|
a1i |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( Base ` M ) e. _V ) |
119 |
|
inidm |
|- ( ( Base ` M ) i^i ( Base ` M ) ) = ( Base ` M ) |
120 |
115 117 41 118 118 118 119
|
ofco |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x oF ( +g ` M ) y ) o. z ) = ( ( x o. z ) oF ( +g ` M ) ( y o. z ) ) ) |
121 |
112 113 120
|
3eqtr4d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( .r ` A ) z ) ( +g ` A ) ( y ( .r ` A ) z ) ) = ( ( x oF ( +g ` M ) y ) o. z ) ) |
122 |
109 110 121
|
3eqtr4d |
|- ( ( M e. LMod /\ ( x e. ( M LMHom M ) /\ y e. ( M LMHom M ) /\ z e. ( M LMHom M ) ) ) -> ( ( x ( +g ` A ) y ) ( .r ` A ) z ) = ( ( x ( .r ` A ) z ) ( +g ` A ) ( y ( .r ` A ) z ) ) ) |
123 |
30
|
idlmhm |
|- ( M e. LMod -> ( _I |` ( Base ` M ) ) e. ( M LMHom M ) ) |
124 |
1 2 70
|
mendmulr |
|- ( ( ( _I |` ( Base ` M ) ) e. ( M LMHom M ) /\ x e. ( M LMHom M ) ) -> ( ( _I |` ( Base ` M ) ) ( .r ` A ) x ) = ( ( _I |` ( Base ` M ) ) o. x ) ) |
125 |
123 124
|
sylan |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( _I |` ( Base ` M ) ) ( .r ` A ) x ) = ( ( _I |` ( Base ` M ) ) o. x ) ) |
126 |
31
|
adantl |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> x : ( Base ` M ) --> ( Base ` M ) ) |
127 |
|
fcoi2 |
|- ( x : ( Base ` M ) --> ( Base ` M ) -> ( ( _I |` ( Base ` M ) ) o. x ) = x ) |
128 |
126 127
|
syl |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( _I |` ( Base ` M ) ) o. x ) = x ) |
129 |
125 128
|
eqtrd |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( ( _I |` ( Base ` M ) ) ( .r ` A ) x ) = x ) |
130 |
|
id |
|- ( x e. ( M LMHom M ) -> x e. ( M LMHom M ) ) |
131 |
1 2 70
|
mendmulr |
|- ( ( x e. ( M LMHom M ) /\ ( _I |` ( Base ` M ) ) e. ( M LMHom M ) ) -> ( x ( .r ` A ) ( _I |` ( Base ` M ) ) ) = ( x o. ( _I |` ( Base ` M ) ) ) ) |
132 |
130 123 131
|
syl2anr |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( x ( .r ` A ) ( _I |` ( Base ` M ) ) ) = ( x o. ( _I |` ( Base ` M ) ) ) ) |
133 |
|
fcoi1 |
|- ( x : ( Base ` M ) --> ( Base ` M ) -> ( x o. ( _I |` ( Base ` M ) ) ) = x ) |
134 |
126 133
|
syl |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( x o. ( _I |` ( Base ` M ) ) ) = x ) |
135 |
132 134
|
eqtrd |
|- ( ( M e. LMod /\ x e. ( M LMHom M ) ) -> ( x ( .r ` A ) ( _I |` ( Base ` M ) ) ) = x ) |
136 |
3 4 5 69 74 90 107 122 123 129 135
|
isringd |
|- ( M e. LMod -> A e. Ring ) |