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

Theorem trlcolem 33725
Description: Lemma for trlco 33726. (Contributed by NM, 1-Jun-2013.)
Hypotheses
Ref Expression
trlco.l  |-  .<_  =  ( le `  K )
trlco.j  |-  .\/  =  ( join `  K )
trlco.h  |-  H  =  ( LHyp `  K
)
trlco.t  |-  T  =  ( ( LTrn `  K
) `  W )
trlco.r  |-  R  =  ( ( trL `  K
) `  W )
trlcolem.m  |-  ./\  =  ( meet `  K )
trlcolem.a  |-  A  =  ( Atoms `  K )
Assertion
Ref Expression
trlcolem  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( F  o.  G
) )  .<_  ( ( R `  F ) 
.\/  ( R `  G ) ) )

Proof of Theorem trlcolem
StepHypRef Expression
1 simp1l 1021 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  K  e.  HL )
2 hllat 32361 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  Lat )
31, 2syl 17 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  K  e.  Lat )
4 simp3l 1025 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  P  e.  A )
5 eqid 2402 . . . . . . 7  |-  ( Base `  K )  =  (
Base `  K )
6 trlcolem.a . . . . . . 7  |-  A  =  ( Atoms `  K )
75, 6atbase 32287 . . . . . 6  |-  ( P  e.  A  ->  P  e.  ( Base `  K
) )
84, 7syl 17 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  P  e.  ( Base `  K )
)
9 simp1 997 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
10 simp2r 1024 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  G  e.  T )
11 trlco.l . . . . . . . 8  |-  .<_  =  ( le `  K )
12 trlco.h . . . . . . . 8  |-  H  =  ( LHyp `  K
)
13 trlco.t . . . . . . . 8  |-  T  =  ( ( LTrn `  K
) `  W )
1411, 6, 12, 13ltrnat 33137 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  P  e.  A
)  ->  ( G `  P )  e.  A
)
159, 10, 4, 14syl3anc 1230 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G `  P )  e.  A
)
165, 6atbase 32287 . . . . . 6  |-  ( ( G `  P )  e.  A  ->  ( G `  P )  e.  ( Base `  K
) )
1715, 16syl 17 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G `  P )  e.  (
Base `  K )
)
18 trlco.j . . . . . 6  |-  .\/  =  ( join `  K )
195, 11, 18latlej1 16012 . . . . 5  |-  ( ( K  e.  Lat  /\  P  e.  ( Base `  K )  /\  ( G `  P )  e.  ( Base `  K
) )  ->  P  .<_  ( P  .\/  ( G `  P )
) )
203, 8, 17, 19syl3anc 1230 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  P  .<_  ( P  .\/  ( G `
 P ) ) )
215, 18, 6hlatjcl 32364 . . . . . 6  |-  ( ( K  e.  HL  /\  P  e.  A  /\  ( G `  P )  e.  A )  -> 
( P  .\/  ( G `  P )
)  e.  ( Base `  K ) )
221, 4, 15, 21syl3anc 1230 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .\/  ( G `  P
) )  e.  (
Base `  K )
)
23 simp2l 1023 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  F  e.  T )
245, 12, 13ltrncl 33122 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( G `  P
)  e.  ( Base `  K ) )  -> 
( F `  ( G `  P )
)  e.  ( Base `  K ) )
259, 23, 17, 24syl3anc 1230 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( F `  ( G `  P
) )  e.  (
Base `  K )
)
265, 11, 18latjlej1 16017 . . . . 5  |-  ( ( K  e.  Lat  /\  ( P  e.  ( Base `  K )  /\  ( P  .\/  ( G `
 P ) )  e.  ( Base `  K
)  /\  ( F `  ( G `  P
) )  e.  (
Base `  K )
) )  ->  ( P  .<_  ( P  .\/  ( G `  P ) )  ->  ( P  .\/  ( F `  ( G `  P )
) )  .<_  ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) ) ) )
273, 8, 22, 25, 26syl13anc 1232 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .<_  ( P  .\/  ( G `  P )
)  ->  ( P  .\/  ( F `  ( G `  P )
) )  .<_  ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) ) ) )
2820, 27mpd 15 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .\/  ( F `  ( G `  P )
) )  .<_  ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) ) )
295, 18latjcl 16003 . . . . 5  |-  ( ( K  e.  Lat  /\  P  e.  ( Base `  K )  /\  ( F `  ( G `  P ) )  e.  ( Base `  K
) )  ->  ( P  .\/  ( F `  ( G `  P ) ) )  e.  (
Base `  K )
)
303, 8, 25, 29syl3anc 1230 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .\/  ( F `  ( G `  P )
) )  e.  (
Base `  K )
)
315, 18latjcl 16003 . . . . 5  |-  ( ( K  e.  Lat  /\  ( P  .\/  ( G `
 P ) )  e.  ( Base `  K
)  /\  ( F `  ( G `  P
) )  e.  (
Base `  K )
)  ->  ( ( P  .\/  ( G `  P ) )  .\/  ( F `  ( G `
 P ) ) )  e.  ( Base `  K ) )
323, 22, 25, 31syl3anc 1230 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( G `  P ) )  .\/  ( F `  ( G `
 P ) ) )  e.  ( Base `  K ) )
33 simp1r 1022 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  W  e.  H )
345, 12lhpbase 32995 . . . . 5  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
3533, 34syl 17 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  W  e.  ( Base `  K )
)
36 trlcolem.m . . . . 5  |-  ./\  =  ( meet `  K )
375, 11, 36latmlem1 16033 . . . 4  |-  ( ( K  e.  Lat  /\  ( ( P  .\/  ( F `  ( G `
 P ) ) )  e.  ( Base `  K )  /\  (
( P  .\/  ( G `  P )
)  .\/  ( F `  ( G `  P
) ) )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
) )  ->  (
( P  .\/  ( F `  ( G `  P ) ) ) 
.<_  ( ( P  .\/  ( G `  P ) )  .\/  ( F `
 ( G `  P ) ) )  ->  ( ( P 
.\/  ( F `  ( G `  P ) ) )  ./\  W
)  .<_  ( ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) )  ./\  W
) ) )
383, 30, 32, 35, 37syl13anc 1232 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  .<_  ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) )  ->  (
( P  .\/  ( F `  ( G `  P ) ) ) 
./\  W )  .<_  ( ( ( P 
.\/  ( G `  P ) )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )
) )
3928, 38mpd 15 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W
)  .<_  ( ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) )  ./\  W
) )
4012, 13ltrnco 33718 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  ( F  o.  G )  e.  T
)
419, 23, 10, 40syl3anc 1230 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( F  o.  G )  e.  T
)
42 trlco.r . . . . 5  |-  R  =  ( ( trL `  K
) `  W )
4311, 18, 36, 6, 12, 13, 42trlval2 33161 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  o.  G )  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( F  o.  G
) )  =  ( ( P  .\/  (
( F  o.  G
) `  P )
)  ./\  W )
)
4441, 43syld3an2 1277 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( F  o.  G
) )  =  ( ( P  .\/  (
( F  o.  G
) `  P )
)  ./\  W )
)
4511, 6, 12, 13ltrncoval 33142 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  P  e.  A )  ->  (
( F  o.  G
) `  P )  =  ( F `  ( G `  P ) ) )
46453adant3r 1227 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F  o.  G ) `  P )  =  ( F `  ( G `
 P ) ) )
4746oveq2d 6293 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .\/  ( ( F  o.  G ) `  P
) )  =  ( P  .\/  ( F `
 ( G `  P ) ) ) )
4847oveq1d 6292 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( ( F  o.  G ) `  P ) )  ./\  W )  =  ( ( P  .\/  ( F `
 ( G `  P ) ) ) 
./\  W ) )
4944, 48eqtrd 2443 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( F  o.  G
) )  =  ( ( P  .\/  ( F `  ( G `  P ) ) ) 
./\  W ) )
5011, 6, 12, 13ltrnel 33136 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )
5110, 50syld3an2 1277 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )
5211, 18, 36, 6, 12, 13, 42trlval2 33161 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )  ->  ( R `  F )  =  ( ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) 
./\  W ) )
539, 23, 51, 52syl3anc 1230 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  F )  =  ( ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) 
./\  W ) )
5411, 18, 36, 6, 12, 13, 42trlval2 33161 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  G )  =  ( ( P  .\/  ( G `  P )
)  ./\  W )
)
5510, 54syld3an2 1277 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  G )  =  ( ( P  .\/  ( G `  P )
)  ./\  W )
)
5653, 55oveq12d 6295 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( R `  F )  .\/  ( R `  G
) )  =  ( ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )  .\/  ( ( P  .\/  ( G `  P ) )  ./\  W )
) )
5711, 6, 12, 13ltrnat 33137 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( G `  P
)  e.  A )  ->  ( F `  ( G `  P ) )  e.  A )
589, 23, 15, 57syl3anc 1230 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( F `  ( G `  P
) )  e.  A
)
595, 18, 6hlatjcl 32364 . . . . . 6  |-  ( ( K  e.  HL  /\  ( G `  P )  e.  A  /\  ( F `  ( G `  P ) )  e.  A )  ->  (
( G `  P
)  .\/  ( F `  ( G `  P
) ) )  e.  ( Base `  K
) )
601, 15, 58, 59syl3anc 1230 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  .\/  ( F `  ( G `  P )
) )  e.  (
Base `  K )
)
615, 36latmcl 16004 . . . . 5  |-  ( ( K  e.  Lat  /\  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( (
( G `  P
)  .\/  ( F `  ( G `  P
) ) )  ./\  W )  e.  ( Base `  K ) )
623, 60, 35, 61syl3anc 1230 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G `  P
)  .\/  ( F `  ( G `  P
) ) )  ./\  W )  e.  ( Base `  K ) )
635, 36latmcl 16004 . . . . 5  |-  ( ( K  e.  Lat  /\  ( P  .\/  ( G `
 P ) )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( P  .\/  ( G `  P ) )  ./\  W )  e.  ( Base `  K ) )
643, 22, 35, 63syl3anc 1230 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( G `  P ) )  ./\  W )  e.  ( Base `  K ) )
655, 18latjcom 16011 . . . 4  |-  ( ( K  e.  Lat  /\  ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )  e.  ( Base `  K
)  /\  ( ( P  .\/  ( G `  P ) )  ./\  W )  e.  ( Base `  K ) )  -> 
( ( ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) )  ./\  W
)  .\/  ( ( P  .\/  ( G `  P ) )  ./\  W ) )  =  ( ( ( P  .\/  ( G `  P ) )  ./\  W )  .\/  ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )
) )
663, 62, 64, 65syl3anc 1230 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) 
./\  W )  .\/  ( ( P  .\/  ( G `  P ) )  ./\  W )
)  =  ( ( ( P  .\/  ( G `  P )
)  ./\  W )  .\/  ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )
) )
675, 18latjcl 16003 . . . . . 6  |-  ( ( K  e.  Lat  /\  ( G `  P )  e.  ( Base `  K
)  /\  ( F `  ( G `  P
) )  e.  (
Base `  K )
)  ->  ( ( G `  P )  .\/  ( F `  ( G `  P )
) )  e.  (
Base `  K )
)
683, 17, 25, 67syl3anc 1230 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  .\/  ( F `  ( G `  P )
) )  e.  (
Base `  K )
)
695, 11, 36latmle2 16029 . . . . . 6  |-  ( ( K  e.  Lat  /\  ( P  .\/  ( G `
 P ) )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( P  .\/  ( G `  P ) )  ./\  W )  .<_  W )
703, 22, 35, 69syl3anc 1230 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( G `  P ) )  ./\  W )  .<_  W )
715, 11, 18, 36, 12lhpmod6i1 33036 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( ( P  .\/  ( G `
 P ) ) 
./\  W )  e.  ( Base `  K
)  /\  ( ( G `  P )  .\/  ( F `  ( G `  P )
) )  e.  (
Base `  K )
)  /\  ( ( P  .\/  ( G `  P ) )  ./\  W )  .<_  W )  ->  ( ( ( P 
.\/  ( G `  P ) )  ./\  W )  .\/  ( ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) )  ./\  W ) )  =  ( ( ( ( P 
.\/  ( G `  P ) )  ./\  W )  .\/  ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) ) )  ./\  W ) )
729, 64, 68, 70, 71syl121anc 1235 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( P  .\/  ( G `  P )
)  ./\  W )  .\/  ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )
)  =  ( ( ( ( P  .\/  ( G `  P ) )  ./\  W )  .\/  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) )  ./\  W )
)
735, 18latjass 16047 . . . . . . 7  |-  ( ( K  e.  Lat  /\  ( ( ( P 
.\/  ( G `  P ) )  ./\  W )  e.  ( Base `  K )  /\  ( G `  P )  e.  ( Base `  K
)  /\  ( F `  ( G `  P
) )  e.  (
Base `  K )
) )  ->  (
( ( ( P 
.\/  ( G `  P ) )  ./\  W )  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) )  =  ( ( ( P  .\/  ( G `  P ) )  ./\  W )  .\/  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) ) )
743, 64, 17, 25, 73syl13anc 1232 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( ( P  .\/  ( G `  P ) )  ./\  W )  .\/  ( G `  P
) )  .\/  ( F `  ( G `  P ) ) )  =  ( ( ( P  .\/  ( G `
 P ) ) 
./\  W )  .\/  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) ) )
755, 11, 18latlej2 16013 . . . . . . . . . 10  |-  ( ( K  e.  Lat  /\  P  e.  ( Base `  K )  /\  ( G `  P )  e.  ( Base `  K
) )  ->  ( G `  P )  .<_  ( P  .\/  ( G `  P )
) )
763, 8, 17, 75syl3anc 1230 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G `  P )  .<_  ( P 
.\/  ( G `  P ) ) )
775, 11, 18, 36, 12lhpmod2i2 33035 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P 
.\/  ( G `  P ) )  e.  ( Base `  K
)  /\  ( G `  P )  e.  (
Base `  K )
)  /\  ( G `  P )  .<_  ( P 
.\/  ( G `  P ) ) )  ->  ( ( ( P  .\/  ( G `
 P ) ) 
./\  W )  .\/  ( G `  P ) )  =  ( ( P  .\/  ( G `
 P ) ) 
./\  ( W  .\/  ( G `  P ) ) ) )
789, 22, 17, 76, 77syl121anc 1235 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( P  .\/  ( G `  P )
)  ./\  W )  .\/  ( G `  P
) )  =  ( ( P  .\/  ( G `  P )
)  ./\  ( W  .\/  ( G `  P
) ) ) )
79 eqid 2402 . . . . . . . . . . 11  |-  ( 1.
`  K )  =  ( 1. `  K
)
8011, 18, 79, 6, 12lhpjat1 33017 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( G `
 P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )  -> 
( W  .\/  ( G `  P )
)  =  ( 1.
`  K ) )
819, 51, 80syl2anc 659 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( W  .\/  ( G `  P
) )  =  ( 1. `  K ) )
8281oveq2d 6293 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( G `  P ) )  ./\  ( W  .\/  ( G `
 P ) ) )  =  ( ( P  .\/  ( G `
 P ) ) 
./\  ( 1. `  K ) ) )
83 hlol 32359 . . . . . . . . . 10  |-  ( K  e.  HL  ->  K  e.  OL )
841, 83syl 17 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  K  e.  OL )
855, 36, 79olm11 32225 . . . . . . . . 9  |-  ( ( K  e.  OL  /\  ( P  .\/  ( G `
 P ) )  e.  ( Base `  K
) )  ->  (
( P  .\/  ( G `  P )
)  ./\  ( 1. `  K ) )  =  ( P  .\/  ( G `  P )
) )
8684, 22, 85syl2anc 659 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( P  .\/  ( G `  P ) )  ./\  ( 1. `  K ) )  =  ( P 
.\/  ( G `  P ) ) )
8778, 82, 863eqtrd 2447 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( P  .\/  ( G `  P )
)  ./\  W )  .\/  ( G `  P
) )  =  ( P  .\/  ( G `
 P ) ) )
8887oveq1d 6292 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( ( P  .\/  ( G `  P ) )  ./\  W )  .\/  ( G `  P
) )  .\/  ( F `  ( G `  P ) ) )  =  ( ( P 
.\/  ( G `  P ) )  .\/  ( F `  ( G `
 P ) ) ) )
8974, 88eqtr3d 2445 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( P  .\/  ( G `  P )
)  ./\  W )  .\/  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) )  =  ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) ) )
9089oveq1d 6292 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( ( P  .\/  ( G `  P ) )  ./\  W )  .\/  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) )  ./\  W )  =  ( ( ( P  .\/  ( G `
 P ) ) 
.\/  ( F `  ( G `  P ) ) )  ./\  W
) )
9172, 90eqtrd 2443 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( P  .\/  ( G `  P )
)  ./\  W )  .\/  ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )
)  =  ( ( ( P  .\/  ( G `  P )
)  .\/  ( F `  ( G `  P
) ) )  ./\  W ) )
9256, 66, 913eqtrd 2447 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( R `  F )  .\/  ( R `  G
) )  =  ( ( ( P  .\/  ( G `  P ) )  .\/  ( F `
 ( G `  P ) ) ) 
./\  W ) )
9339, 49, 923brtr4d 4424 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( F  o.  G
) )  .<_  ( ( R `  F ) 
.\/  ( R `  G ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 367    /\ w3a 974    = wceq 1405    e. wcel 1842   class class class wbr 4394    o. ccom 4826   ` cfv 5568  (class class class)co 6277   Basecbs 14839   lecple 14914   joincjn 15895   meetcmee 15896   1.cp1 15990   Latclat 15997   OLcol 32172   Atomscatm 32261   HLchlt 32348   LHypclh 32981   LTrncltrn 33098   trLctrl 33156
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-rep 4506  ax-sep 4516  ax-nul 4524  ax-pow 4571  ax-pr 4629  ax-un 6573  ax-riotaBAD 31957
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 975  df-3an 976  df-tru 1408  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-nel 2601  df-ral 2758  df-rex 2759  df-reu 2760  df-rmo 2761  df-rab 2762  df-v 3060  df-sbc 3277  df-csb 3373  df-dif 3416  df-un 3418  df-in 3420  df-ss 3427  df-nul 3738  df-if 3885  df-pw 3956  df-sn 3972  df-pr 3974  df-op 3978  df-uni 4191  df-iun 4272  df-iin 4273  df-br 4395  df-opab 4453  df-mpt 4454  df-id 4737  df-xp 4828  df-rel 4829  df-cnv 4830  df-co 4831  df-dm 4832  df-rn 4833  df-res 4834  df-ima 4835  df-iota 5532  df-fun 5570  df-fn 5571  df-f 5572  df-f1 5573  df-fo 5574  df-f1o 5575  df-fv 5576  df-riota 6239  df-ov 6280  df-oprab 6281  df-mpt2 6282  df-1st 6783  df-2nd 6784  df-undef 7004  df-map 7458  df-preset 15879  df-poset 15897  df-plt 15910  df-lub 15926  df-glb 15927  df-join 15928  df-meet 15929  df-p0 15991  df-p1 15992  df-lat 15998  df-clat 16060  df-oposet 32174  df-ol 32176  df-oml 32177  df-covers 32264  df-ats 32265  df-atl 32296  df-cvlat 32320  df-hlat 32349  df-llines 32495  df-lplanes 32496  df-lvols 32497  df-lines 32498  df-psubsp 32500  df-pmap 32501  df-padd 32793  df-lhyp 32985  df-laut 32986  df-ldil 33101  df-ltrn 33102  df-trl 33157
This theorem is referenced by:  trlco  33726
  Copyright terms: Public domain W3C validator