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

Theorem cdlemg2m 34271
Description: TODO: FIX COMMENT T (Contributed by NM, 25-Apr-2013.)
Hypotheses
Ref Expression
cdlemg2inv.h  |-  H  =  ( LHyp `  K
)
cdlemg2inv.t  |-  T  =  ( ( LTrn `  K
) `  W )
cdlemg2j.l  |-  .<_  =  ( le `  K )
cdlemg2j.j  |-  .\/  =  ( join `  K )
cdlemg2j.a  |-  A  =  ( Atoms `  K )
cdlemg2j.m  |-  ./\  =  ( meet `  K )
cdlemg2j.u  |-  U  =  ( ( P  .\/  Q )  ./\  W )
Assertion
Ref Expression
cdlemg2m  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( ( F `  P )  .\/  ( F `  Q )
)  ./\  W )  =  U )

Proof of Theorem cdlemg2m
StepHypRef Expression
1 cdlemg2inv.h . . . 4  |-  H  =  ( LHyp `  K
)
2 cdlemg2inv.t . . . 4  |-  T  =  ( ( LTrn `  K
) `  W )
3 cdlemg2j.l . . . 4  |-  .<_  =  ( le `  K )
4 cdlemg2j.j . . . 4  |-  .\/  =  ( join `  K )
5 cdlemg2j.a . . . 4  |-  A  =  ( Atoms `  K )
6 cdlemg2j.m . . . 4  |-  ./\  =  ( meet `  K )
7 cdlemg2j.u . . . 4  |-  U  =  ( ( P  .\/  Q )  ./\  W )
81, 2, 3, 4, 5, 6, 7cdlemg2k 34268 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( F `  P
)  .\/  ( F `  Q ) )  =  ( ( F `  P )  .\/  U
) )
98oveq1d 6125 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( ( F `  P )  .\/  ( F `  Q )
)  ./\  W )  =  ( ( ( F `  P ) 
.\/  U )  ./\  W ) )
10 simp1 988 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  ( K  e.  HL  /\  W  e.  H ) )
11 simp3 990 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  F  e.  T )
12 simp2l 1014 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
13 eqid 2443 . . . . . 6  |-  ( 0.
`  K )  =  ( 0. `  K
)
143, 6, 13, 5, 1, 2ltrnmw 33818 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  ./\  W )  =  ( 0. `  K ) )
1510, 11, 12, 14syl3anc 1218 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( F `  P
)  ./\  W )  =  ( 0. `  K ) )
1615oveq1d 6125 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( ( F `  P )  ./\  W
)  .\/  U )  =  ( ( 0.
`  K )  .\/  U ) )
17 simp1l 1012 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  K  e.  HL )
183, 5, 1, 2ltrnel 33806 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  e.  A  /\  -.  ( F `  P )  .<_  W ) )
1910, 11, 12, 18syl3anc 1218 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( F `  P
)  e.  A  /\  -.  ( F `  P
)  .<_  W ) )
2019simpld 459 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  ( F `  P )  e.  A )
21 simp1r 1013 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  W  e.  H )
22 simp2ll 1055 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  P  e.  A )
23 simp2rl 1057 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  Q  e.  A )
24 eqid 2443 . . . . . 6  |-  ( Base `  K )  =  (
Base `  K )
253, 4, 6, 5, 1, 7, 24cdleme0aa 33877 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  P  e.  A  /\  Q  e.  A
)  ->  U  e.  ( Base `  K )
)
2617, 21, 22, 23, 25syl211anc 1224 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  U  e.  ( Base `  K
) )
2724, 1lhpbase 33665 . . . . 5  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
2821, 27syl 16 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  W  e.  ( Base `  K
) )
29 hllat 33031 . . . . . . 7  |-  ( K  e.  HL  ->  K  e.  Lat )
3017, 29syl 16 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  K  e.  Lat )
3124, 4, 5hlatjcl 33034 . . . . . . 7  |-  ( ( K  e.  HL  /\  P  e.  A  /\  Q  e.  A )  ->  ( P  .\/  Q
)  e.  ( Base `  K ) )
3217, 22, 23, 31syl3anc 1218 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  ( P  .\/  Q )  e.  ( Base `  K
) )
3324, 3, 6latmle2 15266 . . . . . 6  |-  ( ( K  e.  Lat  /\  ( P  .\/  Q )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
)  ->  ( ( P  .\/  Q )  ./\  W )  .<_  W )
3430, 32, 28, 33syl3anc 1218 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( P  .\/  Q
)  ./\  W )  .<_  W )
357, 34syl5eqbr 4344 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  U  .<_  W )
3624, 3, 4, 6, 5atmod4i2 33534 . . . 4  |-  ( ( K  e.  HL  /\  ( ( F `  P )  e.  A  /\  U  e.  ( Base `  K )  /\  W  e.  ( Base `  K ) )  /\  U  .<_  W )  -> 
( ( ( F `
 P )  ./\  W )  .\/  U )  =  ( ( ( F `  P ) 
.\/  U )  ./\  W ) )
3717, 20, 26, 28, 35, 36syl131anc 1231 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( ( F `  P )  ./\  W
)  .\/  U )  =  ( ( ( F `  P ) 
.\/  U )  ./\  W ) )
38 hlol 33029 . . . . 5  |-  ( K  e.  HL  ->  K  e.  OL )
3917, 38syl 16 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  K  e.  OL )
4024, 4, 13olj02 32894 . . . 4  |-  ( ( K  e.  OL  /\  U  e.  ( Base `  K ) )  -> 
( ( 0. `  K )  .\/  U
)  =  U )
4139, 26, 40syl2anc 661 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( 0. `  K
)  .\/  U )  =  U )
4216, 37, 413eqtr3d 2483 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( ( F `  P )  .\/  U
)  ./\  W )  =  U )
439, 42eqtrd 2475 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  (
( ( F `  P )  .\/  ( F `  Q )
)  ./\  W )  =  U )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 369    /\ w3a 965    = wceq 1369    e. wcel 1756   class class class wbr 4311   ` cfv 5437  (class class class)co 6110   Basecbs 14193   lecple 14264   joincjn 15133   meetcmee 15134   0.cp0 15226   Latclat 15234   OLcol 32842   Atomscatm 32931   HLchlt 33018   LHypclh 33651   LTrncltrn 33768
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 4422  ax-sep 4432  ax-nul 4440  ax-pow 4489  ax-pr 4550  ax-un 6391  ax-riotaBAD 32627
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 2577  df-ne 2622  df-nel 2623  df-ral 2739  df-rex 2740  df-reu 2741  df-rmo 2742  df-rab 2743  df-v 2993  df-sbc 3206  df-csb 3308  df-dif 3350  df-un 3352  df-in 3354  df-ss 3361  df-nul 3657  df-if 3811  df-pw 3881  df-sn 3897  df-pr 3899  df-op 3903  df-uni 4111  df-iun 4192  df-iin 4193  df-br 4312  df-opab 4370  df-mpt 4371  df-id 4655  df-xp 4865  df-rel 4866  df-cnv 4867  df-co 4868  df-dm 4869  df-rn 4870  df-res 4871  df-ima 4872  df-iota 5400  df-fun 5439  df-fn 5440  df-f 5441  df-f1 5442  df-fo 5443  df-f1o 5444  df-fv 5445  df-riota 6071  df-ov 6113  df-oprab 6114  df-mpt2 6115  df-1st 6596  df-2nd 6597  df-undef 6811  df-map 7235  df-poset 15135  df-plt 15147  df-lub 15163  df-glb 15164  df-join 15165  df-meet 15166  df-p0 15228  df-p1 15229  df-lat 15235  df-clat 15297  df-oposet 32844  df-ol 32846  df-oml 32847  df-covers 32934  df-ats 32935  df-atl 32966  df-cvlat 32990  df-hlat 33019  df-llines 33165  df-lplanes 33166  df-lvols 33167  df-lines 33168  df-psubsp 33170  df-pmap 33171  df-padd 33463  df-lhyp 33655  df-laut 33656  df-ldil 33771  df-ltrn 33772  df-trl 33826
This theorem is referenced by:  cdlemg4f  34282  cdlemg10b  34302
  Copyright terms: Public domain W3C validator