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

Theorem cdlemh2 30135
Description: Part of proof of Lemma H of [Crawley] p. 118. (Contributed by NM, 16-Jun-2013.)
Hypotheses
Ref Expression
cdlemh.b  |-  B  =  ( Base `  K
)
cdlemh.l  |-  .<_  =  ( le `  K )
cdlemh.j  |-  .\/  =  ( join `  K )
cdlemh.m  |-  ./\  =  ( meet `  K )
cdlemh.a  |-  A  =  ( Atoms `  K )
cdlemh.h  |-  H  =  ( LHyp `  K
)
cdlemh.t  |-  T  =  ( ( LTrn `  K
) `  W )
cdlemh.r  |-  R  =  ( ( trL `  K
) `  W )
cdlemh.s  |-  S  =  ( ( P  .\/  ( R `  G ) )  ./\  ( Q  .\/  ( R `  ( G  o.  `' F
) ) ) )
cdlemh.z  |-  .0.  =  ( 0. `  K )
Assertion
Ref Expression
cdlemh2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( S  ./\  W )  =  .0.  )

Proof of Theorem cdlemh2
StepHypRef Expression
1 simp11l 1071 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  K  e.  HL )
2 hlol 28681 . . . . 5  |-  ( K  e.  HL  ->  K  e.  OL )
31, 2syl 17 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  K  e.  OL )
4 hllat 28683 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  Lat )
51, 4syl 17 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  K  e.  Lat )
6 simp2ll 1027 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  P  e.  A )
7 cdlemh.b . . . . . . 7  |-  B  =  ( Base `  K
)
8 cdlemh.a . . . . . . 7  |-  A  =  ( Atoms `  K )
97, 8atbase 28609 . . . . . 6  |-  ( P  e.  A  ->  P  e.  B )
106, 9syl 17 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  P  e.  B )
11 simp11r 1072 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  W  e.  H )
121, 11jca 520 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( K  e.  HL  /\  W  e.  H ) )
13 simp13 992 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  G  e.  T )
14 cdlemh.h . . . . . . 7  |-  H  =  ( LHyp `  K
)
15 cdlemh.t . . . . . . 7  |-  T  =  ( ( LTrn `  K
) `  W )
16 cdlemh.r . . . . . . 7  |-  R  =  ( ( trL `  K
) `  W )
177, 14, 15, 16trlcl 29483 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T
)  ->  ( R `  G )  e.  B
)
1812, 13, 17syl2anc 645 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  G )  e.  B )
19 cdlemh.j . . . . . 6  |-  .\/  =  ( join `  K )
207, 19latjcl 14083 . . . . 5  |-  ( ( K  e.  Lat  /\  P  e.  B  /\  ( R `  G )  e.  B )  -> 
( P  .\/  ( R `  G )
)  e.  B )
215, 10, 18, 20syl3anc 1187 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( P  .\/  ( R `  G ) )  e.  B )
22 simp2rl 1029 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  Q  e.  A )
237, 8atbase 28609 . . . . . 6  |-  ( Q  e.  A  ->  Q  e.  B )
2422, 23syl 17 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  Q  e.  B )
25 simp12 991 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  F  e.  T )
2614, 15ltrncnv 29465 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  `' F  e.  T )
2712, 25, 26syl2anc 645 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  `' F  e.  T )
2814, 15ltrnco 30038 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  `' F  e.  T
)  ->  ( G  o.  `' F )  e.  T
)
2912, 13, 27, 28syl3anc 1187 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( G  o.  `' F
)  e.  T )
307, 14, 15, 16trlcl 29483 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  o.  `' F )  e.  T
)  ->  ( R `  ( G  o.  `' F ) )  e.  B )
3112, 29, 30syl2anc 645 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  ( G  o.  `' F ) )  e.  B )
327, 19latjcl 14083 . . . . 5  |-  ( ( K  e.  Lat  /\  Q  e.  B  /\  ( R `  ( G  o.  `' F ) )  e.  B )  ->  ( Q  .\/  ( R `  ( G  o.  `' F ) ) )  e.  B
)
335, 24, 31, 32syl3anc 1187 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( Q  .\/  ( R `  ( G  o.  `' F ) ) )  e.  B )
347, 14lhpbase 29317 . . . . 5  |-  ( W  e.  H  ->  W  e.  B )
3511, 34syl 17 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  W  e.  B )
36 cdlemh.m . . . . 5  |-  ./\  =  ( meet `  K )
377, 36latmassOLD 28549 . . . 4  |-  ( ( K  e.  OL  /\  ( ( P  .\/  ( R `  G ) )  e.  B  /\  ( Q  .\/  ( R `
 ( G  o.  `' F ) ) )  e.  B  /\  W  e.  B ) )  -> 
( ( ( P 
.\/  ( R `  G ) )  ./\  ( Q  .\/  ( R `
 ( G  o.  `' F ) ) ) )  ./\  W )  =  ( ( P 
.\/  ( R `  G ) )  ./\  ( ( Q  .\/  ( R `  ( G  o.  `' F ) ) )  ./\  W
) ) )
383, 21, 33, 35, 37syl13anc 1189 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  (
( ( P  .\/  ( R `  G ) )  ./\  ( Q  .\/  ( R `  ( G  o.  `' F
) ) ) ) 
./\  W )  =  ( ( P  .\/  ( R `  G ) )  ./\  ( ( Q  .\/  ( R `  ( G  o.  `' F ) ) ) 
./\  W ) ) )
39 simp2r 987 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( Q  e.  A  /\  -.  Q  .<_  W ) )
40 cdlemh.l . . . . . . . 8  |-  .<_  =  ( le `  K )
41 cdlemh.z . . . . . . . 8  |-  .0.  =  ( 0. `  K )
4240, 36, 41, 8, 14lhpmat 29349 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  -> 
( Q  ./\  W
)  =  .0.  )
4312, 39, 42syl2anc 645 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( Q  ./\  W )  =  .0.  )
4443oveq1d 5772 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  (
( Q  ./\  W
)  .\/  ( R `  ( G  o.  `' F ) ) )  =  (  .0.  .\/  ( R `  ( G  o.  `' F ) ) ) )
4540, 14, 15, 16trlle 29503 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  o.  `' F )  e.  T
)  ->  ( R `  ( G  o.  `' F ) )  .<_  W )
4612, 29, 45syl2anc 645 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  ( G  o.  `' F ) )  .<_  W )
477, 40, 19, 36, 8atmod4i2 29186 . . . . . 6  |-  ( ( K  e.  HL  /\  ( Q  e.  A  /\  ( R `  ( G  o.  `' F
) )  e.  B  /\  W  e.  B
)  /\  ( R `  ( G  o.  `' F ) )  .<_  W )  ->  (
( Q  ./\  W
)  .\/  ( R `  ( G  o.  `' F ) ) )  =  ( ( Q 
.\/  ( R `  ( G  o.  `' F ) ) ) 
./\  W ) )
481, 22, 31, 35, 46, 47syl131anc 1200 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  (
( Q  ./\  W
)  .\/  ( R `  ( G  o.  `' F ) ) )  =  ( ( Q 
.\/  ( R `  ( G  o.  `' F ) ) ) 
./\  W ) )
497, 19, 41olj02 28546 . . . . . 6  |-  ( ( K  e.  OL  /\  ( R `  ( G  o.  `' F ) )  e.  B )  ->  (  .0.  .\/  ( R `  ( G  o.  `' F ) ) )  =  ( R `  ( G  o.  `' F ) ) )
503, 31, 49syl2anc 645 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  (  .0.  .\/  ( R `  ( G  o.  `' F ) ) )  =  ( R `  ( G  o.  `' F ) ) )
5144, 48, 503eqtr3rd 2297 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  ( G  o.  `' F ) )  =  ( ( Q  .\/  ( R `  ( G  o.  `' F ) ) )  ./\  W
) )
5251oveq2d 5773 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  (
( P  .\/  ( R `  G )
)  ./\  ( R `  ( G  o.  `' F ) ) )  =  ( ( P 
.\/  ( R `  G ) )  ./\  ( ( Q  .\/  ( R `  ( G  o.  `' F ) ) )  ./\  W
) ) )
53 simp2l 986 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
5413, 27jca 520 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( G  e.  T  /\  `' F  e.  T
) )
55 simp33 998 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  F )  =/=  ( R `  G
) )
5655necomd 2502 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  G )  =/=  ( R `  F
) )
5714, 15, 16trlcnv 29484 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  ( R `  `' F )  =  ( R `  F ) )
5812, 25, 57syl2anc 645 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  `' F
)  =  ( R `
 F ) )
5956, 58neeqtrrd 2443 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  G )  =/=  ( R `  `' F ) )
60 simp31 996 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  F  =/=  (  _I  |`  B ) )
617, 14, 15ltrncnvnid 29446 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  F  =/=  (  _I  |`  B ) )  ->  `' F  =/=  (  _I  |`  B ) )
6212, 25, 60, 61syl3anc 1187 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  `' F  =/=  (  _I  |`  B ) )
637, 14, 15, 16trlcone 30047 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  `' F  e.  T )  /\  (
( R `  G
)  =/=  ( R `
 `' F )  /\  `' F  =/=  (  _I  |`  B ) ) )  ->  ( R `  G )  =/=  ( R `  ( G  o.  `' F
) ) )
6412, 54, 59, 62, 63syl112anc 1191 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  G )  =/=  ( R `  ( G  o.  `' F
) ) )
65 simp32 997 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  G  =/=  (  _I  |`  B ) )
667, 8, 14, 15, 16trlnidat 29492 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  G  =/=  (  _I  |`  B ) )  ->  ( R `  G )  e.  A
)
6712, 13, 65, 66syl3anc 1187 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  G )  e.  A )
6840, 14, 15, 16trlle 29503 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T
)  ->  ( R `  G )  .<_  W )
6912, 13, 68syl2anc 645 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  G )  .<_  W )
708, 14, 15, 16trlcoat 30042 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  `' F  e.  T )  /\  ( R `  G )  =/=  ( R `  `' F ) )  -> 
( R `  ( G  o.  `' F
) )  e.  A
)
7112, 54, 59, 70syl3anc 1187 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( R `  ( G  o.  `' F ) )  e.  A )
7240, 19, 36, 41, 8, 14lhp2at0 29351 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  G )  =/=  ( R `  ( G  o.  `' F ) ) )  /\  ( ( R `
 G )  e.  A  /\  ( R `
 G )  .<_  W )  /\  (
( R `  ( G  o.  `' F
) )  e.  A  /\  ( R `  ( G  o.  `' F
) )  .<_  W ) )  ->  ( ( P  .\/  ( R `  G ) )  ./\  ( R `  ( G  o.  `' F ) ) )  =  .0.  )
7312, 53, 64, 67, 69, 71, 46, 72syl322anc 1215 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  (
( P  .\/  ( R `  G )
)  ./\  ( R `  ( G  o.  `' F ) ) )  =  .0.  )
7438, 52, 733eqtr2rd 2295 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  .0.  =  ( ( ( P  .\/  ( R `
 G ) ) 
./\  ( Q  .\/  ( R `  ( G  o.  `' F ) ) ) )  ./\  W ) )
75 cdlemh.s . . 3  |-  S  =  ( ( P  .\/  ( R `  G ) )  ./\  ( Q  .\/  ( R `  ( G  o.  `' F
) ) ) )
7675oveq1i 5767 . 2  |-  ( S 
./\  W )  =  ( ( ( P 
.\/  ( R `  G ) )  ./\  ( Q  .\/  ( R `
 ( G  o.  `' F ) ) ) )  ./\  W )
7774, 76syl6reqr 2307 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G )
) )  ->  ( S  ./\  W )  =  .0.  )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    /\ wa 360    /\ w3a 939    = wceq 1619    e. wcel 1621    =/= wne 2419   class class class wbr 3963    _I cid 4241   `'ccnv 4625    |` cres 4628    o. ccom 4630   ` cfv 4638  (class class class)co 5757   Basecbs 13075   lecple 13142   joincjn 14005   meetcmee 14006   0.cp0 14070   Latclat 14078   OLcol 28494   Atomscatm 28583   HLchlt 28670   LHypclh 29303   LTrncltrn 29420   trLctrl 29477
This theorem is referenced by:  cdlemh  30136
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1927  ax-ext 2237  ax-rep 4071  ax-sep 4081  ax-nul 4089  ax-pow 4126  ax-pr 4152  ax-un 4449
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 940  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1884  df-eu 2121  df-mo 2122  df-clab 2243  df-cleq 2249  df-clel 2252  df-nfc 2381  df-ne 2421  df-nel 2422  df-ral 2520  df-rex 2521  df-reu 2522  df-rab 2523  df-v 2742  df-sbc 2936  df-csb 3024  df-dif 3097  df-un 3099  df-in 3101  df-ss 3108  df-nul 3398  df-if 3507  df-pw 3568  df-sn 3587  df-pr 3588  df-op 3590  df-uni 3769  df-iun 3848  df-iin 3849  df-br 3964  df-opab 4018  df-mpt 4019  df-id 4246  df-xp 4640  df-rel 4641  df-cnv 4642  df-co 4643  df-dm 4644  df-rn 4645  df-res 4646  df-ima 4647  df-fun 4648  df-fn 4649  df-f 4650  df-f1 4651  df-fo 4652  df-f1o 4653  df-fv 4654  df-ov 5760  df-oprab 5761  df-mpt2 5762  df-1st 6021  df-2nd 6022  df-iota 6190  df-undef 6229  df-riota 6237  df-map 6707  df-poset 14007  df-plt 14019  df-lub 14035  df-glb 14036  df-join 14037  df-meet 14038  df-p0 14072  df-p1 14073  df-lat 14079  df-clat 14141  df-oposet 28496  df-ol 28498  df-oml 28499  df-covers 28586  df-ats 28587  df-atl 28618  df-cvlat 28642  df-hlat 28671  df-llines 28817  df-lplanes 28818  df-lvols 28819  df-lines 28820  df-psubsp 28822  df-pmap 28823  df-padd 29115  df-lhyp 29307  df-laut 29308  df-ldil 29423  df-ltrn 29424  df-trl 29478
  Copyright terms: Public domain W3C validator