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

Theorem hlrelat 37425
Description: A Hilbert lattice is relatively atomic. Remark 2 of [Kalmbach] p. 149. (chrelati 30735 analog.) (Contributed by NM, 4-Feb-2012.)
Hypotheses
Ref Expression
hlrelat5.b 𝐵 = (Base‘𝐾)
hlrelat5.l = (le‘𝐾)
hlrelat5.s < = (lt‘𝐾)
hlrelat5.j = (join‘𝐾)
hlrelat5.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
hlrelat (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) → ∃𝑝𝐴 (𝑋 < (𝑋 𝑝) ∧ (𝑋 𝑝) 𝑌))
Distinct variable groups:   𝐴,𝑝   𝐵,𝑝   𝐾,𝑝   ,𝑝   𝑋,𝑝   𝑌,𝑝   < ,𝑝
Allowed substitution hint:   (𝑝)

Proof of Theorem hlrelat
StepHypRef Expression
1 hlrelat5.b . . . 4 𝐵 = (Base‘𝐾)
2 hlrelat5.l . . . 4 = (le‘𝐾)
3 hlrelat5.s . . . 4 < = (lt‘𝐾)
4 hlrelat5.a . . . 4 𝐴 = (Atoms‘𝐾)
51, 2, 3, 4hlrelat1 37423 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑋 < 𝑌 → ∃𝑝𝐴𝑝 𝑋𝑝 𝑌)))
65imp 407 . 2 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) → ∃𝑝𝐴𝑝 𝑋𝑝 𝑌))
7 simpll1 1211 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → 𝐾 ∈ HL)
87hllatd 37387 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → 𝐾 ∈ Lat)
9 simpll2 1212 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → 𝑋𝐵)
101, 4atbase 37312 . . . . . 6 (𝑝𝐴𝑝𝐵)
1110adantl 482 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → 𝑝𝐵)
12 hlrelat5.j . . . . . 6 = (join‘𝐾)
131, 2, 3, 12latnle 18202 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑝𝐵) → (¬ 𝑝 𝑋𝑋 < (𝑋 𝑝)))
148, 9, 11, 13syl3anc 1370 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → (¬ 𝑝 𝑋𝑋 < (𝑋 𝑝)))
152, 3pltle 18062 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑋 < 𝑌𝑋 𝑌))
1615imp 407 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) → 𝑋 𝑌)
1716adantr 481 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → 𝑋 𝑌)
1817biantrurd 533 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → (𝑝 𝑌 ↔ (𝑋 𝑌𝑝 𝑌)))
19 simpll3 1213 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → 𝑌𝐵)
201, 2, 12latjle12 18179 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑋𝐵𝑝𝐵𝑌𝐵)) → ((𝑋 𝑌𝑝 𝑌) ↔ (𝑋 𝑝) 𝑌))
218, 9, 11, 19, 20syl13anc 1371 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → ((𝑋 𝑌𝑝 𝑌) ↔ (𝑋 𝑝) 𝑌))
2218, 21bitrd 278 . . . 4 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → (𝑝 𝑌 ↔ (𝑋 𝑝) 𝑌))
2314, 22anbi12d 631 . . 3 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) ∧ 𝑝𝐴) → ((¬ 𝑝 𝑋𝑝 𝑌) ↔ (𝑋 < (𝑋 𝑝) ∧ (𝑋 𝑝) 𝑌)))
2423rexbidva 3227 . 2 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) → (∃𝑝𝐴𝑝 𝑋𝑝 𝑌) ↔ ∃𝑝𝐴 (𝑋 < (𝑋 𝑝) ∧ (𝑋 𝑝) 𝑌)))
256, 24mpbid 231 1 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑋 < 𝑌) → ∃𝑝𝐴 (𝑋 < (𝑋 𝑝) ∧ (𝑋 𝑝) 𝑌))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1086   = wceq 1542  wcel 2110  wrex 3067   class class class wbr 5079  cfv 6432  (class class class)co 7272  Basecbs 16923  lecple 16980  ltcplt 18037  joincjn 18040  Latclat 18160  Atomscatm 37286  HLchlt 37373
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7583
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-br 5080  df-opab 5142  df-mpt 5163  df-id 5490  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-riota 7229  df-ov 7275  df-oprab 7276  df-proset 18024  df-poset 18042  df-plt 18059  df-lub 18075  df-glb 18076  df-join 18077  df-meet 18078  df-p0 18154  df-lat 18161  df-clat 18228  df-oposet 37199  df-ol 37201  df-oml 37202  df-covers 37289  df-ats 37290  df-atl 37321  df-cvlat 37345  df-hlat 37374
This theorem is referenced by:  hlrelat2  37426  atle  37459  2atlt  37462
  Copyright terms: Public domain W3C validator