Theorem opoccl 39570

Description: Closure of orthocomplement operation. (choccl 31394 analog.) (Contributed by NM, 20-Oct-2011.)

Hypotheses

Ref	Expression
opoccl.b	⊢ 𝐵 = (Base‘𝐾)
opoccl.o	⊢ ⊥ = (oc‘𝐾)

Assertion

Ref	Expression
opoccl	⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → ( ⊥ ‘𝑋) ∈ 𝐵)

Proof of Theorem opoccl

Step	Hyp	Ref	Expression
1		opoccl.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐾)
2		eqid 2737	. . . . 5 ⊢ (le‘𝐾) = (le‘𝐾)
3		opoccl.o	. . . . 5 ⊢ ⊥ = (oc‘𝐾)
4		eqid 2737	. . . . 5 ⊢ (join‘𝐾) = (join‘𝐾)
5		eqid 2737	. . . . 5 ⊢ (meet‘𝐾) = (meet‘𝐾)
6		eqid 2737	. . . . 5 ⊢ (0.‘𝐾) = (0.‘𝐾)
7		eqid 2737	. . . . 5 ⊢ (1.‘𝐾) = (1.‘𝐾)
8	1, 2, 3, 4, 5, 6, 7	oposlem 39558	. . . 4 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → ((( ⊥ ‘𝑋) ∈ 𝐵 ∧ ( ⊥ ‘( ⊥ ‘𝑋)) = 𝑋 ∧ (𝑋(le‘𝐾)𝑋 → ( ⊥ ‘𝑋)(le‘𝐾)( ⊥ ‘𝑋))) ∧ (𝑋(join‘𝐾)( ⊥ ‘𝑋)) = (1.‘𝐾) ∧ (𝑋(meet‘𝐾)( ⊥ ‘𝑋)) = (0.‘𝐾)))
9	8	3anidm23 1424	. . 3 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → ((( ⊥ ‘𝑋) ∈ 𝐵 ∧ ( ⊥ ‘( ⊥ ‘𝑋)) = 𝑋 ∧ (𝑋(le‘𝐾)𝑋 → ( ⊥ ‘𝑋)(le‘𝐾)( ⊥ ‘𝑋))) ∧ (𝑋(join‘𝐾)( ⊥ ‘𝑋)) = (1.‘𝐾) ∧ (𝑋(meet‘𝐾)( ⊥ ‘𝑋)) = (0.‘𝐾)))
10	9	simp1d 1143	. 2 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → (( ⊥ ‘𝑋) ∈ 𝐵 ∧ ( ⊥ ‘( ⊥ ‘𝑋)) = 𝑋 ∧ (𝑋(le‘𝐾)𝑋 → ( ⊥ ‘𝑋)(le‘𝐾)( ⊥ ‘𝑋))))
11	10	simp1d 1143	1 ⊢ ((𝐾 ∈ OP ∧ 𝑋 ∈ 𝐵) → ( ⊥ ‘𝑋) ∈ 𝐵)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114   class class class wbr 5100  ‘cfv 6500  (class class class)co 7368  Basecbs 17148  lecple 17196  occoc 17197  joincjn 18246  meetcmee 18247  0.cp0 18356  1.cp1 18357  OPcops 39548

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 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-ext 2709  ax-nul 5253

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-sb 2069  df-clab 2716  df-cleq 2729  df-clel 2812  df-ne 2934  df-ral 3053  df-rab 3402  df-v 3444  df-dif 3906  df-un 3908  df-ss 3920  df-nul 4288  df-if 4482  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-dm 5642  df-iota 6456  df-fv 6508  df-ov 7371  df-oposet 39552

This theorem is referenced by:  opcon2b  39573  oplecon3b  39576  oplecon1b  39577  opoc1  39578  opltcon3b  39580  opltcon1b  39581  opltcon2b  39582  riotaocN  39585  oldmm1  39593  oldmm2  39594  oldmm3N  39595  oldmm4  39596  oldmj1  39597  oldmj2  39598  oldmj3  39599  oldmj4  39600  olm11  39603  latmassOLD  39605  omllaw2N  39620  omllaw4  39622  cmtcomlemN  39624  cmt2N  39626  cmt3N  39627  cmt4N  39628  cmtbr2N  39629  cmtbr3N  39630  cmtbr4N  39631  lecmtN  39632  omlfh1N  39634  omlfh3N  39635  omlspjN  39637  cvrcon3b  39653  cvrcmp2  39660  atlatmstc  39695  glbconN  39753  glbconxN  39754  cvrexch  39796  1cvrco  39848  1cvratex  39849  1cvrjat  39851  polval2N  40282  polsubN  40283  2polpmapN  40289  2polvalN  40290  poldmj1N  40304  pmapj2N  40305  polatN  40307  2polatN  40308  pnonsingN  40309  ispsubcl2N  40323  polsubclN  40328  poml4N  40329  pmapojoinN  40344  pl42lem1N  40355  lhpoc2N  40391  lhpocnle  40392  lhpmod2i2  40414  lhpmod6i1  40415  lhprelat3N  40416  trlcl  40540  trlle  40560  docaclN  41500  doca2N  41502  djajN  41513  dih1  41662  dih1dimatlem  41705  dochcl  41729  dochvalr3  41739  doch2val2  41740  dochss  41741  dochocss  41742  dochoc  41743  dochnoncon  41767  djhlj  41777