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

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

Proof of Theorem cdlemi
StepHypRef Expression
1 simp11l 1071 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  K  e.  HL )
2 simp11r 1072 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  W  e.  H
)
3 simp2l 986 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  U  e.  E
)
4 simp13 992 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  G  e.  T
)
5 simp2r 987 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
6 cdlemi.b . . . . . 6  |-  B  =  ( Base `  K
)
7 cdlemi.l . . . . . 6  |-  .<_  =  ( le `  K )
8 cdlemi.j . . . . . 6  |-  .\/  =  ( join `  K )
9 cdlemi.m . . . . . 6  |-  ./\  =  ( meet `  K )
10 cdlemi.a . . . . . 6  |-  A  =  ( Atoms `  K )
11 cdlemi.h . . . . . 6  |-  H  =  ( LHyp `  K
)
12 cdlemi.t . . . . . 6  |-  T  =  ( ( LTrn `  K
) `  W )
13 cdlemi.r . . . . . 6  |-  R  =  ( ( trL `  K
) `  W )
14 cdlemi.e . . . . . 6  |-  E  =  ( ( TEndo `  K
) `  W )
156, 7, 8, 9, 10, 11, 12, 13, 14cdlemi1 30257 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  E  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( U `  G ) `  P )  .<_  ( P 
.\/  ( R `  G ) ) )
161, 2, 3, 4, 5, 15syl221anc 1198 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 G ) `  P )  .<_  ( P 
.\/  ( R `  G ) ) )
17 simp12 991 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  F  e.  T
)
186, 7, 8, 9, 10, 11, 12, 13, 14cdlemi2 30258 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  E  /\  F  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( U `  G ) `  P )  .<_  ( ( ( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )
191, 2, 3, 17, 4, 5, 18syl231anc 1207 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 G ) `  P )  .<_  ( ( ( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )
20 hllat 28803 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  Lat )
211, 20syl 17 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  K  e.  Lat )
22 simp11 990 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
2311, 12, 14tendocl 30206 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  U  e.  E  /\  G  e.  T
)  ->  ( U `  G )  e.  T
)
2422, 3, 4, 23syl3anc 1187 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( U `  G )  e.  T
)
25 simp2rl 1029 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  P  e.  A
)
266, 10atbase 28729 . . . . . . 7  |-  ( P  e.  A  ->  P  e.  B )
2725, 26syl 17 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  P  e.  B
)
286, 11, 12ltrncl 29564 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U `  G )  e.  T  /\  P  e.  B
)  ->  ( ( U `  G ) `  P )  e.  B
)
2922, 24, 27, 28syl3anc 1187 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 G ) `  P )  e.  B
)
306, 11, 12, 13trlcl 29603 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T
)  ->  ( R `  G )  e.  B
)
3122, 4, 30syl2anc 645 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( R `  G )  e.  B
)
326, 8latjcl 14119 . . . . . 6  |-  ( ( K  e.  Lat  /\  P  e.  B  /\  ( R `  G )  e.  B )  -> 
( P  .\/  ( R `  G )
)  e.  B )
3321, 27, 31, 32syl3anc 1187 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( P  .\/  ( R `  G ) )  e.  B )
3411, 12, 14tendocl 30206 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  U  e.  E  /\  F  e.  T
)  ->  ( U `  F )  e.  T
)
3522, 3, 17, 34syl3anc 1187 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( U `  F )  e.  T
)
366, 11, 12ltrncl 29564 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U `  F )  e.  T  /\  P  e.  B
)  ->  ( ( U `  F ) `  P )  e.  B
)
3722, 35, 27, 36syl3anc 1187 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 F ) `  P )  e.  B
)
3811, 12ltrncnv 29585 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  `' F  e.  T )
3922, 17, 38syl2anc 645 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  `' F  e.  T )
4011, 12ltrnco 30158 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  `' F  e.  T
)  ->  ( G  o.  `' F )  e.  T
)
4122, 4, 39, 40syl3anc 1187 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( G  o.  `' F )  e.  T
)
426, 11, 12, 13trlcl 29603 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  o.  `' F )  e.  T
)  ->  ( R `  ( G  o.  `' F ) )  e.  B )
4322, 41, 42syl2anc 645 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( R `  ( G  o.  `' F ) )  e.  B )
446, 8latjcl 14119 . . . . . 6  |-  ( ( K  e.  Lat  /\  ( ( U `  F ) `  P
)  e.  B  /\  ( R `  ( G  o.  `' F ) )  e.  B )  ->  ( ( ( U `  F ) `
 P )  .\/  ( R `  ( G  o.  `' F ) ) )  e.  B
)
4521, 37, 43, 44syl3anc 1187 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( ( U `  F ) `
 P )  .\/  ( R `  ( G  o.  `' F ) ) )  e.  B
)
466, 7, 9latlem12 14147 . . . . 5  |-  ( ( K  e.  Lat  /\  ( ( ( U `
 G ) `  P )  e.  B  /\  ( P  .\/  ( R `  G )
)  e.  B  /\  ( ( ( U `
 F ) `  P )  .\/  ( R `  ( G  o.  `' F ) ) )  e.  B ) )  ->  ( ( ( ( U `  G
) `  P )  .<_  ( P  .\/  ( R `  G )
)  /\  ( ( U `  G ) `  P )  .<_  ( ( ( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )  <-> 
( ( U `  G ) `  P
)  .<_  ( ( P 
.\/  ( R `  G ) )  ./\  ( ( ( U `
 F ) `  P )  .\/  ( R `  ( G  o.  `' F ) ) ) ) ) )
4721, 29, 33, 45, 46syl13anc 1189 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( ( ( U `  G
) `  P )  .<_  ( P  .\/  ( R `  G )
)  /\  ( ( U `  G ) `  P )  .<_  ( ( ( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )  <-> 
( ( U `  G ) `  P
)  .<_  ( ( P 
.\/  ( R `  G ) )  ./\  ( ( ( U `
 F ) `  P )  .\/  ( R `  ( G  o.  `' F ) ) ) ) ) )
4816, 19, 47mpbi2and 892 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 G ) `  P )  .<_  ( ( P  .\/  ( R `
 G ) ) 
./\  ( ( ( U `  F ) `
 P )  .\/  ( R `  ( G  o.  `' F ) ) ) ) )
49 hlatl 28800 . . . . 5  |-  ( K  e.  HL  ->  K  e.  AtLat )
501, 49syl 17 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  K  e.  AtLat )
517, 10, 11, 12ltrnat 29579 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U `  G )  e.  T  /\  P  e.  A
)  ->  ( ( U `  G ) `  P )  e.  A
)
5222, 24, 25, 51syl3anc 1187 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 G ) `  P )  e.  A
)
537, 10, 11, 12ltrnel 29578 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U `  F )  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( U `  F
) `  P )  e.  A  /\  -.  (
( U `  F
) `  P )  .<_  W ) )
5422, 35, 5, 53syl3anc 1187 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( ( U `  F ) `
 P )  e.  A  /\  -.  (
( U `  F
) `  P )  .<_  W ) )
556, 7, 8, 9, 10, 11, 12, 13, 14cdlemi1 30257 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  E  /\  F  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( U `  F ) `  P )  .<_  ( P 
.\/  ( R `  F ) ) )
561, 2, 3, 17, 5, 55syl221anc 1198 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 F ) `  P )  .<_  ( P 
.\/  ( R `  F ) ) )
575, 54, 563jca 1137 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( ( ( U `
 F ) `  P )  e.  A  /\  -.  ( ( U `
 F ) `  P )  .<_  W )  /\  ( ( U `
 F ) `  P )  .<_  ( P 
.\/  ( R `  F ) ) ) )
58 eqid 2258 . . . . . . 7  |-  ( ( P  .\/  ( R `
 G ) ) 
./\  ( ( ( U `  F ) `
 P )  .\/  ( R `  ( G  o.  `' F ) ) ) )  =  ( ( P  .\/  ( R `  G ) )  ./\  ( (
( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )
596, 7, 8, 9, 10, 11, 12, 13, 58cdlemh 30256 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( ( ( U `  F ) `
 P )  e.  A  /\  -.  (
( U `  F
) `  P )  .<_  W )  /\  (
( U `  F
) `  P )  .<_  ( P  .\/  ( R `  F )
) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( ( P  .\/  ( R `
 G ) ) 
./\  ( ( ( U `  F ) `
 P )  .\/  ( R `  ( G  o.  `' F ) ) ) )  e.  A  /\  -.  (
( P  .\/  ( R `  G )
)  ./\  ( (
( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) ) 
.<_  W ) )
6059simpld 447 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( ( ( U `  F ) `
 P )  e.  A  /\  -.  (
( U `  F
) `  P )  .<_  W )  /\  (
( U `  F
) `  P )  .<_  ( P  .\/  ( R `  F )
) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( P 
.\/  ( R `  G ) )  ./\  ( ( ( U `
 F ) `  P )  .\/  ( R `  ( G  o.  `' F ) ) ) )  e.  A )
6157, 60syld3an2 1234 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( P 
.\/  ( R `  G ) )  ./\  ( ( ( U `
 F ) `  P )  .\/  ( R `  ( G  o.  `' F ) ) ) )  e.  A )
627, 10atcmp 28751 . . . 4  |-  ( ( K  e.  AtLat  /\  (
( U `  G
) `  P )  e.  A  /\  (
( P  .\/  ( R `  G )
)  ./\  ( (
( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )  e.  A )  -> 
( ( ( U `
 G ) `  P )  .<_  ( ( P  .\/  ( R `
 G ) ) 
./\  ( ( ( U `  F ) `
 P )  .\/  ( R `  ( G  o.  `' F ) ) ) )  <->  ( ( U `  G ) `  P )  =  ( ( P  .\/  ( R `  G )
)  ./\  ( (
( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) ) ) )
6350, 52, 61, 62syl3anc 1187 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( ( U `  G ) `
 P )  .<_  ( ( P  .\/  ( R `  G ) )  ./\  ( (
( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )  <-> 
( ( U `  G ) `  P
)  =  ( ( P  .\/  ( R `
 G ) ) 
./\  ( ( ( U `  F ) `
 P )  .\/  ( R `  ( G  o.  `' F ) ) ) ) ) )
6448, 63mpbid 203 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 G ) `  P )  =  ( ( P  .\/  ( R `  G )
)  ./\  ( (
( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) ) )
65 cdlemi.s . 2  |-  S  =  ( ( P  .\/  ( R `  G ) )  ./\  ( (
( U `  F
) `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )
6664, 65syl6eqr 2308 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( U  e.  E  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( ( U `
 G ) `  P )  =  S )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    <-> wb 178    /\ wa 360    /\ w3a 939    = wceq 1619    e. wcel 1621    =/= wne 2421   class class class wbr 3997    _I cid 4276   `'ccnv 4660    |` cres 4663    o. ccom 4665   ` cfv 4673  (class class class)co 5792   Basecbs 13111   lecple 13178   joincjn 14041   meetcmee 14042   Latclat 14114   Atomscatm 28703   AtLatcal 28704   HLchlt 28790   LHypclh 29423   LTrncltrn 29540   trLctrl 29597   TEndoctendo 30191
This theorem is referenced by:  cdlemj1  30260
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 2239  ax-rep 4105  ax-sep 4115  ax-nul 4123  ax-pow 4160  ax-pr 4186  ax-un 4484
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 2122  df-mo 2123  df-clab 2245  df-cleq 2251  df-clel 2254  df-nfc 2383  df-ne 2423  df-nel 2424  df-ral 2523  df-rex 2524  df-reu 2525  df-rmo 2526  df-rab 2527  df-v 2765  df-sbc 2967  df-csb 3057  df-dif 3130  df-un 3132  df-in 3134  df-ss 3141  df-nul 3431  df-if 3540  df-pw 3601  df-sn 3620  df-pr 3621  df-op 3623  df-uni 3802  df-iun 3881  df-iin 3882  df-br 3998  df-opab 4052  df-mpt 4053  df-id 4281  df-xp 4675  df-rel 4676  df-cnv 4677  df-co 4678  df-dm 4679  df-rn 4680  df-res 4681  df-ima 4682  df-fun 4683  df-fn 4684  df-f 4685  df-f1 4686  df-fo 4687  df-f1o 4688  df-fv 4689  df-ov 5795  df-oprab 5796  df-mpt2 5797  df-1st 6056  df-2nd 6057  df-iota 6225  df-undef 6264  df-riota 6272  df-map 6742  df-poset 14043  df-plt 14055  df-lub 14071  df-glb 14072  df-join 14073  df-meet 14074  df-p0 14108  df-p1 14109  df-lat 14115  df-clat 14177  df-oposet 28616  df-ol 28618  df-oml 28619  df-covers 28706  df-ats 28707  df-atl 28738  df-cvlat 28762  df-hlat 28791  df-llines 28937  df-lplanes 28938  df-lvols 28939  df-lines 28940  df-psubsp 28942  df-pmap 28943  df-padd 29235  df-lhyp 29427  df-laut 29428  df-ldil 29543  df-ltrn 29544  df-trl 29598  df-tendo 30194
  Copyright terms: Public domain W3C validator