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

Theorem cdlemkid1 34406
Description: Lemma for cdlemkid 34420. (Contributed by NM, 24-Jul-2013.)
Hypotheses
Ref Expression
cdlemk5.b  |-  B  =  ( Base `  K
)
cdlemk5.l  |-  .<_  =  ( le `  K )
cdlemk5.j  |-  .\/  =  ( join `  K )
cdlemk5.m  |-  ./\  =  ( meet `  K )
cdlemk5.a  |-  A  =  ( Atoms `  K )
cdlemk5.h  |-  H  =  ( LHyp `  K
)
cdlemk5.t  |-  T  =  ( ( LTrn `  K
) `  W )
cdlemk5.r  |-  R  =  ( ( trL `  K
) `  W )
cdlemk5.z  |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  (
b  o.  `' F
) ) ) )
Assertion
Ref Expression
cdlemkid1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( Z  .\/  ( R `  b )
)  =  ( P 
.\/  ( R `  b ) ) )

Proof of Theorem cdlemkid1
StepHypRef Expression
1 cdlemk5.z . . 3  |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  (
b  o.  `' F
) ) ) )
21oveq1i 6096 . 2  |-  ( Z 
.\/  ( R `  b ) )  =  ( ( ( P 
.\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )  .\/  ( R `
 b ) )
3 simp1l 1012 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  K  e.  HL )
4 simp1 988 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
5 simp3rl 1061 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
b  e.  T )
6 simp3rr 1062 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
b  =/=  (  _I  |`  B ) )
7 cdlemk5.b . . . . . 6  |-  B  =  ( Base `  K
)
8 cdlemk5.a . . . . . 6  |-  A  =  ( Atoms `  K )
9 cdlemk5.h . . . . . 6  |-  H  =  ( LHyp `  K
)
10 cdlemk5.t . . . . . 6  |-  T  =  ( ( LTrn `  K
) `  W )
11 cdlemk5.r . . . . . 6  |-  R  =  ( ( trL `  K
) `  W )
127, 8, 9, 10, 11trlnidat 33657 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  b  e.  T  /\  b  =/=  (  _I  |`  B ) )  ->  ( R `  b )  e.  A
)
134, 5, 6, 12syl3anc 1218 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  b
)  e.  A )
14 simp3ll 1059 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  P  e.  A )
15 cdlemk5.j . . . . . 6  |-  .\/  =  ( join `  K )
167, 15, 8hlatjcl 32851 . . . . 5  |-  ( ( K  e.  HL  /\  P  e.  A  /\  ( R `  b )  e.  A )  -> 
( P  .\/  ( R `  b )
)  e.  B )
173, 14, 13, 16syl3anc 1218 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( P  .\/  ( R `  b )
)  e.  B )
18 hllat 32848 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  Lat )
193, 18syl 16 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  K  e.  Lat )
20 simp22 1022 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  N  e.  T )
217, 8atbase 32774 . . . . . . 7  |-  ( P  e.  A  ->  P  e.  B )
2214, 21syl 16 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  P  e.  B )
237, 9, 10ltrncl 33609 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  N  e.  T  /\  P  e.  B
)  ->  ( N `  P )  e.  B
)
244, 20, 22, 23syl3anc 1218 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( N `  P
)  e.  B )
25 simp21 1021 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  F  e.  T )
269, 10ltrncnv 33630 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  `' F  e.  T )
274, 25, 26syl2anc 661 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  `' F  e.  T
)
289, 10ltrnco 34203 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  b  e.  T  /\  `' F  e.  T
)  ->  ( b  o.  `' F )  e.  T
)
294, 5, 27, 28syl3anc 1218 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( b  o.  `' F )  e.  T
)
307, 9, 10, 11trlcl 33648 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( b  o.  `' F )  e.  T
)  ->  ( R `  ( b  o.  `' F ) )  e.  B )
314, 29, 30syl2anc 661 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  (
b  o.  `' F
) )  e.  B
)
327, 15latjcl 15213 . . . . 5  |-  ( ( K  e.  Lat  /\  ( N `  P )  e.  B  /\  ( R `  ( b  o.  `' F ) )  e.  B )  ->  (
( N `  P
)  .\/  ( R `  ( b  o.  `' F ) ) )  e.  B )
3319, 24, 31, 32syl3anc 1218 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) )  e.  B )
34 cdlemk5.l . . . . . 6  |-  .<_  =  ( le `  K )
3534, 15, 8hlatlej2 32860 . . . . 5  |-  ( ( K  e.  HL  /\  P  e.  A  /\  ( R `  b )  e.  A )  -> 
( R `  b
)  .<_  ( P  .\/  ( R `  b ) ) )
363, 14, 13, 35syl3anc 1218 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  b
)  .<_  ( P  .\/  ( R `  b ) ) )
37 cdlemk5.m . . . . 5  |-  ./\  =  ( meet `  K )
387, 34, 15, 37, 8atmod2i1 33345 . . . 4  |-  ( ( K  e.  HL  /\  ( ( R `  b )  e.  A  /\  ( P  .\/  ( R `  b )
)  e.  B  /\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) )  e.  B )  /\  ( R `  b ) 
.<_  ( P  .\/  ( R `  b )
) )  ->  (
( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  (
b  o.  `' F
) ) ) ) 
.\/  ( R `  b ) )  =  ( ( P  .\/  ( R `  b ) )  ./\  ( (
( N `  P
)  .\/  ( R `  ( b  o.  `' F ) ) ) 
.\/  ( R `  b ) ) ) )
393, 13, 17, 33, 36, 38syl131anc 1231 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( ( P 
.\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )  .\/  ( R `
 b ) )  =  ( ( P 
.\/  ( R `  b ) )  ./\  ( ( ( N `
 P )  .\/  ( R `  ( b  o.  `' F ) ) )  .\/  ( R `  b )
) ) )
407, 8atbase 32774 . . . . . . . 8  |-  ( ( R `  b )  e.  A  ->  ( R `  b )  e.  B )
4113, 40syl 16 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  b
)  e.  B )
427, 9, 10, 11trlcl 33648 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  N  e.  T
)  ->  ( R `  N )  e.  B
)
434, 20, 42syl2anc 661 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  N
)  e.  B )
447, 15latj32 15259 . . . . . . 7  |-  ( ( K  e.  Lat  /\  ( P  e.  B  /\  ( R `  b
)  e.  B  /\  ( R `  N )  e.  B ) )  ->  ( ( P 
.\/  ( R `  b ) )  .\/  ( R `  N ) )  =  ( ( P  .\/  ( R `
 N ) ) 
.\/  ( R `  b ) ) )
4519, 22, 41, 43, 44syl13anc 1220 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( P  .\/  ( R `  b ) )  .\/  ( R `
 N ) )  =  ( ( P 
.\/  ( R `  N ) )  .\/  ( R `  b ) ) )
46 simp3l 1016 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( P  e.  A  /\  -.  P  .<_  W ) )
4734, 15, 8, 9, 10, 11trljat3 33652 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( P  .\/  ( R `  N
) )  =  ( ( N `  P
)  .\/  ( R `  N ) ) )
484, 20, 46, 47syl3anc 1218 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( P  .\/  ( R `  N )
)  =  ( ( N `  P ) 
.\/  ( R `  N ) ) )
4948oveq1d 6101 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( P  .\/  ( R `  N ) )  .\/  ( R `
 b ) )  =  ( ( ( N `  P ) 
.\/  ( R `  N ) )  .\/  ( R `  b ) ) )
507, 15latjass 15257 . . . . . . 7  |-  ( ( K  e.  Lat  /\  ( ( N `  P )  e.  B  /\  ( R `  N
)  e.  B  /\  ( R `  b )  e.  B ) )  ->  ( ( ( N `  P ) 
.\/  ( R `  N ) )  .\/  ( R `  b ) )  =  ( ( N `  P ) 
.\/  ( ( R `
 N )  .\/  ( R `  b ) ) ) )
5119, 24, 43, 41, 50syl13anc 1220 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( ( N `
 P )  .\/  ( R `  N ) )  .\/  ( R `
 b ) )  =  ( ( N `
 P )  .\/  ( ( R `  N )  .\/  ( R `  b )
) ) )
5245, 49, 513eqtrd 2474 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( P  .\/  ( R `  b ) )  .\/  ( R `
 N ) )  =  ( ( N `
 P )  .\/  ( ( R `  N )  .\/  ( R `  b )
) ) )
537, 15latjass 15257 . . . . . . 7  |-  ( ( K  e.  Lat  /\  ( ( N `  P )  e.  B  /\  ( R `  (
b  o.  `' F
) )  e.  B  /\  ( R `  b
)  e.  B ) )  ->  ( (
( N `  P
)  .\/  ( R `  ( b  o.  `' F ) ) ) 
.\/  ( R `  b ) )  =  ( ( N `  P )  .\/  (
( R `  (
b  o.  `' F
) )  .\/  ( R `  b )
) ) )
5419, 24, 31, 41, 53syl13anc 1220 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( ( N `
 P )  .\/  ( R `  ( b  o.  `' F ) ) )  .\/  ( R `  b )
)  =  ( ( N `  P ) 
.\/  ( ( R `
 ( b  o.  `' F ) )  .\/  ( R `  b ) ) ) )
557, 15latjcom 15221 . . . . . . . . . 10  |-  ( ( K  e.  Lat  /\  ( R `  N )  e.  B  /\  ( R `  b )  e.  B )  ->  (
( R `  N
)  .\/  ( R `  b ) )  =  ( ( R `  b )  .\/  ( R `  N )
) )
5619, 43, 41, 55syl3anc 1218 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( R `  N )  .\/  ( R `  b )
)  =  ( ( R `  b ) 
.\/  ( R `  N ) ) )
579, 10, 11trlcnv 33649 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  ( R `  `' F )  =  ( R `  F ) )
584, 25, 57syl2anc 661 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  `' F )  =  ( R `  F ) )
59 simp23 1023 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  F
)  =  ( R `
 N ) )
6058, 59eqtrd 2470 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( R `  `' F )  =  ( R `  N ) )
6160oveq2d 6102 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( R `  b )  .\/  ( R `  `' F
) )  =  ( ( R `  b
)  .\/  ( R `  N ) ) )
6256, 61eqtr4d 2473 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( R `  N )  .\/  ( R `  b )
)  =  ( ( R `  b ) 
.\/  ( R `  `' F ) ) )
6315, 9, 10, 11trljco 34224 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  b  e.  T  /\  `' F  e.  T
)  ->  ( ( R `  b )  .\/  ( R `  (
b  o.  `' F
) ) )  =  ( ( R `  b )  .\/  ( R `  `' F
) ) )
644, 5, 27, 63syl3anc 1218 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( R `  b )  .\/  ( R `  ( b  o.  `' F ) ) )  =  ( ( R `
 b )  .\/  ( R `  `' F
) ) )
657, 15latjcom 15221 . . . . . . . . 9  |-  ( ( K  e.  Lat  /\  ( R `  b )  e.  B  /\  ( R `  ( b  o.  `' F ) )  e.  B )  ->  (
( R `  b
)  .\/  ( R `  ( b  o.  `' F ) ) )  =  ( ( R `
 ( b  o.  `' F ) )  .\/  ( R `  b ) ) )
6619, 41, 31, 65syl3anc 1218 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( R `  b )  .\/  ( R `  ( b  o.  `' F ) ) )  =  ( ( R `
 ( b  o.  `' F ) )  .\/  ( R `  b ) ) )
6762, 64, 663eqtr2d 2476 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( R `  N )  .\/  ( R `  b )
)  =  ( ( R `  ( b  o.  `' F ) )  .\/  ( R `
 b ) ) )
6867oveq2d 6102 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( N `  P )  .\/  (
( R `  N
)  .\/  ( R `  b ) ) )  =  ( ( N `
 P )  .\/  ( ( R `  ( b  o.  `' F ) )  .\/  ( R `  b ) ) ) )
6954, 68eqtr4d 2473 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( ( N `
 P )  .\/  ( R `  ( b  o.  `' F ) ) )  .\/  ( R `  b )
)  =  ( ( N `  P ) 
.\/  ( ( R `
 N )  .\/  ( R `  b ) ) ) )
7052, 69eqtr4d 2473 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( P  .\/  ( R `  b ) )  .\/  ( R `
 N ) )  =  ( ( ( N `  P ) 
.\/  ( R `  ( b  o.  `' F ) ) ) 
.\/  ( R `  b ) ) )
7170oveq2d 6102 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( P  .\/  ( R `  b ) )  ./\  ( ( P  .\/  ( R `  b ) )  .\/  ( R `  N ) ) )  =  ( ( P  .\/  ( R `  b )
)  ./\  ( (
( N `  P
)  .\/  ( R `  ( b  o.  `' F ) ) ) 
.\/  ( R `  b ) ) ) )
727, 15, 37latabs2 15250 . . . 4  |-  ( ( K  e.  Lat  /\  ( P  .\/  ( R `
 b ) )  e.  B  /\  ( R `  N )  e.  B )  ->  (
( P  .\/  ( R `  b )
)  ./\  ( ( P  .\/  ( R `  b ) )  .\/  ( R `  N ) ) )  =  ( P  .\/  ( R `
 b ) ) )
7319, 17, 43, 72syl3anc 1218 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( P  .\/  ( R `  b ) )  ./\  ( ( P  .\/  ( R `  b ) )  .\/  ( R `  N ) ) )  =  ( P  .\/  ( R `
 b ) ) )
7439, 71, 733eqtr2d 2476 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( ( ( P 
.\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )  .\/  ( R `
 b ) )  =  ( P  .\/  ( R `  b ) ) )
752, 74syl5eq 2482 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `
 F )  =  ( R `  N
) )  /\  (
( P  e.  A  /\  -.  P  .<_  W )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  -> 
( Z  .\/  ( R `  b )
)  =  ( P 
.\/  ( R `  b ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 369    /\ w3a 965    = wceq 1369    e. wcel 1756    =/= wne 2601   class class class wbr 4287    _I cid 4626   `'ccnv 4834    |` cres 4837    o. ccom 4839   ` cfv 5413  (class class class)co 6086   Basecbs 14166   lecple 14237   joincjn 15106   meetcmee 15107   Latclat 15207   Atomscatm 32748   HLchlt 32835   LHypclh 33468   LTrncltrn 33585   trLctrl 33642
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2419  ax-rep 4398  ax-sep 4408  ax-nul 4416  ax-pow 4465  ax-pr 4526  ax-un 6367  ax-riotaBAD 32444
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2256  df-mo 2257  df-clab 2425  df-cleq 2431  df-clel 2434  df-nfc 2563  df-ne 2603  df-nel 2604  df-ral 2715  df-rex 2716  df-reu 2717  df-rmo 2718  df-rab 2719  df-v 2969  df-sbc 3182  df-csb 3284  df-dif 3326  df-un 3328  df-in 3330  df-ss 3337  df-nul 3633  df-if 3787  df-pw 3857  df-sn 3873  df-pr 3875  df-op 3879  df-uni 4087  df-iun 4168  df-iin 4169  df-br 4288  df-opab 4346  df-mpt 4347  df-id 4631  df-xp 4841  df-rel 4842  df-cnv 4843  df-co 4844  df-dm 4845  df-rn 4846  df-res 4847  df-ima 4848  df-iota 5376  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-riota 6047  df-ov 6089  df-oprab 6090  df-mpt2 6091  df-1st 6572  df-2nd 6573  df-undef 6784  df-map 7208  df-poset 15108  df-plt 15120  df-lub 15136  df-glb 15137  df-join 15138  df-meet 15139  df-p0 15201  df-p1 15202  df-lat 15208  df-clat 15270  df-oposet 32661  df-ol 32663  df-oml 32664  df-covers 32751  df-ats 32752  df-atl 32783  df-cvlat 32807  df-hlat 32836  df-llines 32982  df-lplanes 32983  df-lvols 32984  df-lines 32985  df-psubsp 32987  df-pmap 32988  df-padd 33280  df-lhyp 33472  df-laut 33473  df-ldil 33588  df-ltrn 33589  df-trl 33643
This theorem is referenced by:  cdlemkid2  34408
  Copyright terms: Public domain W3C validator