Theorem lhpocat 40819

Description: The orthocomplement of a co-atom is an atom. (Contributed by NM, 9-Feb-2013.)

Hypotheses

Ref	Expression
lhpocat.o	⊢ ⊥ = (oc‘𝐾)
lhpocat.a	⊢ 𝐴 = (Atoms‘𝐾)
lhpocat.h	⊢ 𝐻 = (LHyp‘𝐾)

Assertion

Ref	Expression
lhpocat	⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( ⊥ ‘𝑊) ∈ 𝐴)

Proof of Theorem lhpocat

Step	Hyp	Ref	Expression
1		simpr 489	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑊 ∈ 𝐻)
2		eqid 2763	. . . 4 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		lhpocat.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
4	2, 3	lhpbase 40800	. . 3 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
5		lhpocat.o	. . . 4 ⊢ ⊥ = (oc‘𝐾)
6		lhpocat.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
7	2, 5, 6, 3	lhpoc 40816	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ (Base‘𝐾)) → (𝑊 ∈ 𝐻 ↔ ( ⊥ ‘𝑊) ∈ 𝐴))
8	4, 7	sylan2 604	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑊 ∈ 𝐻 ↔ ( ⊥ ‘𝑊) ∈ 𝐴))
9	1, 8	mpbid 235	1 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( ⊥ ‘𝑊) ∈ 𝐴)

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1570   ∈ wcel 2143  ‘cfv 6536  Basecbs 17273  occoc 17322  Atomscatm 40065  HLchlt 40152  LHypclh 40786

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-iun 4958  df-br 5110  df-opab 5174  df-mpt 5193  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-riota 7367  df-ov 7413  df-proset 18354  df-poset 18373  df-plt 18388  df-lub 18404  df-glb 18405  df-p0 18483  df-p1 18484  df-oposet 39978  df-ol 39980  df-oml 39981  df-covers 40068  df-ats 40069  df-hlat 40153  df-lhyp 40790

This theorem is used by:  lhpocnel  40820  lhpmod2i2  40840  lhpmod6i1  40841  dihat  42137