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

Theorem lhp2at0nle 40922
Description: Inequality for 2 different atoms (or an atom and zero) under co-atom 𝑊. (Contributed by NM, 28-Jul-2013.)
Hypotheses
Ref Expression
lhp2at0nle.l = (le‘𝐾)
lhp2at0nle.j = (join‘𝐾)
lhp2at0nle.z 0 = (0.‘𝐾)
lhp2at0nle.a 𝐴 = (Atoms‘𝐾)
lhp2at0nle.h 𝐻 = (LHyp‘𝐾)
Assertion
Ref Expression
lhp2at0nle ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ¬ 𝑉 (𝑃 𝑈))

Proof of Theorem lhp2at0nle
StepHypRef Expression
1 simpl1 1210 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈𝐴) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉))
2 simpr 490 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈𝐴) → 𝑈𝐴)
3 simpl2r 1246 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈𝐴) → 𝑈 𝑊)
4 simpl3 1212 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈𝐴) → (𝑉𝐴𝑉 𝑊))
5 lhp2at0nle.l . . . 4 = (le‘𝐾)
6 lhp2at0nle.j . . . 4 = (join‘𝐾)
7 lhp2at0nle.a . . . 4 𝐴 = (Atoms‘𝐾)
8 lhp2at0nle.h . . . 4 𝐻 = (LHyp‘𝐾)
95, 6, 7, 8lhp2atnle 40920 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ (𝑈𝐴𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ¬ 𝑉 (𝑃 𝑈))
101, 2, 3, 4, 9syl121anc 1402 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈𝐴) → ¬ 𝑉 (𝑃 𝑈))
11 simp3r 1221 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑉 𝑊)
12 simp12r 1306 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ¬ 𝑃 𝑊)
13 nbrne2 5125 . . . . . . 7 ((𝑉 𝑊 ∧ ¬ 𝑃 𝑊) → 𝑉𝑃)
1411, 12, 13syl2anc 596 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑉𝑃)
1514neneqd 2960 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ¬ 𝑉 = 𝑃)
16 simp11l 1303 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝐾 ∈ HL)
17 hlatl 40247 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
1816, 17syl 18 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝐾 ∈ AtLat)
19 simp3l 1220 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑉𝐴)
20 simp12l 1305 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑃𝐴)
215, 7atcmp 40198 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑉𝐴𝑃𝐴) → (𝑉 𝑃𝑉 = 𝑃))
2218, 19, 20, 21syl3anc 1398 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝑉 𝑃𝑉 = 𝑃))
2315, 22mtbird 328 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ¬ 𝑉 𝑃)
2423adantr 486 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈 = 0 ) → ¬ 𝑉 𝑃)
25 oveq2 7423 . . . . 5 (𝑈 = 0 → (𝑃 𝑈) = (𝑃 0 ))
26 hlol 40248 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ OL)
2716, 26syl 18 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝐾 ∈ OL)
28 eqid 2760 . . . . . . . 8 (Base‘𝐾) = (Base‘𝐾)
2928, 7atbase 40176 . . . . . . 7 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
3020, 29syl 18 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → 𝑃 ∈ (Base‘𝐾))
31 lhp2at0nle.z . . . . . . 7 0 = (0.‘𝐾)
3228, 6, 31olj01 40112 . . . . . 6 ((𝐾 ∈ OL ∧ 𝑃 ∈ (Base‘𝐾)) → (𝑃 0 ) = 𝑃)
3327, 30, 32syl2anc 596 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝑃 0 ) = 𝑃)
3425, 33sylan9eqr 2817 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈 = 0 ) → (𝑃 𝑈) = 𝑃)
3534breq2d 5115 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈 = 0 ) → (𝑉 (𝑃 𝑈) ↔ 𝑉 𝑃))
3624, 35mtbird 328 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) ∧ 𝑈 = 0 ) → ¬ 𝑉 (𝑃 𝑈))
37 simp2l 1218 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → (𝑈𝐴𝑈 = 0 ))
3810, 36, 37mpjaodan 973 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ 𝑈𝑉) ∧ ((𝑈𝐴𝑈 = 0 ) ∧ 𝑈 𝑊) ∧ (𝑉𝐴𝑉 𝑊)) → ¬ 𝑉 (𝑃 𝑈))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  wo 861  w3a 1103   = wceq 1570  wcel 2145  wne 2955   class class class wbr 5103  cfv 6534  (class class class)co 7415  Basecbs 17323  lecple 17371  joincjn 18421  0.cp0 18531  OLcol 40061  Atomscatm 40150  AtLatcal 40151  HLchlt 40237  LHypclh 40871
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5251  ax-nul 5263  ax-pow 5330  ax-pr 5398  ax-un 7738
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6490  df-fun 6536  df-fn 6537  df-f 6538  df-f1 6539  df-fo 6540  df-f1o 6541  df-fv 6542  df-riota 7372  df-ov 7418  df-oprab 7419  df-mpo 7420  df-1st 7988  df-2nd 7989  df-proset 18404  df-poset 18423  df-plt 18438  df-lub 18454  df-glb 18455  df-join 18456  df-meet 18457  df-p0 18533  df-lat 18542  df-clat 18609  df-oposet 40063  df-ol 40065  df-oml 40066  df-covers 40153  df-ats 40154  df-atl 40185  df-cvlat 40209  df-hlat 40238  df-psubsp 40390  df-pmap 40391  df-padd 40683  df-lhyp 40875
This theorem is used by:  lhp2at0ne  40923  cdlemkfid1N  41808
  Copyright terms: Public domain W3C validator