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

Theorem cdlemk7 34384
Description: Part of proof of Lemma K of [Crawley] p. 118. Line 5, p. 119. (Contributed by NM, 27-Jun-2013.)
Hypotheses
Ref Expression
cdlemk.b  |-  B  =  ( Base `  K
)
cdlemk.l  |-  .<_  =  ( le `  K )
cdlemk.j  |-  .\/  =  ( join `  K )
cdlemk.a  |-  A  =  ( Atoms `  K )
cdlemk.h  |-  H  =  ( LHyp `  K
)
cdlemk.t  |-  T  =  ( ( LTrn `  K
) `  W )
cdlemk.r  |-  R  =  ( ( trL `  K
) `  W )
cdlemk.m  |-  ./\  =  ( meet `  K )
cdlemk.s  |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T  ( i `  P
)  =  ( ( P  .\/  ( R `
 f ) ) 
./\  ( ( N `
 P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )
cdlemk.v  |-  V  =  ( ( ( G `
 P )  .\/  ( X `  P ) )  ./\  ( ( R `  ( G  o.  `' F ) )  .\/  ( R `  ( X  o.  `' F ) ) ) )
Assertion
Ref Expression
cdlemk7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  G
) `  P )  .<_  ( ( ( S `
 X ) `  P )  .\/  V
) )
Distinct variable groups:    ./\ , f    .\/ , f    f, F, i    f, G, i    f, N    P, f    R, f    T, f   
f, W    ./\ , i    .<_ , i    .\/ , i    A, i    i, F   
i, H    i, K    i, N    P, i    R, i    T, i    i, W    f, X, i
Allowed substitution hints:    A( f)    B( f, i)    S( f, i)    H( f)    K( f)    .<_ ( f)    V( f, i)

Proof of Theorem cdlemk7
StepHypRef Expression
1 simp1 1005 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
) )
2 simp2 1006 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) ) )
3 simp311 1152 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  F  =/=  (  _I  |`  B ) )
4 simp312 1153 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  G  =/=  (  _I  |`  B ) )
5 simp32 1042 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( R `  G )  =/=  ( R `  F
) )
6 simp33 1043 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( R `  X )  =/=  ( R `  F
) )
75, 6jca 534 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( R `  G
)  =/=  ( R `
 F )  /\  ( R `  X )  =/=  ( R `  F ) ) )
8 cdlemk.b . . . 4  |-  B  =  ( Base `  K
)
9 cdlemk.l . . . 4  |-  .<_  =  ( le `  K )
10 cdlemk.j . . . 4  |-  .\/  =  ( join `  K )
11 cdlemk.a . . . 4  |-  A  =  ( Atoms `  K )
12 cdlemk.h . . . 4  |-  H  =  ( LHyp `  K
)
13 cdlemk.t . . . 4  |-  T  =  ( ( LTrn `  K
) `  W )
14 cdlemk.r . . . 4  |-  R  =  ( ( trL `  K
) `  W )
15 cdlemk.m . . . 4  |-  ./\  =  ( meet `  K )
168, 9, 10, 11, 12, 13, 14, 15cdlemk6 34373 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) ) )  -> 
( ( P  .\/  ( G `  P ) )  ./\  ( ( N `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) ) 
.<_  ( ( ( ( G `  P ) 
.\/  ( X `  P ) )  ./\  ( ( R `  ( G  o.  `' F ) )  .\/  ( R `  ( X  o.  `' F ) ) ) )  .\/  ( ( ( X `
 P )  .\/  P )  ./\  ( ( R `  ( X  o.  `' F ) )  .\/  ( N `  P ) ) ) ) )
171, 2, 3, 4, 7, 16syl113anc 1276 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( P  .\/  ( G `  P )
)  ./\  ( ( N `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) ) 
.<_  ( ( ( ( G `  P ) 
.\/  ( X `  P ) )  ./\  ( ( R `  ( G  o.  `' F ) )  .\/  ( R `  ( X  o.  `' F ) ) ) )  .\/  ( ( ( X `
 P )  .\/  P )  ./\  ( ( R `  ( X  o.  `' F ) )  .\/  ( N `  P ) ) ) ) )
18 simp21l 1122 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  N  e.  T )
19 simp22 1039 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
20 simp23 1040 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( R `  F )  =  ( R `  N ) )
2118, 19, 203jca 1185 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) ) )
22 cdlemk.s . . . . 5  |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T  ( i `  P
)  =  ( ( P  .\/  ( R `
 f ) ) 
./\  ( ( N `
 P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )
238, 9, 10, 11, 12, 13, 14, 15, 22cdlemksv2 34383 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  ( R `  G )  =/=  ( R `  F ) ) )  ->  ( ( S `
 G ) `  P )  =  ( ( P  .\/  ( R `  G )
)  ./\  ( ( N `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) ) )
241, 21, 3, 4, 5, 23syl113anc 1276 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  G
) `  P )  =  ( ( P 
.\/  ( R `  G ) )  ./\  ( ( N `  P )  .\/  ( R `  ( G  o.  `' F ) ) ) ) )
25 simp11 1035 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( K  e.  HL  /\  W  e.  H ) )
26 simp13 1037 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  G  e.  T )
279, 10, 11, 12, 13, 14trljat1 33701 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .\/  ( R `  G
) )  =  ( P  .\/  ( G `
 P ) ) )
2825, 26, 19, 27syl3anc 1264 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( P  .\/  ( R `  G ) )  =  ( P  .\/  ( G `  P )
) )
2928oveq1d 6320 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( P  .\/  ( R `  G )
)  ./\  ( ( N `  P )  .\/  ( R `  ( G  o.  `' F
) ) ) )  =  ( ( P 
.\/  ( G `  P ) )  ./\  ( ( N `  P )  .\/  ( R `  ( G  o.  `' F ) ) ) ) )
3024, 29eqtrd 2463 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  G
) `  P )  =  ( ( P 
.\/  ( G `  P ) )  ./\  ( ( N `  P )  .\/  ( R `  ( G  o.  `' F ) ) ) ) )
31 simp11l 1116 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  K  e.  HL )
32 hllat 32898 . . . . 5  |-  ( K  e.  HL  ->  K  e.  Lat )
3331, 32syl 17 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  K  e.  Lat )
34 simp12 1036 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  F  e.  T )
35 simp21r 1123 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  X  e.  T )
3625, 34, 353jca 1185 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  X  e.  T
) )
37 simp313 1154 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  X  =/=  (  _I  |`  B ) )
388, 9, 10, 11, 12, 13, 14, 15, 22cdlemksat 34382 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  X  e.  T )  /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B )  /\  ( R `  X )  =/=  ( R `  F ) ) )  ->  ( ( S `
 X ) `  P )  e.  A
)
3936, 21, 3, 37, 6, 38syl113anc 1276 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  X
) `  P )  e.  A )
408, 11atbase 32824 . . . . 5  |-  ( ( ( S `  X
) `  P )  e.  A  ->  ( ( S `  X ) `
 P )  e.  B )
4139, 40syl 17 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  X
) `  P )  e.  B )
42 simp11r 1117 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  W  e.  H )
43 simp22l 1124 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  P  e.  A )
44 cdlemk.v . . . . . 6  |-  V  =  ( ( ( G `
 P )  .\/  ( X `  P ) )  ./\  ( ( R `  ( G  o.  `' F ) )  .\/  ( R `  ( X  o.  `' F ) ) ) )
458, 9, 10, 11, 12, 13, 14, 15, 44cdlemkvcl 34378 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T  /\  X  e.  T )  /\  P  e.  A )  ->  V  e.  B )
4631, 42, 34, 26, 35, 43, 45syl231anc 1284 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  V  e.  B )
478, 10latjcom 16304 . . . 4  |-  ( ( K  e.  Lat  /\  ( ( S `  X ) `  P
)  e.  B  /\  V  e.  B )  ->  ( ( ( S `
 X ) `  P )  .\/  V
)  =  ( V 
.\/  ( ( S `
 X ) `  P ) ) )
4833, 41, 46, 47syl3anc 1264 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( ( S `  X ) `  P
)  .\/  V )  =  ( V  .\/  ( ( S `  X ) `  P
) ) )
4944a1i 11 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  V  =  ( ( ( G `  P ) 
.\/  ( X `  P ) )  ./\  ( ( R `  ( G  o.  `' F ) )  .\/  ( R `  ( X  o.  `' F ) ) ) ) )
508, 9, 10, 11, 12, 13, 14, 15, 22cdlemksv2 34383 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  X  e.  T )  /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B )  /\  ( R `  X )  =/=  ( R `  F ) ) )  ->  ( ( S `
 X ) `  P )  =  ( ( P  .\/  ( R `  X )
)  ./\  ( ( N `  P )  .\/  ( R `  ( X  o.  `' F
) ) ) ) )
5136, 21, 3, 37, 6, 50syl113anc 1276 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  X
) `  P )  =  ( ( P 
.\/  ( R `  X ) )  ./\  ( ( N `  P )  .\/  ( R `  ( X  o.  `' F ) ) ) ) )
529, 10, 11, 12, 13, 14trljat1 33701 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .\/  ( R `  X
) )  =  ( P  .\/  ( X `
 P ) ) )
5325, 35, 19, 52syl3anc 1264 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( P  .\/  ( R `  X ) )  =  ( P  .\/  ( X `  P )
) )
549, 11, 12, 13ltrnat 33674 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  T  /\  P  e.  A
)  ->  ( X `  P )  e.  A
)
5525, 35, 43, 54syl3anc 1264 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( X `  P )  e.  A )
5610, 11hlatjcom 32902 . . . . . . . 8  |-  ( ( K  e.  HL  /\  ( X `  P )  e.  A  /\  P  e.  A )  ->  (
( X `  P
)  .\/  P )  =  ( P  .\/  ( X `  P ) ) )
5731, 55, 43, 56syl3anc 1264 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( X `  P
)  .\/  P )  =  ( P  .\/  ( X `  P ) ) )
5853, 57eqtr4d 2466 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( P  .\/  ( R `  X ) )  =  ( ( X `  P )  .\/  P
) )
599, 11, 12, 13ltrnat 33674 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  N  e.  T  /\  P  e.  A
)  ->  ( N `  P )  e.  A
)
6025, 18, 43, 59syl3anc 1264 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( N `  P )  e.  A )
6135, 34jca 534 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( X  e.  T  /\  F  e.  T )
)
6211, 12, 13, 14trlcocnvat 34260 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  T  /\  F  e.  T )  /\  ( R `  X )  =/=  ( R `  F
) )  ->  ( R `  ( X  o.  `' F ) )  e.  A )
6325, 61, 6, 62syl3anc 1264 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( R `  ( X  o.  `' F ) )  e.  A )
6410, 11hlatjcom 32902 . . . . . . 7  |-  ( ( K  e.  HL  /\  ( N `  P )  e.  A  /\  ( R `  ( X  o.  `' F ) )  e.  A )  ->  (
( N `  P
)  .\/  ( R `  ( X  o.  `' F ) ) )  =  ( ( R `
 ( X  o.  `' F ) )  .\/  ( N `  P ) ) )
6531, 60, 63, 64syl3anc 1264 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( N `  P
)  .\/  ( R `  ( X  o.  `' F ) ) )  =  ( ( R `
 ( X  o.  `' F ) )  .\/  ( N `  P ) ) )
6658, 65oveq12d 6323 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( P  .\/  ( R `  X )
)  ./\  ( ( N `  P )  .\/  ( R `  ( X  o.  `' F
) ) ) )  =  ( ( ( X `  P ) 
.\/  P )  ./\  ( ( R `  ( X  o.  `' F ) )  .\/  ( N `  P ) ) ) )
6751, 66eqtrd 2463 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  X
) `  P )  =  ( ( ( X `  P ) 
.\/  P )  ./\  ( ( R `  ( X  o.  `' F ) )  .\/  ( N `  P ) ) ) )
6849, 67oveq12d 6323 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  ( V  .\/  ( ( S `
 X ) `  P ) )  =  ( ( ( ( G `  P ) 
.\/  ( X `  P ) )  ./\  ( ( R `  ( G  o.  `' F ) )  .\/  ( R `  ( X  o.  `' F ) ) ) )  .\/  ( ( ( X `
 P )  .\/  P )  ./\  ( ( R `  ( X  o.  `' F ) )  .\/  ( N `  P ) ) ) ) )
6948, 68eqtrd 2463 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( ( S `  X ) `  P
)  .\/  V )  =  ( ( ( ( G `  P
)  .\/  ( X `  P ) )  ./\  ( ( R `  ( G  o.  `' F ) )  .\/  ( R `  ( X  o.  `' F ) ) ) )  .\/  ( ( ( X `
 P )  .\/  P )  ./\  ( ( R `  ( X  o.  `' F ) )  .\/  ( N `  P ) ) ) ) )
7017, 30, 693brtr4d 4454 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
( N  e.  T  /\  X  e.  T
)  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  =/=  (  _I  |`  B )  /\  G  =/=  (  _I  |`  B )  /\  X  =/=  (  _I  |`  B ) )  /\  ( R `
 G )  =/=  ( R `  F
)  /\  ( R `  X )  =/=  ( R `  F )
) )  ->  (
( S `  G
) `  P )  .<_  ( ( ( S `
 X ) `  P )  .\/  V
) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 370    /\ w3a 982    = wceq 1437    e. wcel 1872    =/= wne 2614   class class class wbr 4423    |-> cmpt 4482    _I cid 4763   `'ccnv 4852    |` cres 4855    o. ccom 4857   ` cfv 5601   iota_crio 6266  (class class class)co 6305   Basecbs 15120   lecple 15196   joincjn 16188   meetcmee 16189   Latclat 16290   Atomscatm 32798   HLchlt 32885   LHypclh 33518   LTrncltrn 33635   trLctrl 33693
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1663  ax-4 1676  ax-5 1752  ax-6 1798  ax-7 1843  ax-8 1874  ax-9 1876  ax-10 1891  ax-11 1896  ax-12 1909  ax-13 2057  ax-ext 2401  ax-rep 4536  ax-sep 4546  ax-nul 4555  ax-pow 4602  ax-pr 4660  ax-un 6597  ax-riotaBAD 32494
This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-ex 1658  df-nf 1662  df-sb 1791  df-eu 2273  df-mo 2274  df-clab 2408  df-cleq 2414  df-clel 2417  df-nfc 2568  df-ne 2616  df-nel 2617  df-ral 2776  df-rex 2777  df-reu 2778  df-rmo 2779  df-rab 2780  df-v 3082  df-sbc 3300  df-csb 3396  df-dif 3439  df-un 3441  df-in 3443  df-ss 3450  df-nul 3762  df-if 3912  df-pw 3983  df-sn 3999  df-pr 4001  df-op 4005  df-uni 4220  df-iun 4301  df-iin 4302  df-br 4424  df-opab 4483  df-mpt 4484  df-id 4768  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-rn 4864  df-res 4865  df-ima 4866  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-riota 6267  df-ov 6308  df-oprab 6309  df-mpt2 6310  df-1st 6807  df-2nd 6808  df-undef 7031  df-map 7485  df-preset 16172  df-poset 16190  df-plt 16203  df-lub 16219  df-glb 16220  df-join 16221  df-meet 16222  df-p0 16284  df-p1 16285  df-lat 16291  df-clat 16353  df-oposet 32711  df-ol 32713  df-oml 32714  df-covers 32801  df-ats 32802  df-atl 32833  df-cvlat 32857  df-hlat 32886  df-llines 33032  df-lplanes 33033  df-lvols 33034  df-lines 33035  df-psubsp 33037  df-pmap 33038  df-padd 33330  df-lhyp 33522  df-laut 33523  df-ldil 33638  df-ltrn 33639  df-trl 33694
This theorem is referenced by:  cdlemk11  34385
  Copyright terms: Public domain W3C validator