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

Theorem cdleme20c 30559
Description: Part of proof of Lemma E in [Crawley] p. 113, last paragraph on p. 114, second line.  D,  F,  Y,  G represent s2, f(s), t2, f(t). (Contributed by NM, 15-Nov-2012.)
Hypotheses
Ref Expression
cdleme19.l  |-  .<_  =  ( le `  K )
cdleme19.j  |-  .\/  =  ( join `  K )
cdleme19.m  |-  ./\  =  ( meet `  K )
cdleme19.a  |-  A  =  ( Atoms `  K )
cdleme19.h  |-  H  =  ( LHyp `  K
)
cdleme19.u  |-  U  =  ( ( P  .\/  Q )  ./\  W )
cdleme19.f  |-  F  =  ( ( S  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  S )  ./\  W )
) )
cdleme19.g  |-  G  =  ( ( T  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  T )  ./\  W )
) )
cdleme19.d  |-  D  =  ( ( R  .\/  S )  ./\  W )
cdleme19.y  |-  Y  =  ( ( R  .\/  T )  ./\  W )
cdleme20.v  |-  V  =  ( ( S  .\/  T )  ./\  W )
Assertion
Ref Expression
cdleme20c  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  ( D  .\/  Y )  =  ( ( ( R 
.\/  S )  .\/  T )  ./\  W )
)

Proof of Theorem cdleme20c
StepHypRef Expression
1 simp1l 980 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  K  e.  HL )
2 simp21l 1073 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  R  e.  A )
3 simp22l 1075 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  S  e.  A )
4 eqid 2366 . . . . . . . . . 10  |-  ( Base `  K )  =  (
Base `  K )
5 cdleme19.j . . . . . . . . . 10  |-  .\/  =  ( join `  K )
6 cdleme19.a . . . . . . . . . 10  |-  A  =  ( Atoms `  K )
74, 5, 6hlatjcl 29615 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  R  e.  A  /\  S  e.  A )  ->  ( R  .\/  S
)  e.  ( Base `  K ) )
81, 2, 3, 7syl3anc 1183 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  ( R  .\/  S )  e.  ( Base `  K
) )
9 simp1r 981 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  W  e.  H )
10 cdleme19.h . . . . . . . . . 10  |-  H  =  ( LHyp `  K
)
114, 10lhpbase 30246 . . . . . . . . 9  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
129, 11syl 15 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  W  e.  ( Base `  K
) )
13 cdleme19.l . . . . . . . . . 10  |-  .<_  =  ( le `  K )
1413, 5, 6hlatlej1 29623 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  R  e.  A  /\  S  e.  A )  ->  R  .<_  ( R  .\/  S ) )
151, 2, 3, 14syl3anc 1183 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  R  .<_  ( R  .\/  S
) )
16 cdleme19.m . . . . . . . . 9  |-  ./\  =  ( meet `  K )
174, 13, 5, 16, 6atmod2i1 30109 . . . . . . . 8  |-  ( ( K  e.  HL  /\  ( R  e.  A  /\  ( R  .\/  S
)  e.  ( Base `  K )  /\  W  e.  ( Base `  K
) )  /\  R  .<_  ( R  .\/  S
) )  ->  (
( ( R  .\/  S )  ./\  W )  .\/  R )  =  ( ( R  .\/  S
)  ./\  ( W  .\/  R ) ) )
181, 2, 8, 12, 15, 17syl131anc 1196 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( ( R  .\/  S )  ./\  W )  .\/  R )  =  ( ( R  .\/  S
)  ./\  ( W  .\/  R ) ) )
19 simp21 989 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  ( R  e.  A  /\  -.  R  .<_  W ) )
20 eqid 2366 . . . . . . . . . 10  |-  ( 1.
`  K )  =  ( 1. `  K
)
2113, 5, 20, 6, 10lhpjat1 30268 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R  e.  A  /\  -.  R  .<_  W ) )  -> 
( W  .\/  R
)  =  ( 1.
`  K ) )
221, 9, 19, 21syl21anc 1182 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  ( W  .\/  R )  =  ( 1. `  K
) )
2322oveq2d 5997 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( R  .\/  S
)  ./\  ( W  .\/  R ) )  =  ( ( R  .\/  S )  ./\  ( 1. `  K ) ) )
24 hlol 29610 . . . . . . . . 9  |-  ( K  e.  HL  ->  K  e.  OL )
251, 24syl 15 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  K  e.  OL )
264, 16, 20olm11 29476 . . . . . . . 8  |-  ( ( K  e.  OL  /\  ( R  .\/  S )  e.  ( Base `  K
) )  ->  (
( R  .\/  S
)  ./\  ( 1. `  K ) )  =  ( R  .\/  S
) )
2725, 8, 26syl2anc 642 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( R  .\/  S
)  ./\  ( 1. `  K ) )  =  ( R  .\/  S
) )
2818, 23, 273eqtrrd 2403 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  ( R  .\/  S )  =  ( ( ( R 
.\/  S )  ./\  W )  .\/  R ) )
2928oveq1d 5996 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( R  .\/  S
)  .\/  T )  =  ( ( ( ( R  .\/  S
)  ./\  W )  .\/  R )  .\/  T
) )
30 simp22r 1076 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  -.  S  .<_  W )
31 simp3r 985 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  R  .<_  ( P  .\/  Q
) )
32 simp3l 984 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  -.  S  .<_  ( P  .\/  Q ) )
33 eqid 2366 . . . . . . . 8  |-  ( ( R  .\/  S ) 
./\  W )  =  ( ( R  .\/  S )  ./\  W )
3413, 5, 16, 6, 10, 33cdlemeda 30546 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  ( R  e.  A  /\  R  .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q
) ) )  -> 
( ( R  .\/  S )  ./\  W )  e.  A )
351, 9, 3, 30, 2, 31, 32, 34syl223anc 1209 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( R  .\/  S
)  ./\  W )  e.  A )
36 simp23 991 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  T  e.  A )
375, 6hlatjass 29618 . . . . . 6  |-  ( ( K  e.  HL  /\  ( ( ( R 
.\/  S )  ./\  W )  e.  A  /\  R  e.  A  /\  T  e.  A )
)  ->  ( (
( ( R  .\/  S )  ./\  W )  .\/  R )  .\/  T
)  =  ( ( ( R  .\/  S
)  ./\  W )  .\/  ( R  .\/  T
) ) )
381, 35, 2, 36, 37syl13anc 1185 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( ( ( R 
.\/  S )  ./\  W )  .\/  R ) 
.\/  T )  =  ( ( ( R 
.\/  S )  ./\  W )  .\/  ( R 
.\/  T ) ) )
3929, 38eqtrd 2398 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( R  .\/  S
)  .\/  T )  =  ( ( ( R  .\/  S ) 
./\  W )  .\/  ( R  .\/  T ) ) )
4039oveq1d 5996 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( ( R  .\/  S )  .\/  T ) 
./\  W )  =  ( ( ( ( R  .\/  S ) 
./\  W )  .\/  ( R  .\/  T ) )  ./\  W )
)
414, 5, 6hlatjcl 29615 . . . . 5  |-  ( ( K  e.  HL  /\  R  e.  A  /\  T  e.  A )  ->  ( R  .\/  T
)  e.  ( Base `  K ) )
421, 2, 36, 41syl3anc 1183 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  ( R  .\/  T )  e.  ( Base `  K
) )
43 hllat 29612 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  Lat )
441, 43syl 15 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  K  e.  Lat )
454, 13, 16latmle2 14393 . . . . 5  |-  ( ( K  e.  Lat  /\  ( R  .\/  S )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( R  .\/  S )  ./\  W )  .<_  W )
4644, 8, 12, 45syl3anc 1183 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( R  .\/  S
)  ./\  W )  .<_  W )
474, 13, 5, 16, 6atmod1i1 30105 . . . 4  |-  ( ( K  e.  HL  /\  ( ( ( R 
.\/  S )  ./\  W )  e.  A  /\  ( R  .\/  T )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  /\  ( ( R  .\/  S )  ./\  W )  .<_  W )  ->  ( ( ( R 
.\/  S )  ./\  W )  .\/  ( ( R  .\/  T ) 
./\  W ) )  =  ( ( ( ( R  .\/  S
)  ./\  W )  .\/  ( R  .\/  T
) )  ./\  W
) )
481, 35, 42, 12, 46, 47syl131anc 1196 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( ( R  .\/  S )  ./\  W )  .\/  ( ( R  .\/  T )  ./\  W )
)  =  ( ( ( ( R  .\/  S )  ./\  W )  .\/  ( R  .\/  T
) )  ./\  W
) )
4940, 48eqtr4d 2401 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  (
( ( R  .\/  S )  .\/  T ) 
./\  W )  =  ( ( ( R 
.\/  S )  ./\  W )  .\/  ( ( R  .\/  T ) 
./\  W ) ) )
50 cdleme19.d . . 3  |-  D  =  ( ( R  .\/  S )  ./\  W )
51 cdleme19.y . . 3  |-  Y  =  ( ( R  .\/  T )  ./\  W )
5250, 51oveq12i 5993 . 2  |-  ( D 
.\/  Y )  =  ( ( ( R 
.\/  S )  ./\  W )  .\/  ( ( R  .\/  T ) 
./\  W ) )
5349, 52syl6reqr 2417 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W )  /\  T  e.  A
)  /\  ( -.  S  .<_  ( P  .\/  Q )  /\  R  .<_  ( P  .\/  Q ) ) )  ->  ( D  .\/  Y )  =  ( ( ( R 
.\/  S )  .\/  T )  ./\  W )
)
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 358    /\ w3a 935    = wceq 1647    e. wcel 1715   class class class wbr 4125   ` cfv 5358  (class class class)co 5981   Basecbs 13356   lecple 13423   joincjn 14288   meetcmee 14289   1.cp1 14354   Latclat 14361   OLcol 29423   Atomscatm 29512   HLchlt 29599   LHypclh 30232
This theorem is referenced by:  cdleme20d  30560
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1551  ax-5 1562  ax-17 1621  ax-9 1659  ax-8 1680  ax-13 1717  ax-14 1719  ax-6 1734  ax-7 1739  ax-11 1751  ax-12 1937  ax-ext 2347  ax-rep 4233  ax-sep 4243  ax-nul 4251  ax-pow 4290  ax-pr 4316  ax-un 4615
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 937  df-tru 1324  df-ex 1547  df-nf 1550  df-sb 1654  df-eu 2221  df-mo 2222  df-clab 2353  df-cleq 2359  df-clel 2362  df-nfc 2491  df-ne 2531  df-nel 2532  df-ral 2633  df-rex 2634  df-reu 2635  df-rab 2637  df-v 2875  df-sbc 3078  df-csb 3168  df-dif 3241  df-un 3243  df-in 3245  df-ss 3252  df-nul 3544  df-if 3655  df-pw 3716  df-sn 3735  df-pr 3736  df-op 3738  df-uni 3930  df-iun 4009  df-iin 4010  df-br 4126  df-opab 4180  df-mpt 4181  df-id 4412  df-xp 4798  df-rel 4799  df-cnv 4800  df-co 4801  df-dm 4802  df-rn 4803  df-res 4804  df-ima 4805  df-iota 5322  df-fun 5360  df-fn 5361  df-f 5362  df-f1 5363  df-fo 5364  df-f1o 5365  df-fv 5366  df-ov 5984  df-oprab 5985  df-mpt2 5986  df-1st 6249  df-2nd 6250  df-undef 6440  df-riota 6446  df-poset 14290  df-plt 14302  df-lub 14318  df-glb 14319  df-join 14320  df-meet 14321  df-p0 14355  df-p1 14356  df-lat 14362  df-clat 14424  df-oposet 29425  df-ol 29427  df-oml 29428  df-covers 29515  df-ats 29516  df-atl 29547  df-cvlat 29571  df-hlat 29600  df-psubsp 29751  df-pmap 29752  df-padd 30044  df-lhyp 30236
  Copyright terms: Public domain W3C validator