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

Theorem trlcoabs2N 33998
Description: Absorption of the trace of a composition. (Contributed by NM, 29-Jul-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
trlcoabs.l  |-  .<_  =  ( le `  K )
trlcoabs.j  |-  .\/  =  ( join `  K )
trlcoabs.a  |-  A  =  ( Atoms `  K )
trlcoabs.h  |-  H  =  ( LHyp `  K
)
trlcoabs.t  |-  T  =  ( ( LTrn `  K
) `  W )
trlcoabs.r  |-  R  =  ( ( trL `  K
) `  W )
Assertion
Ref Expression
trlcoabs2N  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  ( R `  ( G  o.  `' F
) ) )  =  ( ( F `  P )  .\/  ( G `  P )
) )

Proof of Theorem trlcoabs2N
StepHypRef Expression
1 simp1 1005 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
2 simp2r 1032 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  G  e.  T )
3 simp2l 1031 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  F  e.  T )
4 trlcoabs.h . . . . . . 7  |-  H  =  ( LHyp `  K
)
5 trlcoabs.t . . . . . . 7  |-  T  =  ( ( LTrn `  K
) `  W )
64, 5ltrncnv 33420 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  `' F  e.  T )
71, 3, 6syl2anc 665 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  `' F  e.  T )
84, 5ltrnco 33995 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  `' F  e.  T
)  ->  ( G  o.  `' F )  e.  T
)
91, 2, 7, 8syl3anc 1264 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G  o.  `' F )  e.  T
)
10 trlcoabs.l . . . . . 6  |-  .<_  =  ( le `  K )
11 trlcoabs.a . . . . . 6  |-  A  =  ( Atoms `  K )
1210, 11, 4, 5ltrnel 33413 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  e.  A  /\  -.  ( F `  P )  .<_  W ) )
13123adant2r 1259 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  e.  A  /\  -.  ( F `  P )  .<_  W ) )
14 trlcoabs.j . . . . 5  |-  .\/  =  ( join `  K )
15 eqid 2429 . . . . 5  |-  ( meet `  K )  =  (
meet `  K )
16 trlcoabs.r . . . . 5  |-  R  =  ( ( trL `  K
) `  W )
1710, 14, 15, 11, 4, 5, 16trlval2 33438 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  o.  `' F )  e.  T  /\  ( ( F `  P )  e.  A  /\  -.  ( F `  P )  .<_  W ) )  ->  ( R `  ( G  o.  `' F ) )  =  ( ( ( F `
 P )  .\/  ( ( G  o.  `' F ) `  ( F `  P )
) ) ( meet `  K ) W ) )
181, 9, 13, 17syl3anc 1264 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( G  o.  `' F ) )  =  ( ( ( F `
 P )  .\/  ( ( G  o.  `' F ) `  ( F `  P )
) ) ( meet `  K ) W ) )
1918oveq2d 6321 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  ( R `  ( G  o.  `' F
) ) )  =  ( ( F `  P )  .\/  (
( ( F `  P )  .\/  (
( G  o.  `' F ) `  ( F `  P )
) ) ( meet `  K ) W ) ) )
20 simp1l 1029 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  K  e.  HL )
21 simp3l 1033 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  P  e.  A )
2210, 11, 4, 5ltrnat 33414 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  P  e.  A
)  ->  ( F `  P )  e.  A
)
231, 3, 21, 22syl3anc 1264 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( F `  P )  e.  A
)
2410, 11, 4, 5ltrnat 33414 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  o.  `' F )  e.  T  /\  ( F `  P
)  e.  A )  ->  ( ( G  o.  `' F ) `
 ( F `  P ) )  e.  A )
251, 9, 23, 24syl3anc 1264 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G  o.  `' F
) `  ( F `  P ) )  e.  A )
26 eqid 2429 . . . . 5  |-  ( Base `  K )  =  (
Base `  K )
2726, 14, 11hlatjcl 32641 . . . 4  |-  ( ( K  e.  HL  /\  ( F `  P )  e.  A  /\  (
( G  o.  `' F ) `  ( F `  P )
)  e.  A )  ->  ( ( F `
 P )  .\/  ( ( G  o.  `' F ) `  ( F `  P )
) )  e.  (
Base `  K )
)
2820, 23, 25, 27syl3anc 1264 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  ( ( G  o.  `' F ) `  ( F `  P )
) )  e.  (
Base `  K )
)
29 simp1r 1030 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  W  e.  H )
3026, 4lhpbase 33272 . . . 4  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
3129, 30syl 17 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  W  e.  ( Base `  K )
)
3210, 14, 11hlatlej1 32649 . . . 4  |-  ( ( K  e.  HL  /\  ( F `  P )  e.  A  /\  (
( G  o.  `' F ) `  ( F `  P )
)  e.  A )  ->  ( F `  P )  .<_  ( ( F `  P ) 
.\/  ( ( G  o.  `' F ) `
 ( F `  P ) ) ) )
3320, 23, 25, 32syl3anc 1264 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( F `  P )  .<_  ( ( F `  P ) 
.\/  ( ( G  o.  `' F ) `
 ( F `  P ) ) ) )
3426, 10, 14, 15, 11atmod3i1 33138 . . 3  |-  ( ( K  e.  HL  /\  ( ( F `  P )  e.  A  /\  ( ( F `  P )  .\/  (
( G  o.  `' F ) `  ( F `  P )
) )  e.  (
Base `  K )  /\  W  e.  ( Base `  K ) )  /\  ( F `  P )  .<_  ( ( F `  P ) 
.\/  ( ( G  o.  `' F ) `
 ( F `  P ) ) ) )  ->  ( ( F `  P )  .\/  ( ( ( F `
 P )  .\/  ( ( G  o.  `' F ) `  ( F `  P )
) ) ( meet `  K ) W ) )  =  ( ( ( F `  P
)  .\/  ( ( G  o.  `' F
) `  ( F `  P ) ) ) ( meet `  K
) ( ( F `
 P )  .\/  W ) ) )
3520, 23, 28, 31, 33, 34syl131anc 1277 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  ( ( ( F `
 P )  .\/  ( ( G  o.  `' F ) `  ( F `  P )
) ) ( meet `  K ) W ) )  =  ( ( ( F `  P
)  .\/  ( ( G  o.  `' F
) `  ( F `  P ) ) ) ( meet `  K
) ( ( F `
 P )  .\/  W ) ) )
3610, 11, 4, 5ltrncoval 33419 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( G  o.  `' F )  e.  T  /\  F  e.  T )  /\  P  e.  A )  ->  (
( ( G  o.  `' F )  o.  F
) `  P )  =  ( ( G  o.  `' F ) `
 ( F `  P ) ) )
371, 9, 3, 21, 36syl121anc 1269 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G  o.  `' F )  o.  F
) `  P )  =  ( ( G  o.  `' F ) `
 ( F `  P ) ) )
38 coass 5374 . . . . . . . 8  |-  ( ( G  o.  `' F
)  o.  F )  =  ( G  o.  ( `' F  o.  F
) )
3926, 4, 5ltrn1o 33398 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  F :
( Base `  K ) -1-1-onto-> ( Base `  K ) )
401, 3, 39syl2anc 665 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  F :
( Base `  K ) -1-1-onto-> ( Base `  K ) )
41 f1ococnv1 5859 . . . . . . . . . . 11  |-  ( F : ( Base `  K
)
-1-1-onto-> ( Base `  K )  ->  ( `' F  o.  F )  =  (  _I  |`  ( Base `  K ) ) )
4240, 41syl 17 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( `' F  o.  F )  =  (  _I  |`  ( Base `  K ) ) )
4342coeq2d 5017 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G  o.  ( `' F  o.  F ) )  =  ( G  o.  (  _I  |`  ( Base `  K
) ) ) )
4426, 4, 5ltrn1o 33398 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T
)  ->  G :
( Base `  K ) -1-1-onto-> ( Base `  K ) )
451, 2, 44syl2anc 665 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  G :
( Base `  K ) -1-1-onto-> ( Base `  K ) )
46 f1of 5831 . . . . . . . . . 10  |-  ( G : ( Base `  K
)
-1-1-onto-> ( Base `  K )  ->  G : ( Base `  K ) --> ( Base `  K ) )
47 fcoi1 5774 . . . . . . . . . 10  |-  ( G : ( Base `  K
) --> ( Base `  K
)  ->  ( G  o.  (  _I  |`  ( Base `  K ) ) )  =  G )
4845, 46, 473syl 18 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G  o.  (  _I  |`  ( Base `  K ) ) )  =  G )
4943, 48eqtrd 2470 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G  o.  ( `' F  o.  F ) )  =  G )
5038, 49syl5eq 2482 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G  o.  `' F
)  o.  F )  =  G )
5150fveq1d 5883 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G  o.  `' F )  o.  F
) `  P )  =  ( G `  P ) )
5237, 51eqtr3d 2472 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G  o.  `' F
) `  ( F `  P ) )  =  ( G `  P
) )
5352oveq2d 6321 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  ( ( G  o.  `' F ) `  ( F `  P )
) )  =  ( ( F `  P
)  .\/  ( G `  P ) ) )
54 eqid 2429 . . . . . 6  |-  ( 1.
`  K )  =  ( 1. `  K
)
5510, 14, 54, 11, 4lhpjat2 33295 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( F `
 P )  e.  A  /\  -.  ( F `  P )  .<_  W ) )  -> 
( ( F `  P )  .\/  W
)  =  ( 1.
`  K ) )
561, 13, 55syl2anc 665 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  W )  =  ( 1. `  K ) )
5753, 56oveq12d 6323 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( F `  P
)  .\/  ( ( G  o.  `' F
) `  ( F `  P ) ) ) ( meet `  K
) ( ( F `
 P )  .\/  W ) )  =  ( ( ( F `  P )  .\/  ( G `  P )
) ( meet `  K
) ( 1. `  K ) ) )
58 hlol 32636 . . . . 5  |-  ( K  e.  HL  ->  K  e.  OL )
5920, 58syl 17 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  K  e.  OL )
6010, 11, 4, 5ltrnat 33414 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  P  e.  A
)  ->  ( G `  P )  e.  A
)
611, 2, 21, 60syl3anc 1264 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G `  P )  e.  A
)
6226, 14, 11hlatjcl 32641 . . . . 5  |-  ( ( K  e.  HL  /\  ( F `  P )  e.  A  /\  ( G `  P )  e.  A )  ->  (
( F `  P
)  .\/  ( G `  P ) )  e.  ( Base `  K
) )
6320, 23, 61, 62syl3anc 1264 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  ( G `  P
) )  e.  (
Base `  K )
)
6426, 15, 54olm11 32502 . . . 4  |-  ( ( K  e.  OL  /\  ( ( F `  P )  .\/  ( G `  P )
)  e.  ( Base `  K ) )  -> 
( ( ( F `
 P )  .\/  ( G `  P ) ) ( meet `  K
) ( 1. `  K ) )  =  ( ( F `  P )  .\/  ( G `  P )
) )
6559, 63, 64syl2anc 665 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( F `  P
)  .\/  ( G `  P ) ) (
meet `  K )
( 1. `  K
) )  =  ( ( F `  P
)  .\/  ( G `  P ) ) )
6657, 65eqtrd 2470 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( F `  P
)  .\/  ( ( G  o.  `' F
) `  ( F `  P ) ) ) ( meet `  K
) ( ( F `
 P )  .\/  W ) )  =  ( ( F `  P
)  .\/  ( G `  P ) ) )
6719, 35, 663eqtrd 2474 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  .\/  ( R `  ( G  o.  `' F
) ) )  =  ( ( F `  P )  .\/  ( G `  P )
) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 370    /\ w3a 982    = wceq 1437    e. wcel 1870   class class class wbr 4426    _I cid 4764   `'ccnv 4853    |` cres 4856    o. ccom 4858   -->wf 5597   -1-1-onto->wf1o 5600   ` cfv 5601  (class class class)co 6305   Basecbs 15084   lecple 15159   joincjn 16140   meetcmee 16141   1.cp1 16235   OLcol 32449   Atomscatm 32538   HLchlt 32625   LHypclh 33258   LTrncltrn 33375   trLctrl 33433
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1665  ax-4 1678  ax-5 1751  ax-6 1797  ax-7 1841  ax-8 1872  ax-9 1874  ax-10 1889  ax-11 1894  ax-12 1907  ax-13 2055  ax-ext 2407  ax-rep 4538  ax-sep 4548  ax-nul 4556  ax-pow 4603  ax-pr 4661  ax-un 6597  ax-riotaBAD 32234
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1660  df-nf 1664  df-sb 1790  df-eu 2270  df-mo 2271  df-clab 2415  df-cleq 2421  df-clel 2424  df-nfc 2579  df-ne 2627  df-nel 2628  df-ral 2787  df-rex 2788  df-reu 2789  df-rmo 2790  df-rab 2791  df-v 3089  df-sbc 3306  df-csb 3402  df-dif 3445  df-un 3447  df-in 3449  df-ss 3456  df-nul 3768  df-if 3916  df-pw 3987  df-sn 4003  df-pr 4005  df-op 4009  df-uni 4223  df-iun 4304  df-iin 4305  df-br 4427  df-opab 4485  df-mpt 4486  df-id 4769  df-xp 4860  df-rel 4861  df-cnv 4862  df-co 4863  df-dm 4864  df-rn 4865  df-res 4866  df-ima 4867  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-riota 6267  df-ov 6308  df-oprab 6309  df-mpt2 6310  df-1st 6807  df-2nd 6808  df-undef 7028  df-map 7482  df-preset 16124  df-poset 16142  df-plt 16155  df-lub 16171  df-glb 16172  df-join 16173  df-meet 16174  df-p0 16236  df-p1 16237  df-lat 16243  df-clat 16305  df-oposet 32451  df-ol 32453  df-oml 32454  df-covers 32541  df-ats 32542  df-atl 32573  df-cvlat 32597  df-hlat 32626  df-llines 32772  df-lplanes 32773  df-lvols 32774  df-lines 32775  df-psubsp 32777  df-pmap 32778  df-padd 33070  df-lhyp 33262  df-laut 33263  df-ldil 33378  df-ltrn 33379  df-trl 33434
This theorem is referenced by:  cdlemkfid1N  34197
  Copyright terms: Public domain W3C validator