Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dvalveclem Structured version   Unicode version

Theorem dvalveclem 31885
Description: Lemma for dvalvec 31886. (Contributed by NM, 11-Oct-2013.) (Proof shortened by Mario Carneiro, 22-Jun-2014.)
Hypotheses
Ref Expression
dvalvec.h  |-  H  =  ( LHyp `  K
)
dvalvec.v  |-  U  =  ( ( DVecA `  K
) `  W )
dvalveclem.t  |-  T  =  ( ( LTrn `  K
) `  W )
dvalveclem.a  |-  .+  =  ( +g  `  U )
dvalveclem.e  |-  E  =  ( ( TEndo `  K
) `  W )
dvalveclem.d  |-  D  =  (Scalar `  U )
dvalveclem.b  |-  B  =  ( Base `  K
)
dvalveclem.p  |-  .+^  =  ( +g  `  D )
dvalveclem.m  |-  .X.  =  ( .r `  D )
dvalveclem.s  |-  .x.  =  ( .s `  U )
Assertion
Ref Expression
dvalveclem  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  U  e.  LVec )

Proof of Theorem dvalveclem
Dummy variables  t 
f  a  b  s are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dvalvec.h . . . . 5  |-  H  =  ( LHyp `  K
)
2 dvalveclem.t . . . . 5  |-  T  =  ( ( LTrn `  K
) `  W )
3 dvalvec.v . . . . 5  |-  U  =  ( ( DVecA `  K
) `  W )
4 eqid 2438 . . . . 5  |-  ( Base `  U )  =  (
Base `  U )
51, 2, 3, 4dvavbase 31872 . . . 4  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( Base `  U
)  =  T )
65eqcomd 2443 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  T  =  ( Base `  U ) )
7 dvalveclem.a . . . 4  |-  .+  =  ( +g  `  U )
87a1i 11 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  .+  =  ( +g  `  U ) )
9 dvalveclem.d . . . 4  |-  D  =  (Scalar `  U )
109a1i 11 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  D  =  (Scalar `  U ) )
11 dvalveclem.s . . . 4  |-  .x.  =  ( .s `  U )
1211a1i 11 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  .x.  =  ( .s
`  U ) )
13 dvalveclem.e . . . . 5  |-  E  =  ( ( TEndo `  K
) `  W )
14 eqid 2438 . . . . 5  |-  ( Base `  D )  =  (
Base `  D )
151, 13, 3, 9, 14dvabase 31866 . . . 4  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( Base `  D
)  =  E )
1615eqcomd 2443 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  E  =  ( Base `  D ) )
17 dvalveclem.p . . . 4  |-  .+^  =  ( +g  `  D )
1817a1i 11 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  -> 
.+^  =  ( +g  `  D ) )
19 dvalveclem.m . . . 4  |-  .X.  =  ( .r `  D )
2019a1i 11 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  .X.  =  ( .r
`  D ) )
211, 2, 13tendoidcl 31628 . . . . . . 7  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  (  _I  |`  T )  e.  E )
2221, 16eleqtrd 2514 . . . . . 6  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  (  _I  |`  T )  e.  ( Base `  D
) )
23 dvalveclem.b . . . . . . . 8  |-  B  =  ( Base `  K
)
24 eqid 2438 . . . . . . . 8  |-  ( f  e.  T  |->  (  _I  |`  B ) )  =  ( f  e.  T  |->  (  _I  |`  B ) )
2523, 1, 2, 13, 24tendo1ne0 31687 . . . . . . 7  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  (  _I  |`  T )  =/=  ( f  e.  T  |->  (  _I  |`  B ) ) )
26 eqid 2438 . . . . . . . . . 10  |-  ( (
EDRing `  K ) `  W )  =  ( ( EDRing `  K ) `  W )
271, 26, 3, 9dvasca 31865 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  D  =  ( (
EDRing `  K ) `  W ) )
2827fveq2d 5734 . . . . . . . 8  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( 0g `  D
)  =  ( 0g
`  ( ( EDRing `  K ) `  W
) ) )
29 eqid 2438 . . . . . . . . 9  |-  ( 0g
`  ( ( EDRing `  K ) `  W
) )  =  ( 0g `  ( (
EDRing `  K ) `  W ) )
3023, 1, 2, 26, 24, 29erng0g 31853 . . . . . . . 8  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( 0g `  (
( EDRing `  K ) `  W ) )  =  ( f  e.  T  |->  (  _I  |`  B ) ) )
3128, 30eqtrd 2470 . . . . . . 7  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( 0g `  D
)  =  ( f  e.  T  |->  (  _I  |`  B ) ) )
3225, 31neeqtrrd 2627 . . . . . 6  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  (  _I  |`  T )  =/=  ( 0g `  D ) )
3321, 21jca 520 . . . . . . . 8  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( (  _I  |`  T )  e.  E  /\  (  _I  |`  T )  e.  E ) )
341, 2, 13, 3, 9, 19dvamulr 31871 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( (  _I  |`  T )  e.  E  /\  (  _I  |`  T )  e.  E ) )  ->  ( (  _I  |`  T )  .X.  (  _I  |`  T ) )  =  ( (  _I  |`  T )  o.  (  _I  |`  T ) ) )
3533, 34mpdan 651 . . . . . . 7  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( (  _I  |`  T ) 
.X.  (  _I  |`  T ) )  =  ( (  _I  |`  T )  o.  (  _I  |`  T ) ) )
36 f1oi 5715 . . . . . . . 8  |-  (  _I  |`  T ) : T -1-1-onto-> T
37 f1of 5676 . . . . . . . 8  |-  ( (  _I  |`  T ) : T -1-1-onto-> T  ->  (  _I  |`  T ) : T --> T )
38 fcoi2 5620 . . . . . . . 8  |-  ( (  _I  |`  T ) : T --> T  ->  (
(  _I  |`  T )  o.  (  _I  |`  T ) )  =  (  _I  |`  T ) )
3936, 37, 38mp2b 10 . . . . . . 7  |-  ( (  _I  |`  T )  o.  (  _I  |`  T ) )  =  (  _I  |`  T )
4035, 39syl6eq 2486 . . . . . 6  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( (  _I  |`  T ) 
.X.  (  _I  |`  T ) )  =  (  _I  |`  T ) )
4122, 32, 403jca 1135 . . . . 5  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( (  _I  |`  T )  e.  ( Base `  D
)  /\  (  _I  |`  T )  =/=  ( 0g `  D )  /\  ( (  _I  |`  T ) 
.X.  (  _I  |`  T ) )  =  (  _I  |`  T ) ) )
421, 26erngdv 31852 . . . . . . 7  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( ( EDRing `  K
) `  W )  e.  DivRing )
4327, 42eqeltrd 2512 . . . . . 6  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  D  e.  DivRing )
44 eqid 2438 . . . . . . 7  |-  ( 0g
`  D )  =  ( 0g `  D
)
45 eqid 2438 . . . . . . 7  |-  ( 1r
`  D )  =  ( 1r `  D
)
4614, 19, 44, 45drngid2 15853 . . . . . 6  |-  ( D  e.  DivRing  ->  ( ( (  _I  |`  T )  e.  ( Base `  D
)  /\  (  _I  |`  T )  =/=  ( 0g `  D )  /\  ( (  _I  |`  T ) 
.X.  (  _I  |`  T ) )  =  (  _I  |`  T ) )  <->  ( 1r `  D )  =  (  _I  |`  T )
) )
4743, 46syl 16 . . . . 5  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( ( (  _I  |`  T )  e.  (
Base `  D )  /\  (  _I  |`  T )  =/=  ( 0g `  D )  /\  (
(  _I  |`  T ) 
.X.  (  _I  |`  T ) )  =  (  _I  |`  T ) )  <->  ( 1r `  D )  =  (  _I  |`  T )
) )
4841, 47mpbid 203 . . . 4  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( 1r `  D
)  =  (  _I  |`  T ) )
4948eqcomd 2443 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  (  _I  |`  T )  =  ( 1r `  D ) )
50 drngrng 15844 . . . 4  |-  ( D  e.  DivRing  ->  D  e.  Ring )
5143, 50syl 16 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  D  e.  Ring )
521, 3dvaabl 31884 . . . 4  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  U  e.  Abel )
53 ablgrp 15419 . . . 4  |-  ( U  e.  Abel  ->  U  e. 
Grp )
5452, 53syl 16 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  U  e.  Grp )
551, 2, 13, 3, 11dvavsca 31876 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T ) )  -> 
( s  .x.  t
)  =  ( s `
 t ) )
56553impb 1150 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  T
)  ->  ( s  .x.  t )  =  ( s `  t ) )
571, 2, 13tendocl 31626 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  T
)  ->  ( s `  t )  e.  T
)
5856, 57eqeltrd 2512 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  T
)  ->  ( s  .x.  t )  e.  T
)
591, 2, 13tendospdi1 31880 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s `  (
t  o.  f ) )  =  ( ( s `  t )  o.  ( s `  f ) ) )
60 simpr1 964 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
s  e.  E )
611, 2ltrnco 31578 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  t  e.  T  /\  f  e.  T
)  ->  ( t  o.  f )  e.  T
)
62613adant3r1 1163 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( t  o.  f
)  e.  T )
6360, 62jca 520 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s  e.  E  /\  ( t  o.  f
)  e.  T ) )
641, 2, 13, 3, 11dvavsca 31876 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  ( t  o.  f )  e.  T ) )  -> 
( s  .x.  (
t  o.  f ) )  =  ( s `
 ( t  o.  f ) ) )
6563, 64syldan 458 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s  .x.  (
t  o.  f ) )  =  ( s `
 ( t  o.  f ) ) )
66573adant3r3 1165 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s `  t
)  e.  T )
671, 2, 13tendocl 31626 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  f  e.  T
)  ->  ( s `  f )  e.  T
)
68673adant3r2 1164 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s `  f
)  e.  T )
6966, 68jca 520 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( ( s `  t )  e.  T  /\  ( s `  f
)  e.  T ) )
701, 2, 3, 7dvavadd 31874 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( s `
 t )  e.  T  /\  ( s `
 f )  e.  T ) )  -> 
( ( s `  t )  .+  (
s `  f )
)  =  ( ( s `  t )  o.  ( s `  f ) ) )
7169, 70syldan 458 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( ( s `  t )  .+  (
s `  f )
)  =  ( ( s `  t )  o.  ( s `  f ) ) )
7259, 65, 713eqtr4d 2480 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s  .x.  (
t  o.  f ) )  =  ( ( s `  t ) 
.+  ( s `  f ) ) )
731, 2, 3, 7dvavadd 31874 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( t  e.  T  /\  f  e.  T ) )  -> 
( t  .+  f
)  =  ( t  o.  f ) )
74733adantr1 1117 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( t  .+  f
)  =  ( t  o.  f ) )
7574oveq2d 6099 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s  .x.  (
t  .+  f )
)  =  ( s 
.x.  ( t  o.  f ) ) )
76553adantr3 1119 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s  .x.  t
)  =  ( s `
 t ) )
771, 2, 13, 3, 11dvavsca 31876 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  f  e.  T ) )  -> 
( s  .x.  f
)  =  ( s `
 f ) )
78773adantr2 1118 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s  .x.  f
)  =  ( s `
 f ) )
7976, 78oveq12d 6101 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( ( s  .x.  t )  .+  (
s  .x.  f )
)  =  ( ( s `  t ) 
.+  ( s `  f ) ) )
8072, 75, 793eqtr4d 2480 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  T  /\  f  e.  T ) )  -> 
( s  .x.  (
t  .+  f )
)  =  ( ( s  .x.  t ) 
.+  ( s  .x.  f ) ) )
811, 2, 13, 3, 9, 17dvaplusgv 31869 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .+^  t ) `  f
)  =  ( ( s `  f )  o.  ( t `  f ) ) )
821, 2, 13, 3, 9, 17dvafplusg 31867 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  W  e.  H )  -> 
.+^  =  ( a  e.  E ,  b  e.  E  |->  ( f  e.  T  |->  ( ( a `  f )  o.  ( b `  f ) ) ) ) )
83823ad2ant1 979 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  E
)  ->  .+^  =  ( a  e.  E , 
b  e.  E  |->  ( f  e.  T  |->  ( ( a `  f
)  o.  ( b `
 f ) ) ) ) )
8483oveqd 6100 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  E
)  ->  ( s  .+^  t )  =  ( s ( a  e.  E ,  b  e.  E  |->  ( f  e.  T  |->  ( ( a `
 f )  o.  ( b `  f
) ) ) ) t ) )
85 eqid 2438 . . . . . . . . 9  |-  ( a  e.  E ,  b  e.  E  |->  ( f  e.  T  |->  ( ( a `  f )  o.  ( b `  f ) ) ) )  =  ( a  e.  E ,  b  e.  E  |->  ( f  e.  T  |->  ( ( a `  f )  o.  ( b `  f ) ) ) )
861, 2, 13, 85tendoplcl 31640 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  E
)  ->  ( s
( a  e.  E ,  b  e.  E  |->  ( f  e.  T  |->  ( ( a `  f )  o.  (
b `  f )
) ) ) t )  e.  E )
8784, 86eqeltrd 2512 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  E
)  ->  ( s  .+^  t )  e.  E
)
88873adant3r3 1165 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s  .+^  t )  e.  E )
89 simpr3 966 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
f  e.  T )
9088, 89jca 520 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .+^  t )  e.  E  /\  f  e.  T
) )
911, 2, 13, 3, 11dvavsca 31876 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( s 
.+^  t )  e.  E  /\  f  e.  T ) )  -> 
( ( s  .+^  t )  .x.  f
)  =  ( ( s  .+^  t ) `  f ) )
9290, 91syldan 458 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .+^  t )  .x.  f
)  =  ( ( s  .+^  t ) `  f ) )
93773adantr2 1118 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s  .x.  f
)  =  ( s `
 f ) )
941, 2, 13, 3, 11dvavsca 31876 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( t  e.  E  /\  f  e.  T ) )  -> 
( t  .x.  f
)  =  ( t `
 f ) )
95943adantr1 1117 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( t  .x.  f
)  =  ( t `
 f ) )
9693, 95oveq12d 6101 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .x.  f )  .+  (
t  .x.  f )
)  =  ( ( s `  f ) 
.+  ( t `  f ) ) )
97673adant3r2 1164 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s `  f
)  e.  T )
981, 2, 13tendospcl 31878 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  t  e.  E  /\  f  e.  T
)  ->  ( t `  f )  e.  T
)
99983adant3r1 1163 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( t `  f
)  e.  T )
10097, 99jca 520 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s `  f )  e.  T  /\  ( t `  f
)  e.  T ) )
1011, 2, 3, 7dvavadd 31874 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( s `
 f )  e.  T  /\  ( t `
 f )  e.  T ) )  -> 
( ( s `  f )  .+  (
t `  f )
)  =  ( ( s `  f )  o.  ( t `  f ) ) )
102100, 101syldan 458 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s `  f )  .+  (
t `  f )
)  =  ( ( s `  f )  o.  ( t `  f ) ) )
10396, 102eqtrd 2470 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .x.  f )  .+  (
t  .x.  f )
)  =  ( ( s `  f )  o.  ( t `  f ) ) )
10481, 92, 1033eqtr4d 2480 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .+^  t )  .x.  f
)  =  ( ( s  .x.  f ) 
.+  ( t  .x.  f ) ) )
1051, 2, 13tendospass 31879 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  o.  t ) `  f
)  =  ( s `
 ( t `  f ) ) )
1061, 13tendococl 31631 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  t  e.  E
)  ->  ( s  o.  t )  e.  E
)
1071063adant3r3 1165 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s  o.  t
)  e.  E )
108107, 89jca 520 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  o.  t )  e.  E  /\  f  e.  T
) )
1091, 2, 13, 3, 11dvavsca 31876 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( s  o.  t )  e.  E  /\  f  e.  T ) )  -> 
( ( s  o.  t )  .x.  f
)  =  ( ( s  o.  t ) `
 f ) )
110108, 109syldan 458 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  o.  t )  .x.  f
)  =  ( ( s  o.  t ) `
 f ) )
111 simpr1 964 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
s  e.  E )
112111, 99jca 520 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s  e.  E  /\  ( t `  f
)  e.  T ) )
1131, 2, 13, 3, 11dvavsca 31876 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  ( t `
 f )  e.  T ) )  -> 
( s  .x.  (
t `  f )
)  =  ( s `
 ( t `  f ) ) )
114112, 113syldan 458 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s  .x.  (
t `  f )
)  =  ( s `
 ( t `  f ) ) )
115105, 110, 1143eqtr4d 2480 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  o.  t )  .x.  f
)  =  ( s 
.x.  ( t `  f ) ) )
1161, 2, 13, 3, 9, 19dvamulr 31871 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E ) )  -> 
( s  .X.  t
)  =  ( s  o.  t ) )
1171163adantr3 1119 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s  .X.  t
)  =  ( s  o.  t ) )
118117oveq1d 6098 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .X.  t )  .x.  f
)  =  ( ( s  o.  t ) 
.x.  f ) )
11995oveq2d 6099 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( s  .x.  (
t  .x.  f )
)  =  ( s 
.x.  ( t `  f ) ) )
120115, 118, 1193eqtr4d 2480 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( s  e.  E  /\  t  e.  E  /\  f  e.  T ) )  -> 
( ( s  .X.  t )  .x.  f
)  =  ( s 
.x.  ( t  .x.  f ) ) )
12121anim1i 553 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  T
)  ->  ( (  _I  |`  T )  e.  E  /\  s  e.  T ) )
1221, 2, 13, 3, 11dvavsca 31876 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( (  _I  |`  T )  e.  E  /\  s  e.  T
) )  ->  (
(  _I  |`  T ) 
.x.  s )  =  ( (  _I  |`  T ) `
 s ) )
123121, 122syldan 458 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  T
)  ->  ( (  _I  |`  T )  .x.  s )  =  ( (  _I  |`  T ) `
 s ) )
124 fvresi 5926 . . . . 5  |-  ( s  e.  T  ->  (
(  _I  |`  T ) `
 s )  =  s )
125124adantl 454 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  T
)  ->  ( (  _I  |`  T ) `  s )  =  s )
126123, 125eqtrd 2470 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  T
)  ->  ( (  _I  |`  T )  .x.  s )  =  s )
1276, 8, 10, 12, 16, 18, 20, 49, 51, 54, 58, 80, 104, 120, 126islmodd 15958 . 2  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  U  e.  LMod )
1289islvec 16178 . 2  |-  ( U  e.  LVec  <->  ( U  e. 
LMod  /\  D  e.  DivRing ) )
129127, 43, 128sylanbrc 647 1  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  U  e.  LVec )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 178    /\ wa 360    /\ w3a 937    = wceq 1653    e. wcel 1726    =/= wne 2601    e. cmpt 4268    _I cid 4495    |` cres 4882    o. ccom 4884   -->wf 5452   -1-1-onto->wf1o 5455   ` cfv 5456  (class class class)co 6083    e. cmpt2 6085   Basecbs 13471   +g cplusg 13531   .rcmulr 13532  Scalarcsca 13534   .scvsca 13535   0gc0g 13725   Grpcgrp 14687   Abelcabel 15415   Ringcrg 15662   1rcur 15664   DivRingcdr 15837   LModclmod 15952   LVecclvec 16176   HLchlt 30210   LHypclh 30843   LTrncltrn 30960   TEndoctendo 31611   EDRingcedring 31612   DVecAcdveca 31861
This theorem is referenced by:  dvalvec  31886
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1556  ax-5 1567  ax-17 1627  ax-9 1667  ax-8 1688  ax-13 1728  ax-14 1730  ax-6 1745  ax-7 1750  ax-11 1762  ax-12 1951  ax-ext 2419  ax-rep 4322  ax-sep 4332  ax-nul 4340  ax-pow 4379  ax-pr 4405  ax-un 4703  ax-cnex 9048  ax-resscn 9049  ax-1cn 9050  ax-icn 9051  ax-addcl 9052  ax-addrcl 9053  ax-mulcl 9054  ax-mulrcl 9055  ax-mulcom 9056  ax-addass 9057  ax-mulass 9058  ax-distr 9059  ax-i2m1 9060  ax-1ne0 9061  ax-1rid 9062  ax-rnegex 9063  ax-rrecex 9064  ax-cnre 9065  ax-pre-lttri 9066  ax-pre-lttrn 9067  ax-pre-ltadd 9068  ax-pre-mulgt0 9069
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 938  df-3an 939  df-tru 1329  df-fal 1330  df-ex 1552  df-nf 1555  df-sb 1660  df-eu 2287  df-mo 2288  df-clab 2425  df-cleq 2431  df-clel 2434  df-nfc 2563  df-ne 2603  df-nel 2604  df-ral 2712  df-rex 2713  df-reu 2714  df-rmo 2715  df-rab 2716  df-v 2960  df-sbc 3164  df-csb 3254  df-dif 3325  df-un 3327  df-in 3329  df-ss 3336  df-pss 3338  df-nul 3631  df-if 3742  df-pw 3803  df-sn 3822  df-pr 3823  df-tp 3824  df-op 3825  df-uni 4018  df-int 4053  df-iun 4097  df-iin 4098  df-br 4215  df-opab 4269  df-mpt 4270  df-tr 4305  df-eprel 4496  df-id 4500  df-po 4505  df-so 4506  df-fr 4543  df-we 4545  df-ord 4586  df-on 4587  df-lim 4588  df-suc 4589  df-om 4848  df-xp 4886  df-rel 4887  df-cnv 4888  df-co 4889  df-dm 4890  df-rn 4891  df-res 4892  df-ima 4893  df-iota 5420  df-fun 5458  df-fn 5459  df-f 5460  df-f1 5461  df-fo 5462  df-f1o 5463  df-fv 5464  df-ov 6086  df-oprab 6087  df-mpt2 6088  df-1st 6351  df-2nd 6352  df-tpos 6481  df-undef 6545  df-riota 6551  df-recs 6635  df-rdg 6670  df-1o 6726  df-oadd 6730  df-er 6907  df-map 7022  df-en 7112  df-dom 7113  df-sdom 7114  df-fin 7115  df-pnf 9124  df-mnf 9125  df-xr 9126  df-ltxr 9127  df-le 9128  df-sub 9295  df-neg 9296  df-nn 10003  df-2 10060  df-3 10061  df-4 10062  df-5 10063  df-6 10064  df-n0 10224  df-z 10285  df-uz 10491  df-fz 11046  df-struct 13473  df-ndx 13474  df-slot 13475  df-base 13476  df-sets 13477  df-ress 13478  df-plusg 13544  df-mulr 13545  df-sca 13547  df-vsca 13548  df-0g 13729  df-poset 14405  df-plt 14417  df-lub 14433  df-glb 14434  df-join 14435  df-meet 14436  df-p0 14470  df-p1 14471  df-lat 14477  df-clat 14539  df-mnd 14692  df-grp 14814  df-minusg 14815  df-cmn 15416  df-abl 15417  df-mgp 15651  df-rng 15665  df-ur 15667  df-oppr 15730  df-dvdsr 15748  df-unit 15749  df-invr 15779  df-dvr 15790  df-drng 15839  df-lmod 15954  df-lvec 16177  df-oposet 30036  df-ol 30038  df-oml 30039  df-covers 30126  df-ats 30127  df-atl 30158  df-cvlat 30182  df-hlat 30211  df-llines 30357  df-lplanes 30358  df-lvols 30359  df-lines 30360  df-psubsp 30362  df-pmap 30363  df-padd 30655  df-lhyp 30847  df-laut 30848  df-ldil 30963  df-ltrn 30964  df-trl 31018  df-tgrp 31602  df-tendo 31614  df-edring 31616  df-dveca 31862
  Copyright terms: Public domain W3C validator