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

Theorem cdlemg2m 39056
Description: TODO: FIX COMMENT. (Contributed by NM, 25-Apr-2013.)
Hypotheses
Ref Expression
cdlemg2inv.h 𝐻 = (LHyp‘𝐾)
cdlemg2inv.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg2j.l = (le‘𝐾)
cdlemg2j.j = (join‘𝐾)
cdlemg2j.a 𝐴 = (Atoms‘𝐾)
cdlemg2j.m = (meet‘𝐾)
cdlemg2j.u 𝑈 = ((𝑃 𝑄) 𝑊)
Assertion
Ref Expression
cdlemg2m (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (((𝐹𝑃) (𝐹𝑄)) 𝑊) = 𝑈)

Proof of Theorem cdlemg2m
StepHypRef Expression
1 cdlemg2inv.h . . . 4 𝐻 = (LHyp‘𝐾)
2 cdlemg2inv.t . . . 4 𝑇 = ((LTrn‘𝐾)‘𝑊)
3 cdlemg2j.l . . . 4 = (le‘𝐾)
4 cdlemg2j.j . . . 4 = (join‘𝐾)
5 cdlemg2j.a . . . 4 𝐴 = (Atoms‘𝐾)
6 cdlemg2j.m . . . 4 = (meet‘𝐾)
7 cdlemg2j.u . . . 4 𝑈 = ((𝑃 𝑄) 𝑊)
81, 2, 3, 4, 5, 6, 7cdlemg2k 39053 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → ((𝐹𝑃) (𝐹𝑄)) = ((𝐹𝑃) 𝑈))
98oveq1d 7369 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (((𝐹𝑃) (𝐹𝑄)) 𝑊) = (((𝐹𝑃) 𝑈) 𝑊))
10 simp1 1136 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (𝐾 ∈ HL ∧ 𝑊𝐻))
11 simp3 1138 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝐹𝑇)
12 simp2l 1199 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
13 eqid 2736 . . . . . 6 (0.‘𝐾) = (0.‘𝐾)
143, 6, 13, 5, 1, 2ltrnmw 38603 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) 𝑊) = (0.‘𝐾))
1510, 11, 12, 14syl3anc 1371 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → ((𝐹𝑃) 𝑊) = (0.‘𝐾))
1615oveq1d 7369 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (((𝐹𝑃) 𝑊) 𝑈) = ((0.‘𝐾) 𝑈))
17 simp1l 1197 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝐾 ∈ HL)
183, 5, 1, 2ltrnel 38591 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊))
1910, 11, 12, 18syl3anc 1371 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → ((𝐹𝑃) ∈ 𝐴 ∧ ¬ (𝐹𝑃) 𝑊))
2019simpld 495 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (𝐹𝑃) ∈ 𝐴)
21 simp1r 1198 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝑊𝐻)
22 simp2ll 1240 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝑃𝐴)
23 simp2rl 1242 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝑄𝐴)
24 eqid 2736 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
253, 4, 6, 5, 1, 7, 24cdleme0aa 38662 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑃𝐴𝑄𝐴) → 𝑈 ∈ (Base‘𝐾))
2617, 21, 22, 23, 25syl211anc 1376 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝑈 ∈ (Base‘𝐾))
2724, 1lhpbase 38450 . . . . 5 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
2821, 27syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝑊 ∈ (Base‘𝐾))
2917hllatd 37815 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝐾 ∈ Lat)
3024, 4, 5hlatjcl 37818 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
3117, 22, 23, 30syl3anc 1371 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (𝑃 𝑄) ∈ (Base‘𝐾))
3224, 3, 6latmle2 18351 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑊) 𝑊)
3329, 31, 28, 32syl3anc 1371 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → ((𝑃 𝑄) 𝑊) 𝑊)
347, 33eqbrtrid 5139 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝑈 𝑊)
3524, 3, 4, 6, 5atmod4i2 38319 . . . 4 ((𝐾 ∈ HL ∧ ((𝐹𝑃) ∈ 𝐴𝑈 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑈 𝑊) → (((𝐹𝑃) 𝑊) 𝑈) = (((𝐹𝑃) 𝑈) 𝑊))
3617, 20, 26, 28, 34, 35syl131anc 1383 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (((𝐹𝑃) 𝑊) 𝑈) = (((𝐹𝑃) 𝑈) 𝑊))
37 hlol 37812 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ OL)
3817, 37syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → 𝐾 ∈ OL)
3924, 4, 13olj02 37677 . . . 4 ((𝐾 ∈ OL ∧ 𝑈 ∈ (Base‘𝐾)) → ((0.‘𝐾) 𝑈) = 𝑈)
4038, 26, 39syl2anc 584 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → ((0.‘𝐾) 𝑈) = 𝑈)
4116, 36, 403eqtr3d 2784 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (((𝐹𝑃) 𝑈) 𝑊) = 𝑈)
429, 41eqtrd 2776 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝐹𝑇) → (((𝐹𝑃) (𝐹𝑄)) 𝑊) = 𝑈)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1087   = wceq 1541  wcel 2106   class class class wbr 5104  cfv 6494  (class class class)co 7354  Basecbs 17080  lecple 17137  joincjn 18197  meetcmee 18198  0.cp0 18309  Latclat 18317  OLcol 37625  Atomscatm 37714  HLchlt 37801  LHypclh 38436  LTrncltrn 38553
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7669  ax-riotaBAD 37404
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2888  df-ne 2943  df-ral 3064  df-rex 3073  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4865  df-iun 4955  df-iin 4956  df-br 5105  df-opab 5167  df-mpt 5188  df-id 5530  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6446  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-riota 7310  df-ov 7357  df-oprab 7358  df-mpo 7359  df-1st 7918  df-2nd 7919  df-undef 8201  df-map 8764  df-proset 18181  df-poset 18199  df-plt 18216  df-lub 18232  df-glb 18233  df-join 18234  df-meet 18235  df-p0 18311  df-p1 18312  df-lat 18318  df-clat 18385  df-oposet 37627  df-ol 37629  df-oml 37630  df-covers 37717  df-ats 37718  df-atl 37749  df-cvlat 37773  df-hlat 37802  df-llines 37950  df-lplanes 37951  df-lvols 37952  df-lines 37953  df-psubsp 37955  df-pmap 37956  df-padd 38248  df-lhyp 38440  df-laut 38441  df-ldil 38556  df-ltrn 38557  df-trl 38611
This theorem is referenced by:  cdlemg4f  39067  cdlemg10b  39087
  Copyright terms: Public domain W3C validator