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

Theorem cdlemg10c 30646
Description: TODO: FIX COMMENT TODO: Can this be moved up as a stand-alone theorem in trl* area? (Contributed by NM, 4-May-2013.)
Hypotheses
Ref Expression
cdlemg8.l  |-  .<_  =  ( le `  K )
cdlemg8.j  |-  .\/  =  ( join `  K )
cdlemg8.m  |-  ./\  =  ( meet `  K )
cdlemg8.a  |-  A  =  ( Atoms `  K )
cdlemg8.h  |-  H  =  ( LHyp `  K
)
cdlemg8.t  |-  T  =  ( ( LTrn `  K
) `  W )
cdlemg10.r  |-  R  =  ( ( trL `  K
) `  W )
Assertion
Ref Expression
cdlemg10c  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( R `  F )  .<_  ( ( G `  P ) 
.\/  ( G `  Q ) )  <->  ( R `  F )  .<_  ( P 
.\/  Q ) ) )

Proof of Theorem cdlemg10c
StepHypRef Expression
1 simp1 955 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
2 simp3l 983 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  F  e.  T )
3 cdlemg8.l . . . . 5  |-  .<_  =  ( le `  K )
4 cdlemg8.h . . . . 5  |-  H  =  ( LHyp `  K
)
5 cdlemg8.t . . . . 5  |-  T  =  ( ( LTrn `  K
) `  W )
6 cdlemg10.r . . . . 5  |-  R  =  ( ( trL `  K
) `  W )
73, 4, 5, 6trlle 30191 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  ( R `  F )  .<_  W )
81, 2, 7syl2anc 642 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( R `  F
)  .<_  W )
98biantrud 493 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( R `  F )  .<_  ( ( G `  P ) 
.\/  ( G `  Q ) )  <->  ( ( R `  F )  .<_  ( ( G `  P )  .\/  ( G `  Q )
)  /\  ( R `  F )  .<_  W ) ) )
10 simp1l 979 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  K  e.  HL )
11 hllat 29371 . . . 4  |-  ( K  e.  HL  ->  K  e.  Lat )
1210, 11syl 15 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  K  e.  Lat )
13 eqid 2316 . . . . 5  |-  ( Base `  K )  =  (
Base `  K )
1413, 4, 5, 6trlcl 30171 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  ( R `  F )  e.  (
Base `  K )
)
151, 2, 14syl2anc 642 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( R `  F
)  e.  ( Base `  K ) )
16 simp3r 984 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  G  e.  T )
17 simp2ll 1022 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  P  e.  A )
18 cdlemg8.a . . . . . 6  |-  A  =  ( Atoms `  K )
193, 18, 4, 5ltrnat 30147 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  P  e.  A
)  ->  ( G `  P )  e.  A
)
201, 16, 17, 19syl3anc 1182 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( G `  P
)  e.  A )
21 simp2rl 1024 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  Q  e.  A )
223, 18, 4, 5ltrnat 30147 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  Q  e.  A
)  ->  ( G `  Q )  e.  A
)
231, 16, 21, 22syl3anc 1182 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( G `  Q
)  e.  A )
24 cdlemg8.j . . . . 5  |-  .\/  =  ( join `  K )
2513, 24, 18hlatjcl 29374 . . . 4  |-  ( ( K  e.  HL  /\  ( G `  P )  e.  A  /\  ( G `  Q )  e.  A )  ->  (
( G `  P
)  .\/  ( G `  Q ) )  e.  ( Base `  K
) )
2610, 20, 23, 25syl3anc 1182 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( G `  P )  .\/  ( G `  Q )
)  e.  ( Base `  K ) )
27 simp1r 980 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  W  e.  H )
2813, 4lhpbase 30005 . . . 4  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
2927, 28syl 15 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  ->  W  e.  ( Base `  K ) )
30 cdlemg8.m . . . 4  |-  ./\  =  ( meet `  K )
3113, 3, 30latlem12 14233 . . 3  |-  ( ( K  e.  Lat  /\  ( ( R `  F )  e.  (
Base `  K )  /\  ( ( G `  P )  .\/  ( G `  Q )
)  e.  ( Base `  K )  /\  W  e.  ( Base `  K
) ) )  -> 
( ( ( R `
 F )  .<_  ( ( G `  P )  .\/  ( G `  Q )
)  /\  ( R `  F )  .<_  W )  <-> 
( R `  F
)  .<_  ( ( ( G `  P ) 
.\/  ( G `  Q ) )  ./\  W ) ) )
3212, 15, 26, 29, 31syl13anc 1184 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( ( R `
 F )  .<_  ( ( G `  P )  .\/  ( G `  Q )
)  /\  ( R `  F )  .<_  W )  <-> 
( R `  F
)  .<_  ( ( ( G `  P ) 
.\/  ( G `  Q ) )  ./\  W ) ) )
3313, 24, 18hlatjcl 29374 . . . . 5  |-  ( ( K  e.  HL  /\  P  e.  A  /\  Q  e.  A )  ->  ( P  .\/  Q
)  e.  ( Base `  K ) )
3410, 17, 21, 33syl3anc 1182 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( P  .\/  Q
)  e.  ( Base `  K ) )
3513, 3, 30latlem12 14233 . . . 4  |-  ( ( K  e.  Lat  /\  ( ( R `  F )  e.  (
Base `  K )  /\  ( P  .\/  Q
)  e.  ( Base `  K )  /\  W  e.  ( Base `  K
) ) )  -> 
( ( ( R `
 F )  .<_  ( P  .\/  Q )  /\  ( R `  F )  .<_  W )  <-> 
( R `  F
)  .<_  ( ( P 
.\/  Q )  ./\  W ) ) )
3612, 15, 34, 29, 35syl13anc 1184 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( ( R `
 F )  .<_  ( P  .\/  Q )  /\  ( R `  F )  .<_  W )  <-> 
( R `  F
)  .<_  ( ( P 
.\/  Q )  ./\  W ) ) )
378biantrud 493 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( R `  F )  .<_  ( P 
.\/  Q )  <->  ( ( R `  F )  .<_  ( P  .\/  Q
)  /\  ( R `  F )  .<_  W ) ) )
383, 24, 30, 18, 4, 5cdlemg10b 30642 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  G  e.  T )  ->  (
( ( G `  P )  .\/  ( G `  Q )
)  ./\  W )  =  ( ( P 
.\/  Q )  ./\  W ) )
39383adant3l 1178 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( ( G `
 P )  .\/  ( G `  Q ) )  ./\  W )  =  ( ( P 
.\/  Q )  ./\  W ) )
4039breq2d 4072 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( R `  F )  .<_  ( ( ( G `  P
)  .\/  ( G `  Q ) )  ./\  W )  <->  ( R `  F )  .<_  ( ( P  .\/  Q ) 
./\  W ) ) )
4136, 37, 403bitr4rd 277 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( R `  F )  .<_  ( ( ( G `  P
)  .\/  ( G `  Q ) )  ./\  W )  <->  ( R `  F )  .<_  ( P 
.\/  Q ) ) )
429, 32, 413bitrd 270 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( R `  F )  .<_  ( ( G `  P ) 
.\/  ( G `  Q ) )  <->  ( R `  F )  .<_  ( P 
.\/  Q ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 176    /\ wa 358    /\ w3a 934    = wceq 1633    e. wcel 1701   class class class wbr 4060   ` cfv 5292  (class class class)co 5900   Basecbs 13195   lecple 13262   joincjn 14127   meetcmee 14128   Latclat 14200   Atomscatm 29271   HLchlt 29358   LHypclh 29991   LTrncltrn 30108   trLctrl 30165
This theorem is referenced by:  cdlemg10a  30647  cdlemg12d  30653
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1537  ax-5 1548  ax-17 1607  ax-9 1645  ax-8 1666  ax-13 1703  ax-14 1705  ax-6 1720  ax-7 1725  ax-11 1732  ax-12 1897  ax-ext 2297  ax-rep 4168  ax-sep 4178  ax-nul 4186  ax-pow 4225  ax-pr 4251  ax-un 4549
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1310  df-ex 1533  df-nf 1536  df-sb 1640  df-eu 2180  df-mo 2181  df-clab 2303  df-cleq 2309  df-clel 2312  df-nfc 2441  df-ne 2481  df-nel 2482  df-ral 2582  df-rex 2583  df-reu 2584  df-rmo 2585  df-rab 2586  df-v 2824  df-sbc 3026  df-csb 3116  df-dif 3189  df-un 3191  df-in 3193  df-ss 3200  df-nul 3490  df-if 3600  df-pw 3661  df-sn 3680  df-pr 3681  df-op 3683  df-uni 3865  df-iun 3944  df-iin 3945  df-br 4061  df-opab 4115  df-mpt 4116  df-id 4346  df-xp 4732  df-rel 4733  df-cnv 4734  df-co 4735  df-dm 4736  df-rn 4737  df-res 4738  df-ima 4739  df-iota 5256  df-fun 5294  df-fn 5295  df-f 5296  df-f1 5297  df-fo 5298  df-f1o 5299  df-fv 5300  df-ov 5903  df-oprab 5904  df-mpt2 5905  df-1st 6164  df-2nd 6165  df-undef 6340  df-riota 6346  df-map 6817  df-poset 14129  df-plt 14141  df-lub 14157  df-glb 14158  df-join 14159  df-meet 14160  df-p0 14194  df-p1 14195  df-lat 14201  df-clat 14263  df-oposet 29184  df-ol 29186  df-oml 29187  df-covers 29274  df-ats 29275  df-atl 29306  df-cvlat 29330  df-hlat 29359  df-llines 29505  df-lplanes 29506  df-lvols 29507  df-lines 29508  df-psubsp 29510  df-pmap 29511  df-padd 29803  df-lhyp 29995  df-laut 29996  df-ldil 30111  df-ltrn 30112  df-trl 30166
  Copyright terms: Public domain W3C validator