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

Theorem hl2at 36587
Description: A Hilbert lattice has at least 2 atoms. (Contributed by NM, 5-Dec-2011.)
Hypothesis
Ref Expression
hl2atom.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
hl2at (𝐾 ∈ HL → ∃𝑝𝐴𝑞𝐴 𝑝𝑞)
Distinct variable groups:   𝑞,𝑝,𝐴   𝐾,𝑝,𝑞

Proof of Theorem hl2at
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 eqid 2821 . . 3 (Base‘𝐾) = (Base‘𝐾)
2 eqid 2821 . . 3 (lt‘𝐾) = (lt‘𝐾)
3 eqid 2821 . . 3 (0.‘𝐾) = (0.‘𝐾)
4 eqid 2821 . . 3 (1.‘𝐾) = (1.‘𝐾)
51, 2, 3, 4hlhgt2 36571 . 2 (𝐾 ∈ HL → ∃𝑥 ∈ (Base‘𝐾)((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)(1.‘𝐾)))
6 simpl 486 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → 𝐾 ∈ HL)
7 hlop 36544 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ OP)
87adantr 484 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → 𝐾 ∈ OP)
91, 3op0cl 36366 . . . . . . 7 (𝐾 ∈ OP → (0.‘𝐾) ∈ (Base‘𝐾))
108, 9syl 17 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (0.‘𝐾) ∈ (Base‘𝐾))
11 simpr 488 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → 𝑥 ∈ (Base‘𝐾))
12 eqid 2821 . . . . . . 7 (le‘𝐾) = (le‘𝐾)
13 hl2atom.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
141, 12, 2, 13hlrelat1 36582 . . . . . 6 ((𝐾 ∈ HL ∧ (0.‘𝐾) ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾)) → ((0.‘𝐾)(lt‘𝐾)𝑥 → ∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥)))
156, 10, 11, 14syl3anc 1368 . . . . 5 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → ((0.‘𝐾)(lt‘𝐾)𝑥 → ∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥)))
161, 4op1cl 36367 . . . . . . 7 (𝐾 ∈ OP → (1.‘𝐾) ∈ (Base‘𝐾))
178, 16syl 17 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (1.‘𝐾) ∈ (Base‘𝐾))
181, 12, 2, 13hlrelat1 36582 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾)) → (𝑥(lt‘𝐾)(1.‘𝐾) → ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))))
1917, 18mpd3an3 1459 . . . . 5 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (𝑥(lt‘𝐾)(1.‘𝐾) → ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))))
2015, 19anim12d 611 . . . 4 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)(1.‘𝐾)) → (∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾)))))
21 reeanv 3352 . . . . 5 (∃𝑝𝐴𝑞𝐴 ((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) ↔ (∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))))
22 nbrne2 5059 . . . . . . . 8 ((𝑝(le‘𝐾)𝑥 ∧ ¬ 𝑞(le‘𝐾)𝑥) → 𝑝𝑞)
2322ad2ant2lr 747 . . . . . . 7 (((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → 𝑝𝑞)
2423reximi 3231 . . . . . 6 (∃𝑞𝐴 ((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → ∃𝑞𝐴 𝑝𝑞)
2524reximi 3231 . . . . 5 (∃𝑝𝐴𝑞𝐴 ((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 𝑝𝑞)
2621, 25sylbir 238 . . . 4 ((∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 𝑝𝑞)
2720, 26syl6 35 . . 3 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)(1.‘𝐾)) → ∃𝑝𝐴𝑞𝐴 𝑝𝑞))
2827rexlimdva 3270 . 2 (𝐾 ∈ HL → (∃𝑥 ∈ (Base‘𝐾)((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)(1.‘𝐾)) → ∃𝑝𝐴𝑞𝐴 𝑝𝑞))
295, 28mpd 15 1 (𝐾 ∈ HL → ∃𝑝𝐴𝑞𝐴 𝑝𝑞)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399   = wceq 1538  wcel 2115  wne 3007  wrex 3127   class class class wbr 5039  cfv 6328  Basecbs 16462  lecple 16551  ltcplt 17530  0.cp0 17626  1.cp1 17627  OPcops 36354  Atomscatm 36445  HLchlt 36532
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 1912  ax-6 1971  ax-7 2016  ax-8 2117  ax-9 2125  ax-10 2146  ax-11 2162  ax-12 2178  ax-ext 2793  ax-rep 5163  ax-sep 5176  ax-nul 5183  ax-pow 5239  ax-pr 5303  ax-un 7436
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2071  df-mo 2623  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2892  df-nfc 2960  df-ne 3008  df-ral 3131  df-rex 3132  df-reu 3133  df-rab 3135  df-v 3473  df-sbc 3750  df-csb 3858  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-nul 4267  df-if 4441  df-pw 4514  df-sn 4541  df-pr 4543  df-op 4547  df-uni 4812  df-iun 4894  df-br 5040  df-opab 5102  df-mpt 5120  df-id 5433  df-xp 5534  df-rel 5535  df-cnv 5536  df-co 5537  df-dm 5538  df-rn 5539  df-res 5540  df-ima 5541  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-f1 6333  df-fo 6334  df-f1o 6335  df-fv 6336  df-riota 7088  df-ov 7133  df-oprab 7134  df-proset 17517  df-poset 17535  df-plt 17547  df-lub 17563  df-glb 17564  df-join 17565  df-meet 17566  df-p0 17628  df-p1 17629  df-lat 17635  df-clat 17697  df-oposet 36358  df-ol 36360  df-oml 36361  df-covers 36448  df-ats 36449  df-atl 36480  df-cvlat 36504  df-hlat 36533
This theorem is referenced by:  atex  36588
  Copyright terms: Public domain W3C validator