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

Theorem cdlemg17dALTN 37832
Description: Same as cdlemg17dN 37831 with fewer antecedents but longer proof TODO: fix comment. (Contributed by NM, 9-May-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
cdlemg12.l = (le‘𝐾)
cdlemg12.j = (join‘𝐾)
cdlemg12.m = (meet‘𝐾)
cdlemg12.a 𝐴 = (Atoms‘𝐾)
cdlemg12.h 𝐻 = (LHyp‘𝐾)
cdlemg12.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg12b.r 𝑅 = ((trL‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemg17dALTN (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) = ((𝑃 𝑄) 𝑊))

Proof of Theorem cdlemg17dALTN
StepHypRef Expression
1 simp3l 1197 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) (𝑃 𝑄))
2 simp11 1199 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝐾 ∈ HL)
3 simp12 1200 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝑊𝐻)
4 simp13 1201 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝐺𝑇)
5 cdlemg12.l . . . . 5 = (le‘𝐾)
6 cdlemg12.h . . . . 5 𝐻 = (LHyp‘𝐾)
7 cdlemg12.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
8 cdlemg12b.r . . . . 5 𝑅 = ((trL‘𝐾)‘𝑊)
95, 6, 7, 8trlle 37352 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → (𝑅𝐺) 𝑊)
102, 3, 4, 9syl21anc 835 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) 𝑊)
112hllatd 36532 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝐾 ∈ Lat)
12 eqid 2820 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
1312, 6, 7, 8trlcl 37332 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → (𝑅𝐺) ∈ (Base‘𝐾))
142, 3, 4, 13syl21anc 835 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) ∈ (Base‘𝐾))
15 simp21l 1286 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝑃𝐴)
16 simp22 1203 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝑄𝐴)
17 cdlemg12.j . . . . . 6 = (join‘𝐾)
18 cdlemg12.a . . . . . 6 𝐴 = (Atoms‘𝐾)
1912, 17, 18hlatjcl 36535 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
202, 15, 16, 19syl3anc 1367 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑃 𝑄) ∈ (Base‘𝐾))
2112, 6lhpbase 37166 . . . . 5 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
223, 21syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝑊 ∈ (Base‘𝐾))
23 cdlemg12.m . . . . 5 = (meet‘𝐾)
2412, 5, 23latlem12 17663 . . . 4 ((𝐾 ∈ Lat ∧ ((𝑅𝐺) ∈ (Base‘𝐾) ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → (((𝑅𝐺) (𝑃 𝑄) ∧ (𝑅𝐺) 𝑊) ↔ (𝑅𝐺) ((𝑃 𝑄) 𝑊)))
2511, 14, 20, 22, 24syl13anc 1368 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (((𝑅𝐺) (𝑃 𝑄) ∧ (𝑅𝐺) 𝑊) ↔ (𝑅𝐺) ((𝑃 𝑄) 𝑊)))
261, 10, 25mpbi2and 710 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) ((𝑃 𝑄) 𝑊))
27 hlatl 36528 . . . 4 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
282, 27syl 17 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝐾 ∈ AtLat)
29 simp21 1202 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
30 simp3r 1198 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝐺𝑃) ≠ 𝑃)
315, 18, 6, 7, 8trlat 37337 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝐺𝑇 ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) ∈ 𝐴)
322, 3, 29, 4, 30, 31syl212anc 1376 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) ∈ 𝐴)
33 simp23 1204 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → 𝑃𝑄)
345, 17, 23, 18, 6lhpat 37211 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴𝑃𝑄)) → ((𝑃 𝑄) 𝑊) ∈ 𝐴)
352, 3, 29, 16, 33, 34syl212anc 1376 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → ((𝑃 𝑄) 𝑊) ∈ 𝐴)
365, 18atcmp 36479 . . 3 ((𝐾 ∈ AtLat ∧ (𝑅𝐺) ∈ 𝐴 ∧ ((𝑃 𝑄) 𝑊) ∈ 𝐴) → ((𝑅𝐺) ((𝑃 𝑄) 𝑊) ↔ (𝑅𝐺) = ((𝑃 𝑄) 𝑊)))
3728, 32, 35, 36syl3anc 1367 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → ((𝑅𝐺) ((𝑃 𝑄) 𝑊) ↔ (𝑅𝐺) = ((𝑃 𝑄) 𝑊)))
3826, 37mpbid 234 1 (((𝐾 ∈ HL ∧ 𝑊𝐻𝐺𝑇) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑄𝐴𝑃𝑄) ∧ ((𝑅𝐺) (𝑃 𝑄) ∧ (𝐺𝑃) ≠ 𝑃)) → (𝑅𝐺) = ((𝑃 𝑄) 𝑊))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  w3a 1083   = wceq 1537  wcel 2114  wne 3006   class class class wbr 5038  cfv 6327  (class class class)co 7129  Basecbs 16458  lecple 16547  joincjn 17529  meetcmee 17530  Latclat 17630  Atomscatm 36431  AtLatcal 36432  HLchlt 36518  LHypclh 37152  LTrncltrn 37269  trLctrl 37326
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2792  ax-rep 5162  ax-sep 5175  ax-nul 5182  ax-pow 5238  ax-pr 5302  ax-un 7435
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2653  df-clab 2799  df-cleq 2813  df-clel 2891  df-nfc 2959  df-ne 3007  df-ral 3130  df-rex 3131  df-reu 3132  df-rab 3134  df-v 3472  df-sbc 3749  df-csb 3857  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-nul 4266  df-if 4440  df-pw 4513  df-sn 4540  df-pr 4542  df-op 4546  df-uni 4811  df-iun 4893  df-br 5039  df-opab 5101  df-mpt 5119  df-id 5432  df-xp 5533  df-rel 5534  df-cnv 5535  df-co 5536  df-dm 5537  df-rn 5538  df-res 5539  df-ima 5540  df-iota 6286  df-fun 6329  df-fn 6330  df-f 6331  df-f1 6332  df-fo 6333  df-f1o 6334  df-fv 6335  df-riota 7087  df-ov 7132  df-oprab 7133  df-mpo 7134  df-map 8382  df-proset 17513  df-poset 17531  df-plt 17543  df-lub 17559  df-glb 17560  df-join 17561  df-meet 17562  df-p0 17624  df-p1 17625  df-lat 17631  df-clat 17693  df-oposet 36344  df-ol 36346  df-oml 36347  df-covers 36434  df-ats 36435  df-atl 36466  df-cvlat 36490  df-hlat 36519  df-lhyp 37156  df-laut 37157  df-ldil 37272  df-ltrn 37273  df-trl 37327
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator