Theorem diaocN 41593

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 482	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		eqid 2737	. . . . 5 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		diaoc.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
4		diaoc.i	. . . . 5 ⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)
5	2, 3, 4	diadmclN 41505	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋 ∈ (Base‘𝐾))
6		eqid 2737	. . . . 5 ⊢ (le‘𝐾) = (le‘𝐾)
7	6, 3, 4	diadmleN 41506	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋(le‘𝐾)𝑊)
8		diaoc.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
9	2, 6, 3, 8, 4	diass 41510	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ (Base‘𝐾) ∧ 𝑋(le‘𝐾)𝑊)) → (𝐼‘𝑋) ⊆ 𝑇)
10	1, 5, 7, 9	syl12anc 837	. . 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 41591	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐼‘𝑋) ⊆ 𝑇) → (𝑁‘(𝐼‘𝑋)) = (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
16	10, 15	syldan 592	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝑁‘(𝐼‘𝑋)) = (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
17	3, 4	diaclN 41518	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘𝑋) ∈ ran 𝐼)
18		intmin 4911	. . . . . . . 8 ⊢ ((𝐼‘𝑋) ∈ ran 𝐼 → ∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧} = (𝐼‘𝑋))
19	17, 18	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧} = (𝐼‘𝑋))
20	19	fveq2d 6842	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧}) = (◡𝐼‘(𝐼‘𝑋)))
21	3, 4	diaf11N 41517	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼:dom 𝐼–1-1-onto→ran 𝐼)
22		f1ocnvfv1 7228	. . . . . . 7 ⊢ ((𝐼:dom 𝐼–1-1-onto→ran 𝐼 ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘(𝐼‘𝑋)) = 𝑋)
23	21, 22	sylan 581	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘(𝐼‘𝑋)) = 𝑋)
24	20, 23	eqtrd 2772	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧}) = 𝑋)
25	24	fveq2d 6842	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) = ( ⊥ ‘𝑋))
26	25	oveq1d 7379	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) = (( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)))
27	26	fvoveq1d 7386	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)) = (𝐼‘((( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
28	16, 27	eqtr2d 2773	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)) = (𝑁‘(𝐼‘𝑋)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  {crab 3390   ⊆ wss 3890  ∩ cint 4890   class class class wbr 5086  ^◡ccnv 5627  dom cdm 5628  ran crn 5629  –1-1-onto→wf1o 6495  ‘cfv 6496  (class class class)co 7364  Basecbs 17176  lecple 17224  occoc 17225  joincjn 18274  meetcmee 18275  HLchlt 39818  LHypclh 40452  LTrncltrn 40569  DIsoAcdia 41496  ocAcocaN 41587

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-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5306  ax-pr 5374  ax-un 7686  ax-riotaBAD 39421

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-id 5523  df-xp 5634  df-rel 5635  df-cnv 5636  df-co 5637  df-dm 5638  df-rn 5639  df-res 5640  df-ima 5641  df-iota 6452  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7321  df-ov 7367  df-oprab 7368  df-mpo 7369  df-1st 7939  df-2nd 7940  df-undef 8220  df-map 8772  df-proset 18257  df-poset 18276  df-plt 18291  df-lub 18307  df-glb 18308  df-join 18309  df-meet 18310  df-p0 18386  df-p1 18387  df-lat 18395  df-clat 18462  df-oposet 39644  df-ol 39646  df-oml 39647  df-covers 39734  df-ats 39735  df-atl 39766  df-cvlat 39790  df-hlat 39819  df-llines 39966  df-lplanes 39967  df-lvols 39968  df-lines 39969  df-psubsp 39971  df-pmap 39972  df-padd 40264  df-lhyp 40456  df-laut 40457  df-ldil 40572  df-ltrn 40573  df-trl 40627  df-disoa 41497  df-docaN 41588

This theorem is referenced by:  doca2N  41594  djajN  41605