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

Theorem cdlemk9bN 31098
Description: Part of proof of Lemma K of [Crawley] p. 118. TODO: is this needed? If so, shorten with cdlemk9 31097 if that one is also needed. (Contributed by NM, 28-Jun-2013.) (New usage is discouraged.)
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 )
Assertion
Ref Expression
cdlemk9bN  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G `  P
)  .\/  ( X `  P ) )  ./\  W )  =  ( R `
 ( G  o.  `' X ) ) )

Proof of Theorem cdlemk9bN
StepHypRef Expression
1 cdlemk.b . . . 4  |-  B  =  ( Base `  K
)
2 cdlemk.l . . . 4  |-  .<_  =  ( le `  K )
3 cdlemk.j . . . 4  |-  .\/  =  ( join `  K )
4 cdlemk.a . . . 4  |-  A  =  ( Atoms `  K )
5 cdlemk.h . . . 4  |-  H  =  ( LHyp `  K
)
6 cdlemk.t . . . 4  |-  T  =  ( ( LTrn `  K
) `  W )
7 cdlemk.r . . . 4  |-  R  =  ( ( trL `  K
) `  W )
8 cdlemk.m . . . 4  |-  ./\  =  ( meet `  K )
91, 2, 3, 4, 5, 6, 7, 8cdlemk8 31096 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  .\/  ( X `  P
) )  =  ( ( G `  P
)  .\/  ( R `  ( X  o.  `' G ) ) ) )
109oveq1d 5960 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G `  P
)  .\/  ( X `  P ) )  ./\  W )  =  ( ( ( G `  P
)  .\/  ( R `  ( X  o.  `' G ) ) ) 
./\  W ) )
11 simp1 955 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
122, 4, 5, 6ltrnel 30397 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )
13123adant2r 1177 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )
14 eqid 2358 . . . . . 6  |-  ( 0.
`  K )  =  ( 0. `  K
)
152, 8, 14, 4, 5lhpmat 30288 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( G `
 P )  e.  A  /\  -.  ( G `  P )  .<_  W ) )  -> 
( ( G `  P )  ./\  W
)  =  ( 0.
`  K ) )
1611, 13, 15syl2anc 642 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( G `  P )  ./\  W )  =  ( 0. `  K ) )
1716oveq1d 5960 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G `  P
)  ./\  W )  .\/  ( R `  ( X  o.  `' G
) ) )  =  ( ( 0. `  K )  .\/  ( R `  ( X  o.  `' G ) ) ) )
18 simp1l 979 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  K  e.  HL )
19 simp2l 981 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  G  e.  T )
20 simp3l 983 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  P  e.  A )
212, 4, 5, 6ltrnat 30398 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  P  e.  A
)  ->  ( G `  P )  e.  A
)
2211, 19, 20, 21syl3anc 1182 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( G `  P )  e.  A
)
23 simp2r 982 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  X  e.  T )
245, 6ltrncnv 30404 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T
)  ->  `' G  e.  T )
2511, 19, 24syl2anc 642 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  `' G  e.  T )
265, 6ltrnco 30977 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  T  /\  `' G  e.  T
)  ->  ( X  o.  `' G )  e.  T
)
2711, 23, 25, 26syl3anc 1182 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( X  o.  `' G )  e.  T
)
281, 5, 6, 7trlcl 30422 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  o.  `' G )  e.  T
)  ->  ( R `  ( X  o.  `' G ) )  e.  B )
2911, 27, 28syl2anc 642 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( X  o.  `' G ) )  e.  B )
30 simp1r 980 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  W  e.  H )
311, 5lhpbase 30256 . . . . 5  |-  ( W  e.  H  ->  W  e.  B )
3230, 31syl 15 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  W  e.  B )
332, 5, 6, 7trlle 30442 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  o.  `' G )  e.  T
)  ->  ( R `  ( X  o.  `' G ) )  .<_  W )
3411, 27, 33syl2anc 642 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( X  o.  `' G ) )  .<_  W )
351, 2, 3, 8, 4atmod4i2 30125 . . . 4  |-  ( ( K  e.  HL  /\  ( ( G `  P )  e.  A  /\  ( R `  ( X  o.  `' G
) )  e.  B  /\  W  e.  B
)  /\  ( R `  ( X  o.  `' G ) )  .<_  W )  ->  (
( ( G `  P )  ./\  W
)  .\/  ( R `  ( X  o.  `' G ) ) )  =  ( ( ( G `  P ) 
.\/  ( R `  ( X  o.  `' G ) ) ) 
./\  W ) )
3618, 22, 29, 32, 34, 35syl131anc 1195 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G `  P
)  ./\  W )  .\/  ( R `  ( X  o.  `' G
) ) )  =  ( ( ( G `
 P )  .\/  ( R `  ( X  o.  `' G ) ) )  ./\  W
) )
37 hlol 29620 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  OL )
3818, 37syl 15 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  K  e.  OL )
391, 3, 14olj02 29485 . . . . 5  |-  ( ( K  e.  OL  /\  ( R `  ( X  o.  `' G ) )  e.  B )  ->  ( ( 0.
`  K )  .\/  ( R `  ( X  o.  `' G ) ) )  =  ( R `  ( X  o.  `' G ) ) )
4038, 29, 39syl2anc 642 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( 0. `  K )  .\/  ( R `  ( X  o.  `' G ) ) )  =  ( R `  ( X  o.  `' G ) ) )
415, 6, 7trlcocnv 30978 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  X  e.  T
)  ->  ( R `  ( G  o.  `' X ) )  =  ( R `  ( X  o.  `' G
) ) )
4211, 19, 23, 41syl3anc 1182 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( G  o.  `' X ) )  =  ( R `  ( X  o.  `' G
) ) )
4340, 42eqtr4d 2393 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( 0. `  K )  .\/  ( R `  ( X  o.  `' G ) ) )  =  ( R `  ( G  o.  `' X ) ) )
4417, 36, 433eqtr3d 2398 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G `  P
)  .\/  ( R `  ( X  o.  `' G ) ) ) 
./\  W )  =  ( R `  ( G  o.  `' X
) ) )
4510, 44eqtrd 2390 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( G  e.  T  /\  X  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( (
( G `  P
)  .\/  ( X `  P ) )  ./\  W )  =  ( R `
 ( G  o.  `' X ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 358    /\ w3a 934    = wceq 1642    e. wcel 1710   class class class wbr 4104   `'ccnv 4770    o. ccom 4775   ` cfv 5337  (class class class)co 5945   Basecbs 13245   lecple 13312   joincjn 14177   meetcmee 14178   0.cp0 14242   OLcol 29433   Atomscatm 29522   HLchlt 29609   LHypclh 30242   LTrncltrn 30359   trLctrl 30416
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1546  ax-5 1557  ax-17 1616  ax-9 1654  ax-8 1675  ax-13 1712  ax-14 1714  ax-6 1729  ax-7 1734  ax-11 1746  ax-12 1930  ax-ext 2339  ax-rep 4212  ax-sep 4222  ax-nul 4230  ax-pow 4269  ax-pr 4295  ax-un 4594
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3or 935  df-3an 936  df-tru 1319  df-ex 1542  df-nf 1545  df-sb 1649  df-eu 2213  df-mo 2214  df-clab 2345  df-cleq 2351  df-clel 2354  df-nfc 2483  df-ne 2523  df-nel 2524  df-ral 2624  df-rex 2625  df-reu 2626  df-rmo 2627  df-rab 2628  df-v 2866  df-sbc 3068  df-csb 3158  df-dif 3231  df-un 3233  df-in 3235  df-ss 3242  df-nul 3532  df-if 3642  df-pw 3703  df-sn 3722  df-pr 3723  df-op 3725  df-uni 3909  df-iun 3988  df-iin 3989  df-br 4105  df-opab 4159  df-mpt 4160  df-id 4391  df-xp 4777  df-rel 4778  df-cnv 4779  df-co 4780  df-dm 4781  df-rn 4782  df-res 4783  df-ima 4784  df-iota 5301  df-fun 5339  df-fn 5340  df-f 5341  df-f1 5342  df-fo 5343  df-f1o 5344  df-fv 5345  df-ov 5948  df-oprab 5949  df-mpt2 5950  df-1st 6209  df-2nd 6210  df-undef 6385  df-riota 6391  df-map 6862  df-poset 14179  df-plt 14191  df-lub 14207  df-glb 14208  df-join 14209  df-meet 14210  df-p0 14244  df-p1 14245  df-lat 14251  df-clat 14313  df-oposet 29435  df-ol 29437  df-oml 29438  df-covers 29525  df-ats 29526  df-atl 29557  df-cvlat 29581  df-hlat 29610  df-llines 29756  df-lplanes 29757  df-lvols 29758  df-lines 29759  df-psubsp 29761  df-pmap 29762  df-padd 30054  df-lhyp 30246  df-laut 30247  df-ldil 30362  df-ltrn 30363  df-trl 30417
  Copyright terms: Public domain W3C validator