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

Theorem mendassa 29476
Description: The module endomorphism algebra is an algebra. (Contributed by Mario Carneiro, 22-Sep-2015.)
Hypotheses
Ref Expression
mendassa.a  |-  A  =  (MEndo `  M )
mendassa.s  |-  S  =  (Scalar `  M )
Assertion
Ref Expression
mendassa  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  A  e. AssAlg )

Proof of Theorem mendassa
Dummy variables  x  y  z  v  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mendassa.a . . . 4  |-  A  =  (MEndo `  M )
21mendbas 29466 . . 3  |-  ( M LMHom 
M )  =  (
Base `  A )
32a1i 11 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  ( M LMHom  M )  =  (
Base `  A )
)
4 mendassa.s . . . 4  |-  S  =  (Scalar `  M )
51, 4mendsca 29471 . . 3  |-  S  =  (Scalar `  A )
65a1i 11 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  S  =  (Scalar `  A )
)
7 eqidd 2442 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  ( Base `  S )  =  ( Base `  S
) )
8 eqidd 2442 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  ( .s `  A )  =  ( .s `  A
) )
9 eqidd 2442 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  ( .r `  A )  =  ( .r `  A
) )
101, 4mendlmod 29475 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  A  e.  LMod )
111mendrng 29474 . . 3  |-  ( M  e.  LMod  ->  A  e. 
Ring )
1211adantr 462 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  A  e.  Ring )
13 simpr 458 . 2  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  S  e.  CRing )
14 simpr3 991 . . . . . . 7  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  z  e.  ( M LMHom  M ) )
15 eqid 2441 . . . . . . . 8  |-  ( Base `  M )  =  (
Base `  M )
1615, 15lmhmf 17093 . . . . . . 7  |-  ( z  e.  ( M LMHom  M
)  ->  z :
( Base `  M ) --> ( Base `  M )
)
1714, 16syl 16 . . . . . 6  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  z : ( Base `  M
) --> ( Base `  M
) )
1817ffvelrnda 5840 . . . . 5  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  -> 
( z `  v
)  e.  ( Base `  M ) )
1917feqmptd 5741 . . . . 5  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  z  =  ( v  e.  ( Base `  M
)  |->  ( z `  v ) ) )
20 simpr1 989 . . . . . . 7  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  x  e.  ( Base `  S
) )
21 simpr2 990 . . . . . . 7  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  y  e.  ( M LMHom  M ) )
22 eqid 2441 . . . . . . . 8  |-  ( .s
`  M )  =  ( .s `  M
)
23 eqid 2441 . . . . . . . 8  |-  ( Base `  S )  =  (
Base `  S )
24 eqid 2441 . . . . . . . 8  |-  ( .s
`  A )  =  ( .s `  A
)
251, 22, 2, 4, 23, 15, 24mendvsca 29473 . . . . . . 7  |-  ( ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M ) )  ->  ( x
( .s `  A
) y )  =  ( ( ( Base `  M )  X.  {
x } )  oF ( .s `  M ) y ) )
2620, 21, 25syl2anc 656 . . . . . 6  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
x ( .s `  A ) y )  =  ( ( (
Base `  M )  X.  { x } )  oF ( .s
`  M ) y ) )
27 fvex 5698 . . . . . . . 8  |-  ( Base `  M )  e.  _V
2827a1i 11 . . . . . . 7  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  ( Base `  M )  e. 
_V )
29 simplr1 1025 . . . . . . 7  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  w  e.  ( Base `  M ) )  ->  x  e.  ( Base `  S ) )
30 fvex 5698 . . . . . . . 8  |-  ( y `
 w )  e. 
_V
3130a1i 11 . . . . . . 7  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  w  e.  ( Base `  M ) )  -> 
( y `  w
)  e.  _V )
32 fconstmpt 4878 . . . . . . . 8  |-  ( (
Base `  M )  X.  { x } )  =  ( w  e.  ( Base `  M
)  |->  x )
3332a1i 11 . . . . . . 7  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( Base `  M )  X.  { x } )  =  ( w  e.  ( Base `  M
)  |->  x ) )
3415, 15lmhmf 17093 . . . . . . . . 9  |-  ( y  e.  ( M LMHom  M
)  ->  y :
( Base `  M ) --> ( Base `  M )
)
3521, 34syl 16 . . . . . . . 8  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  y : ( Base `  M
) --> ( Base `  M
) )
3635feqmptd 5741 . . . . . . 7  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  y  =  ( w  e.  ( Base `  M
)  |->  ( y `  w ) ) )
3728, 29, 31, 33, 36offval2 6335 . . . . . 6  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( ( Base `  M
)  X.  { x } )  oF ( .s `  M
) y )  =  ( w  e.  (
Base `  M )  |->  ( x ( .s
`  M ) ( y `  w ) ) ) )
3826, 37eqtrd 2473 . . . . 5  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
x ( .s `  A ) y )  =  ( w  e.  ( Base `  M
)  |->  ( x ( .s `  M ) ( y `  w
) ) ) )
39 fveq2 5688 . . . . . 6  |-  ( w  =  ( z `  v )  ->  (
y `  w )  =  ( y `  ( z `  v
) ) )
4039oveq2d 6106 . . . . 5  |-  ( w  =  ( z `  v )  ->  (
x ( .s `  M ) ( y `
 w ) )  =  ( x ( .s `  M ) ( y `  (
z `  v )
) ) )
4118, 19, 38, 40fmptco 5873 . . . 4  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( x ( .s
`  A ) y )  o.  z )  =  ( v  e.  ( Base `  M
)  |->  ( x ( .s `  M ) ( y `  (
z `  v )
) ) ) )
42 simplr1 1025 . . . . 5  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  ->  x  e.  ( Base `  S ) )
43 fvex 5698 . . . . . 6  |-  ( y `
 ( z `  v ) )  e. 
_V
4443a1i 11 . . . . 5  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  -> 
( y `  (
z `  v )
)  e.  _V )
45 fconstmpt 4878 . . . . . 6  |-  ( (
Base `  M )  X.  { x } )  =  ( v  e.  ( Base `  M
)  |->  x )
4645a1i 11 . . . . 5  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( Base `  M )  X.  { x } )  =  ( v  e.  ( Base `  M
)  |->  x ) )
47 eqid 2441 . . . . . . . 8  |-  ( .r
`  A )  =  ( .r `  A
)
481, 2, 47mendmulr 29470 . . . . . . 7  |-  ( ( y  e.  ( M LMHom 
M )  /\  z  e.  ( M LMHom  M ) )  ->  ( y
( .r `  A
) z )  =  ( y  o.  z
) )
4921, 14, 48syl2anc 656 . . . . . 6  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y ( .r `  A ) z )  =  ( y  o.  z ) )
50 fcompt 5876 . . . . . . 7  |-  ( ( y : ( Base `  M ) --> ( Base `  M )  /\  z : ( Base `  M
) --> ( Base `  M
) )  ->  (
y  o.  z )  =  ( v  e.  ( Base `  M
)  |->  ( y `  ( z `  v
) ) ) )
5135, 17, 50syl2anc 656 . . . . . 6  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y  o.  z )  =  ( v  e.  ( Base `  M
)  |->  ( y `  ( z `  v
) ) ) )
5249, 51eqtrd 2473 . . . . 5  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y ( .r `  A ) z )  =  ( v  e.  ( Base `  M
)  |->  ( y `  ( z `  v
) ) ) )
5328, 42, 44, 46, 52offval2 6335 . . . 4  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( ( Base `  M
)  X.  { x } )  oF ( .s `  M
) ( y ( .r `  A ) z ) )  =  ( v  e.  (
Base `  M )  |->  ( x ( .s
`  M ) ( y `  ( z `
 v ) ) ) ) )
5441, 53eqtr4d 2476 . . 3  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( x ( .s
`  A ) y )  o.  z )  =  ( ( (
Base `  M )  X.  { x } )  oF ( .s
`  M ) ( y ( .r `  A ) z ) ) )
5510adantr 462 . . . . 5  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  A  e.  LMod )
562, 5, 24, 23lmodvscl 16945 . . . . 5  |-  ( ( A  e.  LMod  /\  x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M ) )  ->  ( x ( .s `  A ) y )  e.  ( M LMHom  M ) )
5755, 20, 21, 56syl3anc 1213 . . . 4  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
x ( .s `  A ) y )  e.  ( M LMHom  M
) )
581, 2, 47mendmulr 29470 . . . 4  |-  ( ( ( x ( .s
`  A ) y )  e.  ( M LMHom 
M )  /\  z  e.  ( M LMHom  M ) )  ->  ( (
x ( .s `  A ) y ) ( .r `  A
) z )  =  ( ( x ( .s `  A ) y )  o.  z
) )
5957, 14, 58syl2anc 656 . . 3  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( x ( .s
`  A ) y ) ( .r `  A ) z )  =  ( ( x ( .s `  A
) y )  o.  z ) )
6012adantr 462 . . . . 5  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  A  e.  Ring )
612, 47rngcl 16648 . . . . 5  |-  ( ( A  e.  Ring  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) )  ->  ( y ( .r `  A ) z )  e.  ( M LMHom  M ) )
6260, 21, 14, 61syl3anc 1213 . . . 4  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y ( .r `  A ) z )  e.  ( M LMHom  M
) )
631, 22, 2, 4, 23, 15, 24mendvsca 29473 . . . 4  |-  ( ( x  e.  ( Base `  S )  /\  (
y ( .r `  A ) z )  e.  ( M LMHom  M
) )  ->  (
x ( .s `  A ) ( y ( .r `  A
) z ) )  =  ( ( (
Base `  M )  X.  { x } )  oF ( .s
`  M ) ( y ( .r `  A ) z ) ) )
6420, 62, 63syl2anc 656 . . 3  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
x ( .s `  A ) ( y ( .r `  A
) z ) )  =  ( ( (
Base `  M )  X.  { x } )  oF ( .s
`  M ) ( y ( .r `  A ) z ) ) )
6554, 59, 643eqtr4d 2483 . 2  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( x ( .s
`  A ) y ) ( .r `  A ) z )  =  ( x ( .s `  A ) ( y ( .r
`  A ) z ) ) )
66 simplr2 1026 . . . . . 6  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  -> 
y  e.  ( M LMHom 
M ) )
674, 23, 15, 22, 22lmhmlin 17094 . . . . . 6  |-  ( ( y  e.  ( M LMHom 
M )  /\  x  e.  ( Base `  S
)  /\  ( z `  v )  e.  (
Base `  M )
)  ->  ( y `  ( x ( .s
`  M ) ( z `  v ) ) )  =  ( x ( .s `  M ) ( y `
 ( z `  v ) ) ) )
6866, 42, 18, 67syl3anc 1213 . . . . 5  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  -> 
( y `  (
x ( .s `  M ) ( z `
 v ) ) )  =  ( x ( .s `  M
) ( y `  ( z `  v
) ) ) )
6968mpteq2dva 4375 . . . 4  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
v  e.  ( Base `  M )  |->  ( y `
 ( x ( .s `  M ) ( z `  v
) ) ) )  =  ( v  e.  ( Base `  M
)  |->  ( x ( .s `  M ) ( y `  (
z `  v )
) ) ) )
70 simplll 752 . . . . . 6  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  ->  M  e.  LMod )
7115, 4, 22, 23lmodvscl 16945 . . . . . 6  |-  ( ( M  e.  LMod  /\  x  e.  ( Base `  S
)  /\  ( z `  v )  e.  (
Base `  M )
)  ->  ( x
( .s `  M
) ( z `  v ) )  e.  ( Base `  M
) )
7270, 42, 18, 71syl3anc 1213 . . . . 5  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  -> 
( x ( .s
`  M ) ( z `  v ) )  e.  ( Base `  M ) )
731, 22, 2, 4, 23, 15, 24mendvsca 29473 . . . . . . 7  |-  ( ( x  e.  ( Base `  S )  /\  z  e.  ( M LMHom  M ) )  ->  ( x
( .s `  A
) z )  =  ( ( ( Base `  M )  X.  {
x } )  oF ( .s `  M ) z ) )
7420, 14, 73syl2anc 656 . . . . . 6  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
x ( .s `  A ) z )  =  ( ( (
Base `  M )  X.  { x } )  oF ( .s
`  M ) z ) )
75 fvex 5698 . . . . . . . 8  |-  ( z `
 v )  e. 
_V
7675a1i 11 . . . . . . 7  |-  ( ( ( ( M  e. 
LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S
)  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  /\  v  e.  ( Base `  M ) )  -> 
( z `  v
)  e.  _V )
7728, 42, 76, 46, 19offval2 6335 . . . . . 6  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
( ( Base `  M
)  X.  { x } )  oF ( .s `  M
) z )  =  ( v  e.  (
Base `  M )  |->  ( x ( .s
`  M ) ( z `  v ) ) ) )
7874, 77eqtrd 2473 . . . . 5  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
x ( .s `  A ) z )  =  ( v  e.  ( Base `  M
)  |->  ( x ( .s `  M ) ( z `  v
) ) ) )
79 fveq2 5688 . . . . 5  |-  ( w  =  ( x ( .s `  M ) ( z `  v
) )  ->  (
y `  w )  =  ( y `  ( x ( .s
`  M ) ( z `  v ) ) ) )
8072, 78, 36, 79fmptco 5873 . . . 4  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y  o.  ( x ( .s `  A
) z ) )  =  ( v  e.  ( Base `  M
)  |->  ( y `  ( x ( .s
`  M ) ( z `  v ) ) ) ) )
8169, 80, 533eqtr4d 2483 . . 3  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y  o.  ( x ( .s `  A
) z ) )  =  ( ( (
Base `  M )  X.  { x } )  oF ( .s
`  M ) ( y ( .r `  A ) z ) ) )
822, 5, 24, 23lmodvscl 16945 . . . . 5  |-  ( ( A  e.  LMod  /\  x  e.  ( Base `  S
)  /\  z  e.  ( M LMHom  M ) )  ->  ( x ( .s `  A ) z )  e.  ( M LMHom  M ) )
8355, 20, 14, 82syl3anc 1213 . . . 4  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
x ( .s `  A ) z )  e.  ( M LMHom  M
) )
841, 2, 47mendmulr 29470 . . . 4  |-  ( ( y  e.  ( M LMHom 
M )  /\  (
x ( .s `  A ) z )  e.  ( M LMHom  M
) )  ->  (
y ( .r `  A ) ( x ( .s `  A
) z ) )  =  ( y  o.  ( x ( .s
`  A ) z ) ) )
8521, 83, 84syl2anc 656 . . 3  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y ( .r `  A ) ( x ( .s `  A
) z ) )  =  ( y  o.  ( x ( .s
`  A ) z ) ) )
8681, 85, 643eqtr4d 2483 . 2  |-  ( ( ( M  e.  LMod  /\  S  e.  CRing )  /\  ( x  e.  ( Base `  S )  /\  y  e.  ( M LMHom  M )  /\  z  e.  ( M LMHom  M ) ) )  ->  (
y ( .r `  A ) ( x ( .s `  A
) z ) )  =  ( x ( .s `  A ) ( y ( .r
`  A ) z ) ) )
873, 6, 7, 8, 9, 10, 12, 13, 65, 86isassad 17372 1  |-  ( ( M  e.  LMod  /\  S  e.  CRing )  ->  A  e. AssAlg )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 369    /\ w3a 960    = wceq 1364    e. wcel 1761   _Vcvv 2970   {csn 3874    e. cmpt 4347    X. cxp 4834    o. ccom 4840   -->wf 5411   ` cfv 5415  (class class class)co 6090    oFcof 6317   Basecbs 14170   .rcmulr 14235  Scalarcsca 14237   .scvsca 14238   Ringcrg 16635   CRingccrg 16636   LModclmod 16928   LMHom clmhm 17078  AssAlgcasa 17359  MEndocmend 29457
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371  ax-cnex 9334  ax-resscn 9335  ax-1cn 9336  ax-icn 9337  ax-addcl 9338  ax-addrcl 9339  ax-mulcl 9340  ax-mulrcl 9341  ax-mulcom 9342  ax-addass 9343  ax-mulass 9344  ax-distr 9345  ax-i2m1 9346  ax-1ne0 9347  ax-1rid 9348  ax-rnegex 9349  ax-rrecex 9350  ax-cnre 9351  ax-pre-lttri 9352  ax-pre-lttrn 9353  ax-pre-ltadd 9354  ax-pre-mulgt0 9355
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 961  df-3an 962  df-tru 1367  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2261  df-mo 2262  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-nel 2607  df-ral 2718  df-rex 2719  df-reu 2720  df-rmo 2721  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-pss 3341  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-tp 3879  df-op 3881  df-uni 4089  df-int 4126  df-iun 4170  df-br 4290  df-opab 4348  df-mpt 4349  df-tr 4383  df-eprel 4628  df-id 4632  df-po 4637  df-so 4638  df-fr 4675  df-we 4677  df-ord 4718  df-on 4719  df-lim 4720  df-suc 4721  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423  df-riota 6049  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-of 6319  df-om 6476  df-1st 6576  df-2nd 6577  df-recs 6828  df-rdg 6862  df-1o 6916  df-oadd 6920  df-er 7097  df-map 7212  df-en 7307  df-dom 7308  df-sdom 7309  df-fin 7310  df-pnf 9416  df-mnf 9417  df-xr 9418  df-ltxr 9419  df-le 9420  df-sub 9593  df-neg 9594  df-nn 10319  df-2 10376  df-3 10377  df-4 10378  df-5 10379  df-6 10380  df-n0 10576  df-z 10643  df-uz 10858  df-fz 11434  df-struct 14172  df-ndx 14173  df-slot 14174  df-base 14175  df-sets 14176  df-plusg 14247  df-mulr 14248  df-sca 14250  df-vsca 14251  df-0g 14376  df-mnd 15411  df-mhm 15460  df-grp 15538  df-minusg 15539  df-ghm 15738  df-cmn 16272  df-abl 16273  df-mgp 16582  df-ur 16594  df-rng 16637  df-cring 16638  df-lmod 16930  df-lmhm 17081  df-assa 17362  df-mend 29458
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator