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

Theorem cdleme35b 30564
Description: Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT (Contributed by NM, 10-Mar-2013.)
Hypotheses
Ref Expression
cdleme35.l  |-  .<_  =  ( le `  K )
cdleme35.j  |-  .\/  =  ( join `  K )
cdleme35.m  |-  ./\  =  ( meet `  K )
cdleme35.a  |-  A  =  ( Atoms `  K )
cdleme35.h  |-  H  =  ( LHyp `  K
)
cdleme35.u  |-  U  =  ( ( P  .\/  Q )  ./\  W )
cdleme35.f  |-  F  =  ( ( R  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  R )  ./\  W )
) )
Assertion
Ref Expression
cdleme35b  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  ( ( P 
.\/  R )  ./\  W ) )  .<_  ( Q 
.\/  ( R  .\/  U ) ) )

Proof of Theorem cdleme35b
StepHypRef Expression
1 simp11l 1068 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  K  e.  HL )
2 hllat 29478 . . . 4  |-  ( K  e.  HL  ->  K  e.  Lat )
31, 2syl 16 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  K  e.  Lat )
4 simp13l 1072 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  Q  e.  A )
5 eqid 2387 . . . . 5  |-  ( Base `  K )  =  (
Base `  K )
6 cdleme35.a . . . . 5  |-  A  =  ( Atoms `  K )
75, 6atbase 29404 . . . 4  |-  ( Q  e.  A  ->  Q  e.  ( Base `  K
) )
84, 7syl 16 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  Q  e.  ( Base `  K
) )
9 simp2rl 1026 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  R  e.  A )
10 simp11 987 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( K  e.  HL  /\  W  e.  H ) )
11 simp12 988 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
12 simp2l 983 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  P  =/=  Q )
13 cdleme35.l . . . . . 6  |-  .<_  =  ( le `  K )
14 cdleme35.j . . . . . 6  |-  .\/  =  ( join `  K )
15 cdleme35.m . . . . . 6  |-  ./\  =  ( meet `  K )
16 cdleme35.h . . . . . 6  |-  H  =  ( LHyp `  K
)
17 cdleme35.u . . . . . 6  |-  U  =  ( ( P  .\/  Q )  ./\  W )
1813, 14, 15, 6, 16, 17cdleme0a 30325 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  P  =/=  Q ) )  ->  U  e.  A
)
1910, 11, 4, 12, 18syl112anc 1188 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  U  e.  A )
205, 14, 6hlatjcl 29481 . . . 4  |-  ( ( K  e.  HL  /\  R  e.  A  /\  U  e.  A )  ->  ( R  .\/  U
)  e.  ( Base `  K ) )
211, 9, 19, 20syl3anc 1184 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( R  .\/  U )  e.  ( Base `  K
) )
225, 13, 14latlej1 14416 . . 3  |-  ( ( K  e.  Lat  /\  Q  e.  ( Base `  K )  /\  ( R  .\/  U )  e.  ( Base `  K
) )  ->  Q  .<_  ( Q  .\/  ( R  .\/  U ) ) )
233, 8, 21, 22syl3anc 1184 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  Q  .<_  ( Q  .\/  ( R  .\/  U ) ) )
24 simp12l 1070 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  P  e.  A )
255, 6atbase 29404 . . . . . . 7  |-  ( P  e.  A  ->  P  e.  ( Base `  K
) )
2624, 25syl 16 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  P  e.  ( Base `  K
) )
275, 6atbase 29404 . . . . . . 7  |-  ( R  e.  A  ->  R  e.  ( Base `  K
) )
289, 27syl 16 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  R  e.  ( Base `  K
) )
295, 14latjcl 14406 . . . . . 6  |-  ( ( K  e.  Lat  /\  P  e.  ( Base `  K )  /\  R  e.  ( Base `  K
) )  ->  ( P  .\/  R )  e.  ( Base `  K
) )
303, 26, 28, 29syl3anc 1184 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( P  .\/  R )  e.  ( Base `  K
) )
31 simp11r 1069 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  W  e.  H )
325, 16lhpbase 30112 . . . . . 6  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
3331, 32syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  W  e.  ( Base `  K
) )
345, 15latmcl 14407 . . . . 5  |-  ( ( K  e.  Lat  /\  ( P  .\/  R )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( P  .\/  R )  ./\  W )  e.  ( Base `  K ) )
353, 30, 33, 34syl3anc 1184 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  ./\  W )  e.  ( Base `  K
) )
365, 14latjcl 14406 . . . . 5  |-  ( ( K  e.  Lat  /\  ( P  .\/  R )  e.  ( Base `  K
)  /\  Q  e.  ( Base `  K )
)  ->  ( ( P  .\/  R )  .\/  Q )  e.  ( Base `  K ) )
373, 30, 8, 36syl3anc 1184 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  .\/  Q )  e.  ( Base `  K
) )
385, 13, 15latmle1 14432 . . . . 5  |-  ( ( K  e.  Lat  /\  ( P  .\/  R )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( P  .\/  R )  ./\  W )  .<_  ( P  .\/  R ) )
393, 30, 33, 38syl3anc 1184 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  ./\  W )  .<_  ( P  .\/  R
) )
405, 13, 14latlej1 14416 . . . . 5  |-  ( ( K  e.  Lat  /\  ( P  .\/  R )  e.  ( Base `  K
)  /\  Q  e.  ( Base `  K )
)  ->  ( P  .\/  R )  .<_  ( ( P  .\/  R ) 
.\/  Q ) )
413, 30, 8, 40syl3anc 1184 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( P  .\/  R )  .<_  ( ( P  .\/  R )  .\/  Q ) )
425, 13, 3, 35, 30, 37, 39, 41lattrd 14414 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  ./\  W )  .<_  ( ( P  .\/  R )  .\/  Q ) )
4317oveq2i 6031 . . . . . 6  |-  ( Q 
.\/  U )  =  ( Q  .\/  (
( P  .\/  Q
)  ./\  W )
)
445, 14, 6hlatjcl 29481 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  P  e.  A  /\  Q  e.  A )  ->  ( P  .\/  Q
)  e.  ( Base `  K ) )
451, 24, 4, 44syl3anc 1184 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( P  .\/  Q )  e.  ( Base `  K
) )
4613, 14, 6hlatlej2 29490 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  P  e.  A  /\  Q  e.  A )  ->  Q  .<_  ( P  .\/  Q ) )
471, 24, 4, 46syl3anc 1184 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  Q  .<_  ( P  .\/  Q
) )
485, 13, 14, 15, 6atmod3i1 29978 . . . . . . . 8  |-  ( ( K  e.  HL  /\  ( Q  e.  A  /\  ( P  .\/  Q
)  e.  ( Base `  K )  /\  W  e.  ( Base `  K
) )  /\  Q  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  ( ( P 
.\/  Q )  ./\  W ) )  =  ( ( P  .\/  Q
)  ./\  ( Q  .\/  W ) ) )
491, 4, 45, 33, 47, 48syl131anc 1197 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  ( ( P 
.\/  Q )  ./\  W ) )  =  ( ( P  .\/  Q
)  ./\  ( Q  .\/  W ) ) )
50 simp13 989 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  e.  A  /\  -.  Q  .<_  W ) )
51 eqid 2387 . . . . . . . . . 10  |-  ( 1.
`  K )  =  ( 1. `  K
)
5213, 14, 51, 6, 16lhpjat2 30135 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  -> 
( Q  .\/  W
)  =  ( 1.
`  K ) )
5310, 50, 52syl2anc 643 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  W )  =  ( 1. `  K
) )
5453oveq2d 6036 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  Q
)  ./\  ( Q  .\/  W ) )  =  ( ( P  .\/  Q )  ./\  ( 1. `  K ) ) )
55 hlol 29476 . . . . . . . . 9  |-  ( K  e.  HL  ->  K  e.  OL )
561, 55syl 16 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  K  e.  OL )
575, 15, 51olm11 29342 . . . . . . . 8  |-  ( ( K  e.  OL  /\  ( P  .\/  Q )  e.  ( Base `  K
) )  ->  (
( P  .\/  Q
)  ./\  ( 1. `  K ) )  =  ( P  .\/  Q
) )
5856, 45, 57syl2anc 643 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  Q
)  ./\  ( 1. `  K ) )  =  ( P  .\/  Q
) )
5949, 54, 583eqtrd 2423 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  ( ( P 
.\/  Q )  ./\  W ) )  =  ( P  .\/  Q ) )
6043, 59syl5eq 2431 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  U )  =  ( P  .\/  Q
) )
6160oveq2d 6036 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( R  .\/  ( Q  .\/  U ) )  =  ( R  .\/  ( P 
.\/  Q ) ) )
6214, 6hlatj12 29485 . . . . 5  |-  ( ( K  e.  HL  /\  ( Q  e.  A  /\  R  e.  A  /\  U  e.  A
) )  ->  ( Q  .\/  ( R  .\/  U ) )  =  ( R  .\/  ( Q 
.\/  U ) ) )
631, 4, 9, 19, 62syl13anc 1186 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  ( R  .\/  U ) )  =  ( R  .\/  ( Q 
.\/  U ) ) )
6414, 6hlatjcom 29482 . . . . . . 7  |-  ( ( K  e.  HL  /\  P  e.  A  /\  R  e.  A )  ->  ( P  .\/  R
)  =  ( R 
.\/  P ) )
651, 24, 9, 64syl3anc 1184 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( P  .\/  R )  =  ( R  .\/  P
) )
6665oveq1d 6035 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  .\/  Q )  =  ( ( R 
.\/  P )  .\/  Q ) )
6714, 6hlatjass 29484 . . . . . 6  |-  ( ( K  e.  HL  /\  ( R  e.  A  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( R  .\/  P
)  .\/  Q )  =  ( R  .\/  ( P  .\/  Q ) ) )
681, 9, 24, 4, 67syl13anc 1186 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( R  .\/  P
)  .\/  Q )  =  ( R  .\/  ( P  .\/  Q ) ) )
6966, 68eqtrd 2419 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  .\/  Q )  =  ( R  .\/  ( P  .\/  Q ) ) )
7061, 63, 693eqtr4rd 2430 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  .\/  Q )  =  ( Q  .\/  ( R  .\/  U ) ) )
7142, 70breqtrd 4177 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( P  .\/  R
)  ./\  W )  .<_  ( Q  .\/  ( R  .\/  U ) ) )
725, 14latjcl 14406 . . . 4  |-  ( ( K  e.  Lat  /\  Q  e.  ( Base `  K )  /\  ( R  .\/  U )  e.  ( Base `  K
) )  ->  ( Q  .\/  ( R  .\/  U ) )  e.  (
Base `  K )
)
733, 8, 21, 72syl3anc 1184 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  ( R  .\/  U ) )  e.  (
Base `  K )
)
745, 13, 14latjle12 14418 . . 3  |-  ( ( K  e.  Lat  /\  ( Q  e.  ( Base `  K )  /\  ( ( P  .\/  R )  ./\  W )  e.  ( Base `  K
)  /\  ( Q  .\/  ( R  .\/  U
) )  e.  (
Base `  K )
) )  ->  (
( Q  .<_  ( Q 
.\/  ( R  .\/  U ) )  /\  (
( P  .\/  R
)  ./\  W )  .<_  ( Q  .\/  ( R  .\/  U ) ) )  <->  ( Q  .\/  ( ( P  .\/  R )  ./\  W )
)  .<_  ( Q  .\/  ( R  .\/  U ) ) ) )
753, 8, 35, 73, 74syl13anc 1186 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  (
( Q  .<_  ( Q 
.\/  ( R  .\/  U ) )  /\  (
( P  .\/  R
)  ./\  W )  .<_  ( Q  .\/  ( R  .\/  U ) ) )  <->  ( Q  .\/  ( ( P  .\/  R )  ./\  W )
)  .<_  ( Q  .\/  ( R  .\/  U ) ) ) )
7623, 71, 75mpbi2and 888 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  /\  -.  R  .<_  ( P  .\/  Q
) )  ->  ( Q  .\/  ( ( P 
.\/  R )  ./\  W ) )  .<_  ( Q 
.\/  ( R  .\/  U ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    /\ wa 359    /\ w3a 936    = wceq 1649    e. wcel 1717    =/= wne 2550   class class class wbr 4153   ` cfv 5394  (class class class)co 6020   Basecbs 13396   lecple 13463   joincjn 14328   meetcmee 14329   1.cp1 14394   Latclat 14401   OLcol 29289   Atomscatm 29378   HLchlt 29465   LHypclh 30098
This theorem is referenced by:  cdleme35c  30565
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 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2368  ax-rep 4261  ax-sep 4271  ax-nul 4279  ax-pow 4318  ax-pr 4344  ax-un 4641
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 2242  df-mo 2243  df-clab 2374  df-cleq 2380  df-clel 2383  df-nfc 2512  df-ne 2552  df-nel 2553  df-ral 2654  df-rex 2655  df-reu 2656  df-rab 2658  df-v 2901  df-sbc 3105  df-csb 3195  df-dif 3266  df-un 3268  df-in 3270  df-ss 3277  df-nul 3572  df-if 3683  df-pw 3744  df-sn 3763  df-pr 3764  df-op 3766  df-uni 3958  df-iun 4037  df-iin 4038  df-br 4154  df-opab 4208  df-mpt 4209  df-id 4439  df-xp 4824  df-rel 4825  df-cnv 4826  df-co 4827  df-dm 4828  df-rn 4829  df-res 4830  df-ima 4831  df-iota 5358  df-fun 5396  df-fn 5397  df-f 5398  df-f1 5399  df-fo 5400  df-f1o 5401  df-fv 5402  df-ov 6023  df-oprab 6024  df-mpt2 6025  df-1st 6288  df-2nd 6289  df-undef 6479  df-riota 6485  df-poset 14330  df-plt 14342  df-lub 14358  df-glb 14359  df-join 14360  df-meet 14361  df-p0 14395  df-p1 14396  df-lat 14402  df-clat 14464  df-oposet 29291  df-ol 29293  df-oml 29294  df-covers 29381  df-ats 29382  df-atl 29413  df-cvlat 29437  df-hlat 29466  df-psubsp 29617  df-pmap 29618  df-padd 29910  df-lhyp 30102
  Copyright terms: Public domain W3C validator