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

Theorem cdlemednpq 30785
Description: Part of proof of Lemma E in [Crawley] p. 113. Utility lemma.  D represents s2. (Contributed by NM, 18-Nov-2012.)
Hypotheses
Ref Expression
cdlemeda.l  |-  .<_  =  ( le `  K )
cdlemeda.j  |-  .\/  =  ( join `  K )
cdlemeda.m  |-  ./\  =  ( meet `  K )
cdlemeda.a  |-  A  =  ( Atoms `  K )
cdlemeda.h  |-  H  =  ( LHyp `  K
)
cdlemeda.d  |-  D  =  ( ( R  .\/  S )  ./\  W )
Assertion
Ref Expression
cdlemednpq  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  -.  D  .<_  ( P 
.\/  Q ) )

Proof of Theorem cdlemednpq
StepHypRef Expression
1 cdlemeda.d . . . 4  |-  D  =  ( ( R  .\/  S )  ./\  W )
2 simp1l 981 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  K  e.  HL )
3 hllat 29850 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  Lat )
42, 3syl 16 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  K  e.  Lat )
5 simp23l 1078 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  R  e.  A )
6 simp31l 1080 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  S  e.  A )
7 eqid 2408 . . . . . . 7  |-  ( Base `  K )  =  (
Base `  K )
8 cdlemeda.j . . . . . . 7  |-  .\/  =  ( join `  K )
9 cdlemeda.a . . . . . . 7  |-  A  =  ( Atoms `  K )
107, 8, 9hlatjcl 29853 . . . . . 6  |-  ( ( K  e.  HL  /\  R  e.  A  /\  S  e.  A )  ->  ( R  .\/  S
)  e.  ( Base `  K ) )
112, 5, 6, 10syl3anc 1184 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( R  .\/  S
)  e.  ( Base `  K ) )
12 simp1r 982 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  W  e.  H )
13 cdlemeda.h . . . . . . 7  |-  H  =  ( LHyp `  K
)
147, 13lhpbase 30484 . . . . . 6  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
1512, 14syl 16 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  W  e.  ( Base `  K ) )
16 cdlemeda.l . . . . . 6  |-  .<_  =  ( le `  K )
17 cdlemeda.m . . . . . 6  |-  ./\  =  ( meet `  K )
187, 16, 17latmle2 14465 . . . . 5  |-  ( ( K  e.  Lat  /\  ( R  .\/  S )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( R  .\/  S )  ./\  W )  .<_  W )
194, 11, 15, 18syl3anc 1184 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( ( R  .\/  S )  ./\  W )  .<_  W )
201, 19syl5eqbr 4209 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  D  .<_  W )
21 simp23r 1079 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  -.  R  .<_  W )
22 nbrne2 4194 . . 3  |-  ( ( D  .<_  W  /\  -.  R  .<_  W )  ->  D  =/=  R
)
2320, 21, 22syl2anc 643 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  D  =/=  R )
244adantr 452 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  K  e.  Lat )
2511adantr 452 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  ( R  .\/  S )  e.  (
Base `  K )
)
2615adantr 452 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  W  e.  ( Base `  K )
)
277, 16, 17latmle1 14464 . . . . . . . . 9  |-  ( ( K  e.  Lat  /\  ( R  .\/  S )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( R  .\/  S )  ./\  W )  .<_  ( R  .\/  S ) )
2824, 25, 26, 27syl3anc 1184 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  ( ( R  .\/  S )  ./\  W )  .<_  ( R  .\/  S ) )
291, 28syl5eqbr 4209 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  D  .<_  ( R  .\/  S ) )
30 simpr 448 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  D  .<_  ( P  .\/  Q ) )
31 simp31r 1081 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  -.  S  .<_  W )
32 simp32 994 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  R  .<_  ( P  .\/  Q ) )
33 simp33 995 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  -.  S  .<_  ( P 
.\/  Q ) )
3416, 8, 17, 9, 13, 1cdlemeda 30784 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  ( R  e.  A  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  D  e.  A )
352, 12, 6, 31, 5, 32, 33, 34syl223anc 1210 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  D  e.  A )
367, 9atbase 29776 . . . . . . . . . 10  |-  ( D  e.  A  ->  D  e.  ( Base `  K
) )
3735, 36syl 16 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  D  e.  ( Base `  K ) )
3837adantr 452 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  D  e.  ( Base `  K )
)
39 simp21 990 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  P  e.  A )
40 simp22 991 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  Q  e.  A )
417, 8, 9hlatjcl 29853 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  P  e.  A  /\  Q  e.  A )  ->  ( P  .\/  Q
)  e.  ( Base `  K ) )
422, 39, 40, 41syl3anc 1184 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( P  .\/  Q
)  e.  ( Base `  K ) )
4342adantr 452 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  ( P  .\/  Q )  e.  (
Base `  K )
)
447, 16, 17latlem12 14466 . . . . . . . 8  |-  ( ( K  e.  Lat  /\  ( D  e.  ( Base `  K )  /\  ( R  .\/  S )  e.  ( Base `  K
)  /\  ( P  .\/  Q )  e.  (
Base `  K )
) )  ->  (
( D  .<_  ( R 
.\/  S )  /\  D  .<_  ( P  .\/  Q ) )  <->  D  .<_  ( ( R  .\/  S
)  ./\  ( P  .\/  Q ) ) ) )
4524, 38, 25, 43, 44syl13anc 1186 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  ( ( D  .<_  ( R  .\/  S )  /\  D  .<_  ( P  .\/  Q ) )  <->  D  .<_  ( ( R  .\/  S ) 
./\  ( P  .\/  Q ) ) ) )
4629, 30, 45mpbi2and 888 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  D  .<_  ( ( R  .\/  S
)  ./\  ( P  .\/  Q ) ) )
47 hlatl 29847 . . . . . . . . . . . 12  |-  ( K  e.  HL  ->  K  e.  AtLat )
482, 47syl 16 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  K  e.  AtLat )
49 eqid 2408 . . . . . . . . . . . 12  |-  ( 0.
`  K )  =  ( 0. `  K
)
507, 16, 17, 49, 9atnle 29804 . . . . . . . . . . 11  |-  ( ( K  e.  AtLat  /\  S  e.  A  /\  ( P  .\/  Q )  e.  ( Base `  K
) )  ->  ( -.  S  .<_  ( P 
.\/  Q )  <->  ( S  ./\  ( P  .\/  Q
) )  =  ( 0. `  K ) ) )
5148, 6, 42, 50syl3anc 1184 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( -.  S  .<_  ( P  .\/  Q )  <-> 
( S  ./\  ( P  .\/  Q ) )  =  ( 0. `  K ) ) )
5233, 51mpbid 202 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( S  ./\  ( P  .\/  Q ) )  =  ( 0. `  K ) )
5352oveq2d 6060 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( R  .\/  ( S  ./\  ( P  .\/  Q ) ) )  =  ( R  .\/  ( 0. `  K ) ) )
547, 9atbase 29776 . . . . . . . . . 10  |-  ( S  e.  A  ->  S  e.  ( Base `  K
) )
556, 54syl 16 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  S  e.  ( Base `  K ) )
567, 16, 8, 17, 9atmod1i1 30343 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( R  e.  A  /\  S  e.  ( Base `  K )  /\  ( P  .\/  Q )  e.  ( Base `  K
) )  /\  R  .<_  ( P  .\/  Q
) )  ->  ( R  .\/  ( S  ./\  ( P  .\/  Q ) ) )  =  ( ( R  .\/  S
)  ./\  ( P  .\/  Q ) ) )
572, 5, 55, 42, 32, 56syl131anc 1197 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( R  .\/  ( S  ./\  ( P  .\/  Q ) ) )  =  ( ( R  .\/  S )  ./\  ( P  .\/  Q ) ) )
58 hlol 29848 . . . . . . . . . 10  |-  ( K  e.  HL  ->  K  e.  OL )
592, 58syl 16 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  K  e.  OL )
607, 9atbase 29776 . . . . . . . . . 10  |-  ( R  e.  A  ->  R  e.  ( Base `  K
) )
615, 60syl 16 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  R  e.  ( Base `  K ) )
627, 8, 49olj01 29712 . . . . . . . . 9  |-  ( ( K  e.  OL  /\  R  e.  ( Base `  K ) )  -> 
( R  .\/  ( 0. `  K ) )  =  R )
6359, 61, 62syl2anc 643 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( R  .\/  ( 0. `  K ) )  =  R )
6453, 57, 633eqtr3d 2448 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( ( R  .\/  S )  ./\  ( P  .\/  Q ) )  =  R )
6564adantr 452 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  ( ( R  .\/  S )  ./\  ( P  .\/  Q ) )  =  R )
6646, 65breqtrd 4200 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P 
.\/  Q )  /\  -.  S  .<_  ( P 
.\/  Q ) ) )  /\  D  .<_  ( P  .\/  Q ) )  ->  D  .<_  R )
6766ex 424 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( D  .<_  ( P 
.\/  Q )  ->  D  .<_  R ) )
6816, 9atcmp 29798 . . . . 5  |-  ( ( K  e.  AtLat  /\  D  e.  A  /\  R  e.  A )  ->  ( D  .<_  R  <->  D  =  R ) )
6948, 35, 5, 68syl3anc 1184 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( D  .<_  R  <->  D  =  R ) )
7067, 69sylibd 206 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( D  .<_  ( P 
.\/  Q )  ->  D  =  R )
)
7170necon3ad 2607 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( D  =/=  R  ->  -.  D  .<_  ( P 
.\/  Q ) ) )
7223, 71mpd 15 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  ->  -.  D  .<_  ( P 
.\/  Q ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    /\ wa 359    /\ w3a 936    = wceq 1649    e. wcel 1721    =/= wne 2571   class class class wbr 4176   ` cfv 5417  (class class class)co 6044   Basecbs 13428   lecple 13495   joincjn 14360   meetcmee 14361   0.cp0 14425   Latclat 14433   OLcol 29661   Atomscatm 29750   AtLatcal 29751   HLchlt 29837   LHypclh 30470
This theorem is referenced by:  cdlemednuN  30786  cdleme20k  30805
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1662  ax-8 1683  ax-13 1723  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2389  ax-rep 4284  ax-sep 4294  ax-nul 4302  ax-pow 4341  ax-pr 4367  ax-un 4664
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2262  df-mo 2263  df-clab 2395  df-cleq 2401  df-clel 2404  df-nfc 2533  df-ne 2573  df-nel 2574  df-ral 2675  df-rex 2676  df-reu 2677  df-rab 2679  df-v 2922  df-sbc 3126  df-csb 3216  df-dif 3287  df-un 3289  df-in 3291  df-ss 3298  df-nul 3593  df-if 3704  df-pw 3765  df-sn 3784  df-pr 3785  df-op 3787  df-uni 3980  df-iun 4059  df-iin 4060  df-br 4177  df-opab 4231  df-mpt 4232  df-id 4462  df-xp 4847  df-rel 4848  df-cnv 4849  df-co 4850  df-dm 4851  df-rn 4852  df-res 4853  df-ima 4854  df-iota 5381  df-fun 5419  df-fn 5420  df-f 5421  df-f1 5422  df-fo 5423  df-f1o 5424  df-fv 5425  df-ov 6047  df-oprab 6048  df-mpt2 6049  df-1st 6312  df-2nd 6313  df-undef 6506  df-riota 6512  df-poset 14362  df-plt 14374  df-lub 14390  df-glb 14391  df-join 14392  df-meet 14393  df-p0 14427  df-p1 14428  df-lat 14434  df-clat 14496  df-oposet 29663  df-ol 29665  df-oml 29666  df-covers 29753  df-ats 29754  df-atl 29785  df-cvlat 29809  df-hlat 29838  df-psubsp 29989  df-pmap 29990  df-padd 30282  df-lhyp 30474
  Copyright terms: Public domain W3C validator