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 35481
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 2826 . . 3 (Base‘𝐾) = (Base‘𝐾)
2 eqid 2826 . . 3 (lt‘𝐾) = (lt‘𝐾)
3 eqid 2826 . . 3 (0.‘𝐾) = (0.‘𝐾)
4 eqid 2826 . . 3 (1.‘𝐾) = (1.‘𝐾)
51, 2, 3, 4hlhgt2 35465 . 2 (𝐾 ∈ HL → ∃𝑥 ∈ (Base‘𝐾)((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)(1.‘𝐾)))
6 simpl 476 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → 𝐾 ∈ HL)
7 hlop 35438 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ OP)
87adantr 474 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → 𝐾 ∈ OP)
91, 3op0cl 35260 . . . . . . 7 (𝐾 ∈ OP → (0.‘𝐾) ∈ (Base‘𝐾))
108, 9syl 17 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (0.‘𝐾) ∈ (Base‘𝐾))
11 simpr 479 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → 𝑥 ∈ (Base‘𝐾))
12 eqid 2826 . . . . . . 7 (le‘𝐾) = (le‘𝐾)
13 hl2atom.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
141, 12, 2, 13hlrelat1 35476 . . . . . 6 ((𝐾 ∈ HL ∧ (0.‘𝐾) ∈ (Base‘𝐾) ∧ 𝑥 ∈ (Base‘𝐾)) → ((0.‘𝐾)(lt‘𝐾)𝑥 → ∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥)))
156, 10, 11, 14syl3anc 1496 . . . . 5 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → ((0.‘𝐾)(lt‘𝐾)𝑥 → ∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥)))
161, 4op1cl 35261 . . . . . . 7 (𝐾 ∈ OP → (1.‘𝐾) ∈ (Base‘𝐾))
178, 16syl 17 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (1.‘𝐾) ∈ (Base‘𝐾))
181, 12, 2, 13hlrelat1 35476 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾) ∧ (1.‘𝐾) ∈ (Base‘𝐾)) → (𝑥(lt‘𝐾)(1.‘𝐾) → ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))))
1917, 18mpd3an3 1592 . . . . 5 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (𝑥(lt‘𝐾)(1.‘𝐾) → ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))))
2015, 19anim12d 604 . . . 4 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)(1.‘𝐾)) → (∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾)))))
21 reeanv 3318 . . . . 5 (∃𝑝𝐴𝑞𝐴 ((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) ↔ (∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))))
22 nbrne2 4894 . . . . . . . 8 ((𝑝(le‘𝐾)𝑥 ∧ ¬ 𝑞(le‘𝐾)𝑥) → 𝑝𝑞)
2322ad2ant2lr 756 . . . . . . 7 (((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → 𝑝𝑞)
2423reximi 3220 . . . . . 6 (∃𝑞𝐴 ((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → ∃𝑞𝐴 𝑝𝑞)
2524reximi 3220 . . . . 5 (∃𝑝𝐴𝑞𝐴 ((¬ 𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ (¬ 𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 𝑝𝑞)
2621, 25sylbir 227 . . . 4 ((∃𝑝𝐴𝑝(le‘𝐾)(0.‘𝐾) ∧ 𝑝(le‘𝐾)𝑥) ∧ ∃𝑞𝐴𝑞(le‘𝐾)𝑥𝑞(le‘𝐾)(1.‘𝐾))) → ∃𝑝𝐴𝑞𝐴 𝑝𝑞)
2720, 26syl6 35 . . 3 ((𝐾 ∈ HL ∧ 𝑥 ∈ (Base‘𝐾)) → (((0.‘𝐾)(lt‘𝐾)𝑥𝑥(lt‘𝐾)(1.‘𝐾)) → ∃𝑝𝐴𝑞𝐴 𝑝𝑞))
2827rexlimdva 3241 . 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 386   = wceq 1658  wcel 2166  wne 3000  wrex 3119   class class class wbr 4874  cfv 6124  Basecbs 16223  lecple 16313  ltcplt 17295  0.cp0 17391  1.cp1 17392  OPcops 35248  Atomscatm 35339  HLchlt 35426
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1896  ax-4 1910  ax-5 2011  ax-6 2077  ax-7 2114  ax-8 2168  ax-9 2175  ax-10 2194  ax-11 2209  ax-12 2222  ax-13 2391  ax-ext 2804  ax-rep 4995  ax-sep 5006  ax-nul 5014  ax-pow 5066  ax-pr 5128  ax-un 7210
This theorem depends on definitions:  df-bi 199  df-an 387  df-or 881  df-3an 1115  df-tru 1662  df-ex 1881  df-nf 1885  df-sb 2070  df-mo 2606  df-eu 2641  df-clab 2813  df-cleq 2819  df-clel 2822  df-nfc 2959  df-ne 3001  df-ral 3123  df-rex 3124  df-reu 3125  df-rab 3127  df-v 3417  df-sbc 3664  df-csb 3759  df-dif 3802  df-un 3804  df-in 3806  df-ss 3813  df-nul 4146  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-op 4405  df-uni 4660  df-iun 4743  df-br 4875  df-opab 4937  df-mpt 4954  df-id 5251  df-xp 5349  df-rel 5350  df-cnv 5351  df-co 5352  df-dm 5353  df-rn 5354  df-res 5355  df-ima 5356  df-iota 6087  df-fun 6126  df-fn 6127  df-f 6128  df-f1 6129  df-fo 6130  df-f1o 6131  df-fv 6132  df-riota 6867  df-ov 6909  df-oprab 6910  df-proset 17282  df-poset 17300  df-plt 17312  df-lub 17328  df-glb 17329  df-join 17330  df-meet 17331  df-p0 17393  df-p1 17394  df-lat 17400  df-clat 17462  df-oposet 35252  df-ol 35254  df-oml 35255  df-covers 35342  df-ats 35343  df-atl 35374  df-cvlat 35398  df-hlat 35427
This theorem is referenced by:  atex  35482
  Copyright terms: Public domain W3C validator