Theorem hlomcmcv 39855

Description: A Hilbert lattice is orthomodular, complete, and has the covering (exchange) property. (Contributed by NM, 5-Nov-2012.)

Assertion

Ref	Expression
hlomcmcv	⊢ (𝐾 ∈ HL → (𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat))

Proof of Theorem hlomcmcv

Dummy variables 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2740	. . 3 ⊢ (Base‘𝐾) = (Base‘𝐾)
2		eqid 2740	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
3		eqid 2740	. . 3 ⊢ (lt‘𝐾) = (lt‘𝐾)
4		eqid 2740	. . 3 ⊢ (join‘𝐾) = (join‘𝐾)
5		eqid 2740	. . 3 ⊢ (0.‘𝐾) = (0.‘𝐾)
6		eqid 2740	. . 3 ⊢ (1.‘𝐾) = (1.‘𝐾)
7		eqid 2740	. . 3 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
8	1, 2, 3, 4, 5, 6, 7	ishlat1 39851	. 2 ⊢ (𝐾 ∈ HL ↔ ((𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat) ∧ (∀𝑥 ∈ (Atoms‘𝐾)∀𝑦 ∈ (Atoms‘𝐾)(𝑥 ≠ 𝑦 → ∃𝑧 ∈ (Atoms‘𝐾)(𝑧 ≠ 𝑥 ∧ 𝑧 ≠ 𝑦 ∧ 𝑧(le‘𝐾)(𝑥(join‘𝐾)𝑦))) ∧ ∃𝑥 ∈ (Base‘𝐾)∃𝑦 ∈ (Base‘𝐾)∃𝑧 ∈ (Base‘𝐾)(((0.‘𝐾)(lt‘𝐾)𝑥 ∧ 𝑥(lt‘𝐾)𝑦) ∧ (𝑦(lt‘𝐾)𝑧 ∧ 𝑧(lt‘𝐾)(1.‘𝐾))))))
9	8	simplbi 497	1 ⊢ (𝐾 ∈ HL → (𝐾 ∈ OML ∧ 𝐾 ∈ CLat ∧ 𝐾 ∈ CvLat))

Syntax hints:   → wi 4   ∧ wa 396   ∧ w3a 1092   ∈ wcel 2119   ≠ wne 2935  ∀wral 3054  ∃wrex 3064   class class class wbr 5079  ‘cfv 6492  (class class class)co 7363  Basecbs 17177  lecple 17225  ltcplt 18272  joincjn 18275  0.cp0 18385  1.cp1 18386  CLatccla 18462  OMLcoml 39674  Atomscatm 39762  CvLatclc 39764  HLchlt 39849

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 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-ext 2712

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-sb 2074  df-clab 2719  df-cleq 2732  df-clel 2815  df-ral 3055  df-rex 3065  df-rab 3393  df-v 3434  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-br 5080  df-iota 6448  df-fv 6500  df-ov 7366  df-hlat 39850

This theorem is referenced by:  hloml  39856  hlclat  39857  hlcvl  39858  cvr1  39909  cvrp  39915  atcvr1  39916  atcvr2  39917