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

Theorem dih1dimatlem0 34567
Description: Lemma for dih1dimat 34569. (Contributed by NM, 11-Apr-2014.)
Hypotheses
Ref Expression
dih1dimat.h  |-  H  =  ( LHyp `  K
)
dih1dimat.u  |-  U  =  ( ( DVecH `  K
) `  W )
dih1dimat.i  |-  I  =  ( ( DIsoH `  K
) `  W )
dih1dimat.a  |-  A  =  (LSAtoms `  U )
dih1dimat.b  |-  B  =  ( Base `  K
)
dih1dimat.l  |-  .<_  =  ( le `  K )
dih1dimat.c  |-  C  =  ( Atoms `  K )
dih1dimat.p  |-  P  =  ( ( oc `  K ) `  W
)
dih1dimat.t  |-  T  =  ( ( LTrn `  K
) `  W )
dih1dimat.r  |-  R  =  ( ( trL `  K
) `  W )
dih1dimat.e  |-  E  =  ( ( TEndo `  K
) `  W )
dih1dimat.o  |-  O  =  ( h  e.  T  |->  (  _I  |`  B ) )
dih1dimat.d  |-  F  =  (Scalar `  U )
dih1dimat.j  |-  J  =  ( invr `  F
)
dih1dimat.v  |-  V  =  ( Base `  U
)
dih1dimat.m  |-  .x.  =  ( .s `  U )
dih1dimat.s  |-  S  =  ( LSubSp `  U )
dih1dimat.n  |-  N  =  ( LSpan `  U )
dih1dimat.z  |-  .0.  =  ( 0g `  U )
dih1dimat.g  |-  G  =  ( iota_ h  e.  T  ( h `  P
)  =  ( ( ( J `  s
) `  f ) `  P ) )
Assertion
Ref Expression
dih1dimatlem0  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  (
( i  =  ( p `  G )  /\  p  e.  E
)  <->  ( ( i  e.  T  /\  p  e.  E )  /\  E. t  e.  E  (
i  =  ( t `
 f )  /\  p  =  ( t  o.  s ) ) ) ) )
Distinct variable groups:    .<_ , h    B, h    f, i, p, s, t, E    t, F    C, h    i, G, p, t    t, h, J   
f, N, s, t   
f, h, K, i, p, s, t    T, f, h, i, p, s, t    U, f, h, s, t    f, H, h, i, p, s, t   
f, V, i, p, s, t    f, W, h, i, p, s, t    f, I, s   
i, O, p, t    P, h    t,  .x.
Allowed substitution hints:    A( t, f, h, i, s, p)    B( t, f, i, s, p)    C( t, f, i, s, p)    P( t,
f, i, s, p)    R( t, f, h, i, s, p)    S( t,
f, h, i, s, p)    .x. ( f, h, i, s, p)    U( i, p)    E( h)    F( f, h, i, s, p)    G( f, h, s)    I( t, h, i, p)    J( f, i, s, p)    .<_ ( t, f, i, s, p)    N( h, i, p)    O( f, h, s)    V( h)    .0. ( t, f, h, i, s, p)

Proof of Theorem dih1dimatlem0
StepHypRef Expression
1 simprl 748 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
i  =  ( p `
 G ) )
2 simpl1 984 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
3 simprr 749 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  ->  p  e.  E )
4 dih1dimat.l . . . . . . . 8  |-  .<_  =  ( le `  K )
5 dih1dimat.c . . . . . . . 8  |-  C  =  ( Atoms `  K )
6 dih1dimat.h . . . . . . . 8  |-  H  =  ( LHyp `  K
)
7 dih1dimat.p . . . . . . . 8  |-  P  =  ( ( oc `  K ) `  W
)
84, 5, 6, 7lhpocnel2 33257 . . . . . . 7  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( P  e.  C  /\  -.  P  .<_  W ) )
92, 8syl 16 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( P  e.  C  /\  -.  P  .<_  W ) )
10 simpl2r 1035 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
s  e.  E )
11 simpl3 986 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
s  =/=  O )
12 dih1dimat.b . . . . . . . . . . 11  |-  B  =  ( Base `  K
)
13 dih1dimat.t . . . . . . . . . . 11  |-  T  =  ( ( LTrn `  K
) `  W )
14 dih1dimat.e . . . . . . . . . . 11  |-  E  =  ( ( TEndo `  K
) `  W )
15 dih1dimat.o . . . . . . . . . . 11  |-  O  =  ( h  e.  T  |->  (  _I  |`  B ) )
16 dih1dimat.u . . . . . . . . . . 11  |-  U  =  ( ( DVecH `  K
) `  W )
17 dih1dimat.d . . . . . . . . . . 11  |-  F  =  (Scalar `  U )
18 dih1dimat.j . . . . . . . . . . 11  |-  J  =  ( invr `  F
)
1912, 6, 13, 14, 15, 16, 17, 18tendoinvcl 34343 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  s  =/=  O
)  ->  ( ( J `  s )  e.  E  /\  ( J `  s )  =/=  O ) )
2019simpld 456 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  s  =/=  O
)  ->  ( J `  s )  e.  E
)
212, 10, 11, 20syl3anc 1211 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( J `  s
)  e.  E )
22 simpl2l 1034 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
f  e.  T )
236, 13, 14tendocl 34005 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( J `  s )  e.  E  /\  f  e.  T
)  ->  ( ( J `  s ) `  f )  e.  T
)
242, 21, 22, 23syl3anc 1211 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( ( J `  s ) `  f
)  e.  T )
254, 5, 6, 13ltrnel 33377 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( J `
 s ) `  f )  e.  T  /\  ( P  e.  C  /\  -.  P  .<_  W ) )  ->  ( (
( ( J `  s ) `  f
) `  P )  e.  C  /\  -.  (
( ( J `  s ) `  f
) `  P )  .<_  W ) )
262, 24, 9, 25syl3anc 1211 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( ( ( ( J `  s ) `
 f ) `  P )  e.  C  /\  -.  ( ( ( J `  s ) `
 f ) `  P )  .<_  W ) )
27 dih1dimat.g . . . . . . 7  |-  G  =  ( iota_ h  e.  T  ( h `  P
)  =  ( ( ( J `  s
) `  f ) `  P ) )
284, 5, 6, 13, 27ltrniotacl 33817 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  C  /\  -.  P  .<_  W )  /\  (
( ( ( J `
 s ) `  f ) `  P
)  e.  C  /\  -.  ( ( ( J `
 s ) `  f ) `  P
)  .<_  W ) )  ->  G  e.  T
)
292, 9, 26, 28syl3anc 1211 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  ->  G  e.  T )
306, 13, 14tendocl 34005 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  p  e.  E  /\  G  e.  T
)  ->  ( p `  G )  e.  T
)
312, 3, 29, 30syl3anc 1211 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( p `  G
)  e.  T )
321, 31eqeltrd 2507 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
i  e.  T )
336, 14tendococl 34010 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  p  e.  E  /\  ( J `  s
)  e.  E )  ->  ( p  o.  ( J `  s
) )  e.  E
)
342, 3, 21, 33syl3anc 1211 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( p  o.  ( J `  s )
)  e.  E )
35 simp1 981 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  ( K  e.  HL  /\  W  e.  H ) )
3683ad2ant1 1002 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  ( P  e.  C  /\  -.  P  .<_  W ) )
37203adant2l 1205 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  ( J `  s )  e.  E )
38 simp2l 1007 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  f  e.  T )
3935, 37, 38, 23syl3anc 1211 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  (
( J `  s
) `  f )  e.  T )
4035, 39, 36, 25syl3anc 1211 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  (
( ( ( J `
 s ) `  f ) `  P
)  e.  C  /\  -.  ( ( ( J `
 s ) `  f ) `  P
)  .<_  W ) )
4135, 36, 40, 28syl3anc 1211 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  G  e.  T )
424, 5, 6, 13, 27ltrniotaval 33819 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  C  /\  -.  P  .<_  W )  /\  (
( ( ( J `
 s ) `  f ) `  P
)  e.  C  /\  -.  ( ( ( J `
 s ) `  f ) `  P
)  .<_  W ) )  ->  ( G `  P )  =  ( ( ( J `  s ) `  f
) `  P )
)
4335, 36, 40, 42syl3anc 1211 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  ( G `  P )  =  ( ( ( J `  s ) `
 f ) `  P ) )
444, 5, 6, 13cdlemd 33445 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  (
( J `  s
) `  f )  e.  T )  /\  ( P  e.  C  /\  -.  P  .<_  W )  /\  ( G `  P )  =  ( ( ( J `  s ) `  f
) `  P )
)  ->  G  =  ( ( J `  s ) `  f
) )
4535, 41, 39, 36, 43, 44syl311anc 1225 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  G  =  ( ( J `
 s ) `  f ) )
4645adantr 462 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  ->  G  =  ( ( J `  s ) `  f ) )
4746fveq2d 5683 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( p `  G
)  =  ( p `
 ( ( J `
 s ) `  f ) ) )
486, 13, 14tendocoval 34004 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( p  e.  E  /\  ( J `
 s )  e.  E )  /\  f  e.  T )  ->  (
( p  o.  ( J `  s )
) `  f )  =  ( p `  ( ( J `  s ) `  f
) ) )
492, 3, 21, 22, 48syl121anc 1216 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( ( p  o.  ( J `  s
) ) `  f
)  =  ( p `
 ( ( J `
 s ) `  f ) ) )
5047, 1, 493eqtr4d 2475 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
i  =  ( ( p  o.  ( J `
 s ) ) `
 f ) )
51 coass 5344 . . . . 5  |-  ( ( p  o.  ( J `
 s ) )  o.  s )  =  ( p  o.  (
( J `  s
)  o.  s ) )
5212, 6, 13, 14, 15, 16, 17, 18tendolinv 34344 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  s  =/=  O
)  ->  ( ( J `  s )  o.  s )  =  (  _I  |`  T )
)
532, 10, 11, 52syl3anc 1211 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( ( J `  s )  o.  s
)  =  (  _I  |`  T ) )
5453coeq2d 4989 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( p  o.  (
( J `  s
)  o.  s ) )  =  ( p  o.  (  _I  |`  T ) ) )
556, 13, 14tendo1mulr 34009 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  p  e.  E
)  ->  ( p  o.  (  _I  |`  T ) )  =  p )
562, 3, 55syl2anc 654 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( p  o.  (  _I  |`  T ) )  =  p )
5754, 56eqtrd 2465 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( p  o.  (
( J `  s
)  o.  s ) )  =  p )
5851, 57syl5req 2478 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  ->  p  =  ( (
p  o.  ( J `
 s ) )  o.  s ) )
59 fveq1 5678 . . . . . . 7  |-  ( t  =  ( p  o.  ( J `  s
) )  ->  (
t `  f )  =  ( ( p  o.  ( J `  s ) ) `  f ) )
6059eqeq2d 2444 . . . . . 6  |-  ( t  =  ( p  o.  ( J `  s
) )  ->  (
i  =  ( t `
 f )  <->  i  =  ( ( p  o.  ( J `  s
) ) `  f
) ) )
61 coeq1 4984 . . . . . . 7  |-  ( t  =  ( p  o.  ( J `  s
) )  ->  (
t  o.  s )  =  ( ( p  o.  ( J `  s ) )  o.  s ) )
6261eqeq2d 2444 . . . . . 6  |-  ( t  =  ( p  o.  ( J `  s
) )  ->  (
p  =  ( t  o.  s )  <->  p  =  ( ( p  o.  ( J `  s
) )  o.  s
) ) )
6360, 62anbi12d 703 . . . . 5  |-  ( t  =  ( p  o.  ( J `  s
) )  ->  (
( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) )  <->  ( i  =  ( ( p  o.  ( J `  s
) ) `  f
)  /\  p  =  ( ( p  o.  ( J `  s
) )  o.  s
) ) ) )
6463rspcev 3062 . . . 4  |-  ( ( ( p  o.  ( J `  s )
)  e.  E  /\  ( i  =  ( ( p  o.  ( J `  s )
) `  f )  /\  p  =  (
( p  o.  ( J `  s )
)  o.  s ) ) )  ->  E. t  e.  E  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )
6534, 50, 58, 64syl12anc 1209 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  ->  E. t  e.  E  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )
6632, 3, 65jca31 531 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  =  ( p `  G )  /\  p  e.  E ) )  -> 
( ( i  e.  T  /\  p  e.  E )  /\  E. t  e.  E  (
i  =  ( t `
 f )  /\  p  =  ( t  o.  s ) ) ) )
67 simp3r 1010 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  p  =  ( t  o.  s ) )
6867fveq1d 5681 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
p `  ( ( J `  s ) `  f ) )  =  ( ( t  o.  s ) `  (
( J `  s
) `  f )
) )
69 simp1l1 1074 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
70 simp2 982 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  t  e.  E )
71 simpl2r 1035 . . . . . . . . . 10  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  -> 
s  e.  E )
72713ad2ant1 1002 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  s  e.  E )
736, 14tendococl 34010 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  t  e.  E  /\  s  e.  E
)  ->  ( t  o.  s )  e.  E
)
7469, 70, 72, 73syl3anc 1211 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
t  o.  s )  e.  E )
75 simp1l3 1076 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  s  =/=  O )
7669, 72, 75, 20syl3anc 1211 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  ( J `  s )  e.  E )
77 simpl2l 1034 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  -> 
f  e.  T )
78773ad2ant1 1002 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  f  e.  T )
796, 13, 14tendocoval 34004 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( t  o.  s )  e.  E  /\  ( J `
 s )  e.  E )  /\  f  e.  T )  ->  (
( ( t  o.  s )  o.  ( J `  s )
) `  f )  =  ( ( t  o.  s ) `  ( ( J `  s ) `  f
) ) )
8069, 74, 76, 78, 79syl121anc 1216 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
( ( t  o.  s )  o.  ( J `  s )
) `  f )  =  ( ( t  o.  s ) `  ( ( J `  s ) `  f
) ) )
81 coass 5344 . . . . . . . . 9  |-  ( ( t  o.  s )  o.  ( J `  s ) )  =  ( t  o.  (
s  o.  ( J `
 s ) ) )
8212, 6, 13, 14, 15, 16, 17, 18tendorinv 34345 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  s  e.  E  /\  s  =/=  O
)  ->  ( s  o.  ( J `  s
) )  =  (  _I  |`  T )
)
8369, 72, 75, 82syl3anc 1211 . . . . . . . . . . 11  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
s  o.  ( J `
 s ) )  =  (  _I  |`  T ) )
8483coeq2d 4989 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
t  o.  ( s  o.  ( J `  s ) ) )  =  ( t  o.  (  _I  |`  T ) ) )
856, 13, 14tendo1mulr 34009 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  t  e.  E
)  ->  ( t  o.  (  _I  |`  T ) )  =  t )
8669, 70, 85syl2anc 654 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
t  o.  (  _I  |`  T ) )  =  t )
8784, 86eqtrd 2465 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
t  o.  ( s  o.  ( J `  s ) ) )  =  t )
8881, 87syl5eq 2477 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
( t  o.  s
)  o.  ( J `
 s ) )  =  t )
8988fveq1d 5681 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
( ( t  o.  s )  o.  ( J `  s )
) `  f )  =  ( t `  f ) )
9068, 80, 893eqtr2rd 2472 . . . . . 6  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
t `  f )  =  ( p `  ( ( J `  s ) `  f
) ) )
91 simp3l 1009 . . . . . 6  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  i  =  ( t `  f ) )
9245adantr 462 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  ->  G  =  ( ( J `  s ) `  f ) )
93923ad2ant1 1002 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  G  =  ( ( J `
 s ) `  f ) )
9493fveq2d 5683 . . . . . 6  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  (
p `  G )  =  ( p `  ( ( J `  s ) `  f
) ) )
9590, 91, 943eqtr4d 2475 . . . . 5  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  /\  t  e.  E  /\  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) )  ->  i  =  ( p `  G ) )
9695rexlimdv3a 2833 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( i  e.  T  /\  p  e.  E ) )  -> 
( E. t  e.  E  ( i  =  ( t `  f
)  /\  p  =  ( t  o.  s
) )  ->  i  =  ( p `  G ) ) )
9796impr 614 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( (
i  e.  T  /\  p  e.  E )  /\  E. t  e.  E  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) ) )  -> 
i  =  ( p `
 G ) )
98 simprlr 755 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( (
i  e.  T  /\  p  e.  E )  /\  E. t  e.  E  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) ) )  ->  p  e.  E )
9997, 98jca 529 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
f  e.  T  /\  s  e.  E )  /\  s  =/=  O
)  /\  ( (
i  e.  T  /\  p  e.  E )  /\  E. t  e.  E  ( i  =  ( t `  f )  /\  p  =  ( t  o.  s ) ) ) )  -> 
( i  =  ( p `  G )  /\  p  e.  E
) )
10066, 99impbida 821 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( f  e.  T  /\  s  e.  E )  /\  s  =/=  O )  ->  (
( i  =  ( p `  G )  /\  p  e.  E
)  <->  ( ( i  e.  T  /\  p  e.  E )  /\  E. t  e.  E  (
i  =  ( t `
 f )  /\  p  =  ( t  o.  s ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 958    = wceq 1362    e. wcel 1755    =/= wne 2596   E.wrex 2706   class class class wbr 4280    e. cmpt 4338    _I cid 4618    |` cres 4829    o. ccom 4831   ` cfv 5406   iota_crio 6038   Basecbs 14157  Scalarcsca 14224   .scvsca 14225   lecple 14228   occoc 14229   0gc0g 14361   invrcinvr 16697   LSubSpclss 16935   LSpanclspn 16974  LSAtomsclsa 32213   Atomscatm 32502   HLchlt 32589   LHypclh 33222   LTrncltrn 33339   trLctrl 33396   TEndoctendo 33990   DVecHcdvh 34317   DIsoHcdih 34467
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1594  ax-4 1605  ax-5 1669  ax-6 1707  ax-7 1727  ax-8 1757  ax-9 1759  ax-10 1774  ax-11 1779  ax-12 1791  ax-13 1942  ax-ext 2414  ax-rep 4391  ax-sep 4401  ax-nul 4409  ax-pow 4458  ax-pr 4519  ax-un 6361  ax-cnex 9326  ax-resscn 9327  ax-1cn 9328  ax-icn 9329  ax-addcl 9330  ax-addrcl 9331  ax-mulcl 9332  ax-mulrcl 9333  ax-mulcom 9334  ax-addass 9335  ax-mulass 9336  ax-distr 9337  ax-i2m1 9338  ax-1ne0 9339  ax-1rid 9340  ax-rnegex 9341  ax-rrecex 9342  ax-cnre 9343  ax-pre-lttri 9344  ax-pre-lttrn 9345  ax-pre-ltadd 9346  ax-pre-mulgt0 9347  ax-riotaBAD 32198
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 959  df-3an 960  df-tru 1365  df-fal 1368  df-ex 1590  df-nf 1593  df-sb 1700  df-eu 2258  df-mo 2259  df-clab 2420  df-cleq 2426  df-clel 2429  df-nfc 2558  df-ne 2598  df-nel 2599  df-ral 2710  df-rex 2711  df-reu 2712  df-rmo 2713  df-rab 2714  df-v 2964  df-sbc 3176  df-csb 3277  df-dif 3319  df-un 3321  df-in 3323  df-ss 3330  df-pss 3332  df-nul 3626  df-if 3780  df-pw 3850  df-sn 3866  df-pr 3868  df-tp 3870  df-op 3872  df-uni 4080  df-int 4117  df-iun 4161  df-iin 4162  df-br 4281  df-opab 4339  df-mpt 4340  df-tr 4374  df-eprel 4619  df-id 4623  df-po 4628  df-so 4629  df-fr 4666  df-we 4668  df-ord 4709  df-on 4710  df-lim 4711  df-suc 4712  df-xp 4833  df-rel 4834  df-cnv 4835  df-co 4836  df-dm 4837  df-rn 4838  df-res 4839  df-ima 4840  df-iota 5369  df-fun 5408  df-fn 5409  df-f 5410  df-f1 5411  df-fo 5412  df-f1o 5413  df-fv 5414  df-riota 6039  df-ov 6083  df-oprab 6084  df-mpt2 6085  df-om 6466  df-1st 6566  df-2nd 6567  df-tpos 6734  df-undef 6778  df-recs 6818  df-rdg 6852  df-1o 6908  df-oadd 6912  df-er 7089  df-map 7204  df-en 7299  df-dom 7300  df-sdom 7301  df-fin 7302  df-pnf 9408  df-mnf 9409  df-xr 9410  df-ltxr 9411  df-le 9412  df-sub 9585  df-neg 9586  df-nn 10311  df-2 10368  df-3 10369  df-4 10370  df-5 10371  df-6 10372  df-n0 10568  df-z 10635  df-uz 10850  df-fz 11425  df-struct 14159  df-ndx 14160  df-slot 14161  df-base 14162  df-sets 14163  df-ress 14164  df-plusg 14234  df-mulr 14235  df-sca 14237  df-vsca 14238  df-0g 14363  df-poset 15099  df-plt 15111  df-lub 15127  df-glb 15128  df-join 15129  df-meet 15130  df-p0 15192  df-p1 15193  df-lat 15199  df-clat 15261  df-mnd 15398  df-grp 15525  df-minusg 15526  df-mgp 16566  df-rng 16580  df-ur 16582  df-oppr 16649  df-dvdsr 16667  df-unit 16668  df-invr 16698  df-dvr 16709  df-drng 16758  df-oposet 32415  df-ol 32417  df-oml 32418  df-covers 32505  df-ats 32506  df-atl 32537  df-cvlat 32561  df-hlat 32590  df-llines 32736  df-lplanes 32737  df-lvols 32738  df-lines 32739  df-psubsp 32741  df-pmap 32742  df-padd 33034  df-lhyp 33226  df-laut 33227  df-ldil 33342  df-ltrn 33343  df-trl 33397  df-tendo 33993  df-edring 33995  df-dvech 34318
This theorem is referenced by:  dih1dimatlem  34568
  Copyright terms: Public domain W3C validator