Theorem diaocN 41113

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 2729	. . . . 5 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		diaoc.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
4		diaoc.i	. . . . 5 ⊢ 𝐼 = ((DIsoA‘𝐾)‘𝑊)
5	2, 3, 4	diadmclN 41025	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋 ∈ (Base‘𝐾))
6		eqid 2729	. . . . 5 ⊢ (le‘𝐾) = (le‘𝐾)
7	6, 3, 4	diadmleN 41026	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → 𝑋(le‘𝐾)𝑊)
8		diaoc.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
9	2, 6, 3, 8, 4	diass 41030	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑋 ∈ (Base‘𝐾) ∧ 𝑋(le‘𝐾)𝑊)) → (𝐼‘𝑋) ⊆ 𝑇)
10	1, 5, 7, 9	syl12anc 836	. . 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 41111	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐼‘𝑋) ⊆ 𝑇) → (𝑁‘(𝐼‘𝑋)) = (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
16	10, 15	syldan 591	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝑁‘(𝐼‘𝑋)) = (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
17	3, 4	diaclN 41038	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘𝑋) ∈ ran 𝐼)
18		intmin 4928	. . . . . . . 8 ⊢ ((𝐼‘𝑋) ∈ ran 𝐼 → ∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧} = (𝐼‘𝑋))
19	17, 18	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧} = (𝐼‘𝑋))
20	19	fveq2d 6844	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧}) = (◡𝐼‘(𝐼‘𝑋)))
21	3, 4	diaf11N 41037	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼:dom 𝐼–1-1-onto→ran 𝐼)
22		f1ocnvfv1 7233	. . . . . . 7 ⊢ ((𝐼:dom 𝐼–1-1-onto→ran 𝐼 ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘(𝐼‘𝑋)) = 𝑋)
23	21, 22	sylan 580	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘(𝐼‘𝑋)) = 𝑋)
24	20, 23	eqtrd 2764	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧}) = 𝑋)
25	24	fveq2d 6844	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → ( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) = ( ⊥ ‘𝑋))
26	25	oveq1d 7384	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) = (( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)))
27	26	fvoveq1d 7391	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((( ⊥ ‘(◡𝐼‘∩ {𝑧 ∈ ran 𝐼 ∣ (𝐼‘𝑋) ⊆ 𝑧})) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)) = (𝐼‘((( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)))
28	16, 27	eqtr2d 2765	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ dom 𝐼) → (𝐼‘((( ⊥ ‘𝑋) ∨ ( ⊥ ‘𝑊)) ∧ 𝑊)) = (𝑁‘(𝐼‘𝑋)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  {crab 3402   ⊆ wss 3911  ∩ cint 4906   class class class wbr 5102  ^◡ccnv 5630  dom cdm 5631  ran crn 5632  –1-1-onto→wf1o 6498  ‘cfv 6499  (class class class)co 7369  Basecbs 17156  lecple 17204  occoc 17205  joincjn 18253  meetcmee 18254  HLchlt 39337  LHypclh 39972  LTrncltrn 40089  DIsoAcdia 41016  ocAcocaN 41107

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5229  ax-sep 5246  ax-nul 5256  ax-pow 5315  ax-pr 5382  ax-un 7691  ax-riotaBAD 38940

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rmo 3351  df-reu 3352  df-rab 3403  df-v 3446  df-sbc 3751  df-csb 3860  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-nul 4293  df-if 4485  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4868  df-int 4907  df-iun 4953  df-iin 4954  df-br 5103  df-opab 5165  df-mpt 5184  df-id 5526  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-iota 6452  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-riota 7326  df-ov 7372  df-oprab 7373  df-mpo 7374  df-1st 7947  df-2nd 7948  df-undef 8229  df-map 8778  df-proset 18236  df-poset 18255  df-plt 18270  df-lub 18286  df-glb 18287  df-join 18288  df-meet 18289  df-p0 18365  df-p1 18366  df-lat 18374  df-clat 18441  df-oposet 39163  df-ol 39165  df-oml 39166  df-covers 39253  df-ats 39254  df-atl 39285  df-cvlat 39309  df-hlat 39338  df-llines 39486  df-lplanes 39487  df-lvols 39488  df-lines 39489  df-psubsp 39491  df-pmap 39492  df-padd 39784  df-lhyp 39976  df-laut 39977  df-ldil 40092  df-ltrn 40093  df-trl 40147  df-disoa 41017  df-docaN 41108

This theorem is referenced by:  doca2N  41114  djajN  41125