Theorem diaocN 42373

Description: Value of partial isomorphism A at lattice orthocomplement (using a Sasaki projection to get orthocomplement relative to the fiducial co-atom 𝑊). (Contributed by NM, 6-Dec-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
diaoc.j	⊢ ∨ = (join‘𝐾)
diaoc.m	⊢ ∧ = (meet‘𝐾)
diaoc.o	⊢ ⊥ = (oc‘𝐾)
diaoc.h	⊢ 𝐻 = (LHyp‘𝐾)
diaoc.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
diaoc.i	⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)
diaoc.n	⊢ 𝑁 = ((ocA‘𝐾)‘𝑊)

Assertion

Ref	Expression
diaocN	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)) = (𝑁‘(𝐼‘𝑋)))

Proof of Theorem diaocN

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 488	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		eqid 2763	. . . . 5 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		diaoc.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
4		diaoc.i	. . . . 5 ⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)
5	2, 3, 4	diadmclN 42285	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋 ∈ (Base‘𝐾))
6		eqid 2763	. . . . 5 ⊢ (le‘𝐾) = (le‘𝐾)
7	6, 3, 4	diadmleN 42286	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋(le‘𝐾)𝑊)
8		diaoc.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
9	2, 6, 3, 8, 4	diass 42290	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ (Base‘𝐾) ∧ 𝑋(le‘𝐾)𝑊)) → (𝐼‘𝑋) ⊆ 𝑇)
10	1, 5, 7, 9	syl12anc 850	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘𝑋) ⊆ 𝑇)
11		diaoc.j	. . . 4 ⊢ ∨ = (join‘𝐾)
12		diaoc.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
13		diaoc.o	. . . 4 ⊢ ⊥ = (oc‘𝐾)
14		diaoc.n	. . . 4 ⊢ 𝑁 = ((ocA‘𝐾)‘𝑊)
15	11, 12, 13, 3, 8, 4, 14	docavalN 42371	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐼‘𝑋) ⊆ 𝑇) → (𝑁‘(𝐼‘𝑋)) = (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
16	10, 15	syldan 603	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝑁‘(𝐼‘𝑋)) = (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
17	3, 4	diaclN 42298	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘𝑋) ∈ ran 𝐼)
18		intmin 4931	. . . . . . . 8 ⊢ ((𝐼‘𝑋) ∈ ran 𝐼 → ∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧} = (𝐼‘𝑋))
19	17, 18	syl 18	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧} = (𝐼‘𝑋))
20	19	fveq2d 6909	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧}) = (◡𝐼‘(𝐼‘𝑋)))
21	3, 4	diaf11N 42297	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼:dom 𝐼⟶1-1ontoran 𝐼)
22		f1ocnvfv1 7304	. . . . . . 7 ⊢ ((𝐼:dom 𝐼⟶1-1ontoran 𝐼 ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘(𝐼‘𝑋)) = 𝑋)
23	21, 22	sylan 592	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘(𝐼‘𝑋)) = 𝑋)
24	20, 23	eqtrd 2798	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧}) = 𝑋)
25	24	fveq2d 6909	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) = ( ⊥ ‘𝑋))
26	25	oveq1d 7455	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) = (( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)))
27	26	fvoveq1d 7462	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)) = (𝐼‘((( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
28	16, 27	eqtr2d 2799	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)) = (𝑁‘(𝐼‘𝑋)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  {crab 3416   ⊆ wss 3900  ∩ cint 4910   class class class wbr 5106  ^◡ccnv 5654  dom cdm 5655  ran crn 5656  ⟶1-1ontowf1o 6554  ‘cfv 6555  (class class class)co 7440  Basecbs 17413  lecple 17461  occoc 17462  joincjn 18511  meetcmee 18512  HLchlt 40598  LHypclh 41232  LTrncltrn 41349  DIsoAcdia 42276  ocAcocaN 42367

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7772  ax-riotaBAD 40201

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-int 4911  df-iun 4956  df-iin 4957  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6509  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7397  df-ov 7443  df-oprab 7444  df-mpo 7445  df-1st 8022  df-2nd 8023  df-undef 8315  df-map 8874  df-proset 18494  df-poset 18513  df-plt 18528  df-lub 18544  df-glb 18545  df-join 18546  df-meet 18547  df-p0 18623  df-p1 18624  df-lat 18632  df-clat 18699  df-oposet 40424  df-ol 40426  df-oml 40427  df-covers 40514  df-ats 40515  df-atl 40546  df-cvlat 40570  df-hlat 40599  df-llines 40746  df-lplanes 40747  df-lvols 40748  df-lines 40749  df-psubsp 40751  df-pmap 40752  df-padd 41044  df-lhyp 41236  df-laut 41237  df-ldil 41352  df-ltrn 41353  df-trl 41407  df-disoa 42277  df-docaN 42368

This theorem is used by:  doca2N  42374  djajN  42385