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

Theorem cdlemg13a 34295
Description: TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
Hypotheses
Ref Expression
cdlemg12.l  |-  .<_  =  ( le `  K )
cdlemg12.j  |-  .\/  =  ( join `  K )
cdlemg12.m  |-  ./\  =  ( meet `  K )
cdlemg12.a  |-  A  =  ( Atoms `  K )
cdlemg12.h  |-  H  =  ( LHyp `  K
)
cdlemg12.t  |-  T  =  ( ( LTrn `  K
) `  W )
cdlemg12b.r  |-  R  =  ( ( trL `  K
) `  W )
Assertion
Ref Expression
cdlemg13a  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( P  .\/  ( F `  ( G `  P )
) )  =  ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) ) )

Proof of Theorem cdlemg13a
StepHypRef Expression
1 simp11l 1099 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  K  e.  HL )
2 simp12l 1101 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  P  e.  A )
3 simp11 1018 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
4 simp2r 1015 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  G  e.  T )
5 cdlemg12.l . . . . . . 7  |-  .<_  =  ( le `  K )
6 cdlemg12.a . . . . . . 7  |-  A  =  ( Atoms `  K )
7 cdlemg12.h . . . . . . 7  |-  H  =  ( LHyp `  K
)
8 cdlemg12.t . . . . . . 7  |-  T  =  ( ( LTrn `  K
) `  W )
95, 6, 7, 8ltrnat 33784 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  P  e.  A
)  ->  ( G `  P )  e.  A
)
103, 4, 2, 9syl3anc 1218 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( G `  P )  e.  A
)
11 cdlemg12.j . . . . . 6  |-  .\/  =  ( join `  K )
125, 11, 6hlatlej1 33019 . . . . 5  |-  ( ( K  e.  HL  /\  P  e.  A  /\  ( G `  P )  e.  A )  ->  P  .<_  ( P  .\/  ( G `  P ) ) )
131, 2, 10, 12syl3anc 1218 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  P  .<_  ( P  .\/  ( G `
 P ) ) )
14 simp32 1025 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( R `  F )  =  ( R `  G ) )
15 simp2l 1014 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  F  e.  T )
16 simp12 1019 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
175, 6, 7, 8ltrnel 33783 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )
183, 4, 16, 17syl3anc 1218 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )
19 cdlemg12.m . . . . . . . . 9  |-  ./\  =  ( meet `  K )
20 cdlemg12b.r . . . . . . . . 9  |-  R  =  ( ( trL `  K
) `  W )
215, 11, 19, 6, 7, 8, 20trlval2 33807 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )  ->  ( R `  F )  =  ( ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) 
./\  W ) )
223, 15, 18, 21syl3anc 1218 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( R `  F )  =  ( ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) 
./\  W ) )
235, 11, 19, 6, 7, 8, 20trlval2 33807 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  G )  =  ( ( P  .\/  ( G `  P )
)  ./\  W )
)
243, 4, 16, 23syl3anc 1218 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( R `  G )  =  ( ( P  .\/  ( G `  P )
)  ./\  W )
)
2514, 22, 243eqtr3d 2483 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( (
( G `  P
)  .\/  ( F `  ( G `  P
) ) )  ./\  W )  =  ( ( P  .\/  ( G `
 P ) ) 
./\  W ) )
2625oveq2d 6107 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( G `  P )  .\/  ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )
)  =  ( ( G `  P ) 
.\/  ( ( P 
.\/  ( G `  P ) )  ./\  W ) ) )
275, 6, 7, 8ltrncoat 33788 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  P  e.  A )  ->  ( F `  ( G `  P ) )  e.  A )
283, 15, 4, 2, 27syl121anc 1223 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( F `  ( G `  P
) )  e.  A
)
29 eqid 2443 . . . . . . 7  |-  ( ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) )  ./\  W )  =  ( ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) )  ./\  W )
305, 11, 19, 6, 7, 29cdleme0cp 33858 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( ( G `  P )  e.  A  /\  -.  ( G `  P ) 
.<_  W )  /\  ( F `  ( G `  P ) )  e.  A ) )  -> 
( ( G `  P )  .\/  (
( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) 
./\  W ) )  =  ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) ) )
313, 18, 28, 30syl12anc 1216 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( G `  P )  .\/  ( ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  ./\  W )
)  =  ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) ) )
32 eqid 2443 . . . . . . 7  |-  ( ( P  .\/  ( G `
 P ) ) 
./\  W )  =  ( ( P  .\/  ( G `  P ) )  ./\  W )
335, 11, 19, 6, 7, 32cdleme0cq 33859 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  ( ( G `  P )  e.  A  /\  -.  ( G `  P ) 
.<_  W ) ) )  ->  ( ( G `
 P )  .\/  ( ( P  .\/  ( G `  P ) )  ./\  W )
)  =  ( P 
.\/  ( G `  P ) ) )
343, 2, 18, 33syl12anc 1216 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( G `  P )  .\/  ( ( P  .\/  ( G `  P ) )  ./\  W )
)  =  ( P 
.\/  ( G `  P ) ) )
3526, 31, 343eqtr3rd 2484 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( P  .\/  ( G `  P
) )  =  ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) ) )
3613, 35breqtrd 4316 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  P  .<_  ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) ) )
375, 11, 6hlatlej2 33020 . . . 4  |-  ( ( K  e.  HL  /\  ( G `  P )  e.  A  /\  ( F `  ( G `  P ) )  e.  A )  ->  ( F `  ( G `  P ) )  .<_  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) )
381, 10, 28, 37syl3anc 1218 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( F `  ( G `  P
) )  .<_  ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) ) )
39 hllat 33008 . . . . 5  |-  ( K  e.  HL  ->  K  e.  Lat )
401, 39syl 16 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  K  e.  Lat )
41 eqid 2443 . . . . . 6  |-  ( Base `  K )  =  (
Base `  K )
4241, 6atbase 32934 . . . . 5  |-  ( P  e.  A  ->  P  e.  ( Base `  K
) )
432, 42syl 16 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  P  e.  ( Base `  K )
)
4441, 6atbase 32934 . . . . 5  |-  ( ( F `  ( G `
 P ) )  e.  A  ->  ( F `  ( G `  P ) )  e.  ( Base `  K
) )
4528, 44syl 16 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( F `  ( G `  P
) )  e.  (
Base `  K )
)
4641, 11, 6hlatjcl 33011 . . . . 5  |-  ( ( K  e.  HL  /\  ( G `  P )  e.  A  /\  ( F `  ( G `  P ) )  e.  A )  ->  (
( G `  P
)  .\/  ( F `  ( G `  P
) ) )  e.  ( Base `  K
) )
471, 10, 28, 46syl3anc 1218 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( G `  P )  .\/  ( F `  ( G `  P )
) )  e.  (
Base `  K )
)
4841, 5, 11latjle12 15232 . . . 4  |-  ( ( K  e.  Lat  /\  ( P  e.  ( Base `  K )  /\  ( F `  ( G `
 P ) )  e.  ( Base `  K
)  /\  ( ( G `  P )  .\/  ( F `  ( G `  P )
) )  e.  (
Base `  K )
) )  ->  (
( P  .<_  ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) )  /\  ( F `  ( G `  P ) )  .<_  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) )  <->  ( P  .\/  ( F `  ( G `
 P ) ) )  .<_  ( ( G `  P )  .\/  ( F `  ( G `  P )
) ) ) )
4940, 43, 45, 47, 48syl13anc 1220 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( P  .<_  ( ( G `
 P )  .\/  ( F `  ( G `
 P ) ) )  /\  ( F `
 ( G `  P ) )  .<_  ( ( G `  P )  .\/  ( F `  ( G `  P ) ) ) )  <->  ( P  .\/  ( F `  ( G `
 P ) ) )  .<_  ( ( G `  P )  .\/  ( F `  ( G `  P )
) ) ) )
5036, 38, 49mpbi2and 912 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( P  .\/  ( F `  ( G `  P )
) )  .<_  ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) ) )
51 simp13 1020 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( Q  e.  A  /\  -.  Q  .<_  W ) )
52 simp33 1026 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) )
535, 11, 19, 6, 7, 8cdlemg11a 34281 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  (
( F `  ( G `  P )
)  .\/  ( F `  ( G `  Q
) ) )  =/=  ( P  .\/  Q
) ) )  -> 
( F `  ( G `  P )
)  =/=  P )
543, 16, 51, 15, 4, 52, 53syl123anc 1235 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( F `  ( G `  P
) )  =/=  P
)
5554necomd 2695 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  P  =/=  ( F `  ( G `
 P ) ) )
565, 11, 6ps-1 33121 . . 3  |-  ( ( K  e.  HL  /\  ( P  e.  A  /\  ( F `  ( G `  P )
)  e.  A  /\  P  =/=  ( F `  ( G `  P ) ) )  /\  (
( G `  P
)  e.  A  /\  ( F `  ( G `
 P ) )  e.  A ) )  ->  ( ( P 
.\/  ( F `  ( G `  P ) ) )  .<_  ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) )  <->  ( P  .\/  ( F `  ( G `  P )
) )  =  ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) ) ) )
571, 2, 28, 55, 10, 28, 56syl132anc 1236 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  .<_  ( ( G `  P ) 
.\/  ( F `  ( G `  P ) ) )  <->  ( P  .\/  ( F `  ( G `  P )
) )  =  ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) ) ) )
5850, 57mpbid 210 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T
)  /\  ( ( F `  P )  =/=  P  /\  ( R `
 F )  =  ( R `  G
)  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) ) )  ->  ( P  .\/  ( F `  ( G `  P )
) )  =  ( ( G `  P
)  .\/  ( F `  ( G `  P
) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 965    = wceq 1369    e. wcel 1756    =/= wne 2606   class class class wbr 4292   ` cfv 5418  (class class class)co 6091   Basecbs 14174   lecple 14245   joincjn 15114   meetcmee 15115   Latclat 15215   Atomscatm 32908   HLchlt 32995   LHypclh 33628   LTrncltrn 33745   trLctrl 33802
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 2423  ax-rep 4403  ax-sep 4413  ax-nul 4421  ax-pow 4470  ax-pr 4531  ax-un 6372  ax-riotaBAD 32604
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 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2568  df-ne 2608  df-nel 2609  df-ral 2720  df-rex 2721  df-reu 2722  df-rmo 2723  df-rab 2724  df-v 2974  df-sbc 3187  df-csb 3289  df-dif 3331  df-un 3333  df-in 3335  df-ss 3342  df-nul 3638  df-if 3792  df-pw 3862  df-sn 3878  df-pr 3880  df-op 3884  df-uni 4092  df-iun 4173  df-iin 4174  df-br 4293  df-opab 4351  df-mpt 4352  df-id 4636  df-xp 4846  df-rel 4847  df-cnv 4848  df-co 4849  df-dm 4850  df-rn 4851  df-res 4852  df-ima 4853  df-iota 5381  df-fun 5420  df-fn 5421  df-f 5422  df-f1 5423  df-fo 5424  df-f1o 5425  df-fv 5426  df-riota 6052  df-ov 6094  df-oprab 6095  df-mpt2 6096  df-1st 6577  df-2nd 6578  df-undef 6792  df-map 7216  df-poset 15116  df-plt 15128  df-lub 15144  df-glb 15145  df-join 15146  df-meet 15147  df-p0 15209  df-p1 15210  df-lat 15216  df-clat 15278  df-oposet 32821  df-ol 32823  df-oml 32824  df-covers 32911  df-ats 32912  df-atl 32943  df-cvlat 32967  df-hlat 32996  df-llines 33142  df-lplanes 33143  df-lvols 33144  df-lines 33145  df-psubsp 33147  df-pmap 33148  df-padd 33440  df-lhyp 33632  df-laut 33633  df-ldil 33748  df-ltrn 33749  df-trl 33803
This theorem is referenced by:  cdlemg13  34296
  Copyright terms: Public domain W3C validator