Theorem dochvalr 41066

Description: Orthocomplement of a closed subspace. (Contributed by NM, 14-Mar-2014.)

Hypotheses

Ref	Expression
dochvalr.o	⊢ ⊥ = (oc‘𝐾)
dochvalr.h	⊢ 𝐻 = (LHyp‘𝐾)
dochvalr.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dochvalr.n	⊢ 𝑁 = ((ocH‘𝐾)‘𝑊)

Assertion

Ref	Expression
dochvalr	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (𝑁‘𝑋) = (𝐼‘( ⊥ ‘(◡𝐼‘𝑋))))

Proof of Theorem dochvalr

Dummy variables 𝑧 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dochvalr.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
2		eqid 2726	. . . 4 ⊢ ((DVecH‘𝐾)‘𝑊) = ((DVecH‘𝐾)‘𝑊)
3		dochvalr.i	. . . 4 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
4		eqid 2726	. . . 4 ⊢ (Base‘((DVecH‘𝐾)‘𝑊)) = (Base‘((DVecH‘𝐾)‘𝑊))
5	1, 2, 3, 4	dihrnss 40987	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → 𝑋 ⊆ (Base‘((DVecH‘𝐾)‘𝑊)))
6		eqid 2726	. . . 4 ⊢ (Base‘𝐾) = (Base‘𝐾)
7		eqid 2726	. . . 4 ⊢ (glb‘𝐾) = (glb‘𝐾)
8		dochvalr.o	. . . 4 ⊢ ⊥ = (oc‘𝐾)
9		dochvalr.n	. . . 4 ⊢ 𝑁 = ((ocH‘𝐾)‘𝑊)
10	6, 7, 8, 1, 3, 2, 4, 9	dochval 41060	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ⊆ (Base‘((DVecH‘𝐾)‘𝑊))) → (𝑁‘𝑋) = (𝐼‘( ⊥ ‘((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}))))
11	5, 10	syldan 589	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (𝑁‘𝑋) = (𝐼‘( ⊥ ‘((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}))))
12		eqid 2726	. . . . 5 ⊢ (le‘𝐾) = (le‘𝐾)
13		hllat 39071	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
14	13	ad2antrr 724	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → 𝐾 ∈ Lat)
15		hlclat 39066	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
16	15	ad2antrr 724	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → 𝐾 ∈ CLat)
17		ssrab2 4073	. . . . . 6 ⊢ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} ⊆ (Base‘𝐾)
18	6, 7	clatglbcl 18522	. . . . . 6 ⊢ ((𝐾 ∈ CLat ∧ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} ⊆ (Base‘𝐾)) → ((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}) ∈ (Base‘𝐾))
19	16, 17, 18	sylancl 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → ((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}) ∈ (Base‘𝐾))
20	6, 1, 3	dihcnvcl 40980	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (◡𝐼‘𝑋) ∈ (Base‘𝐾))
21	17	a1i 11	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} ⊆ (Base‘𝐾))
22		ssid 4001	. . . . . . . 8 ⊢ 𝑋 ⊆ 𝑋
23	1, 3	dihcnvid2 40982	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (𝐼‘(◡𝐼‘𝑋)) = 𝑋)
24	22, 23	sseqtrrid 4032	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → 𝑋 ⊆ (𝐼‘(◡𝐼‘𝑋)))
25		fveq2 6890	. . . . . . . . 9 ⊢ (𝑦 = (◡𝐼‘𝑋) → (𝐼‘𝑦) = (𝐼‘(◡𝐼‘𝑋)))
26	25	sseq2d 4011	. . . . . . . 8 ⊢ (𝑦 = (◡𝐼‘𝑋) → (𝑋 ⊆ (𝐼‘𝑦) ↔ 𝑋 ⊆ (𝐼‘(◡𝐼‘𝑋))))
27	26	elrab 3680	. . . . . . 7 ⊢ ((◡𝐼‘𝑋) ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} ↔ ((◡𝐼‘𝑋) ∈ (Base‘𝐾) ∧ 𝑋 ⊆ (𝐼‘(◡𝐼‘𝑋))))
28	20, 24, 27	sylanbrc 581	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (◡𝐼‘𝑋) ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)})
29	6, 12, 7	clatglble 18534	. . . . . 6 ⊢ ((𝐾 ∈ CLat ∧ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} ⊆ (Base‘𝐾) ∧ (◡𝐼‘𝑋) ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}) → ((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)})(le‘𝐾)(◡𝐼‘𝑋))
30	16, 21, 28, 29	syl3anc 1368	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → ((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)})(le‘𝐾)(◡𝐼‘𝑋))
31		fveq2 6890	. . . . . . . . . 10 ⊢ (𝑦 = 𝑧 → (𝐼‘𝑦) = (𝐼‘𝑧))
32	31	sseq2d 4011	. . . . . . . . 9 ⊢ (𝑦 = 𝑧 → (𝑋 ⊆ (𝐼‘𝑦) ↔ 𝑋 ⊆ (𝐼‘𝑧)))
33	32	elrab 3680	. . . . . . . 8 ⊢ (𝑧 ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} ↔ (𝑧 ∈ (Base‘𝐾) ∧ 𝑋 ⊆ (𝐼‘𝑧)))
34	23	adantr 479	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝐼‘(◡𝐼‘𝑋)) = 𝑋)
35	34	sseq1d 4010	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝐼‘(◡𝐼‘𝑋)) ⊆ (𝐼‘𝑧) ↔ 𝑋 ⊆ (𝐼‘𝑧)))
36		simpll 765	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
37	20	adantr 479	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → (◡𝐼‘𝑋) ∈ (Base‘𝐾))
38		simpr 483	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → 𝑧 ∈ (Base‘𝐾))
39	6, 12, 1, 3	dihord 40973	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (◡𝐼‘𝑋) ∈ (Base‘𝐾) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝐼‘(◡𝐼‘𝑋)) ⊆ (𝐼‘𝑧) ↔ (◡𝐼‘𝑋)(le‘𝐾)𝑧))
40	36, 37, 38, 39	syl3anc 1368	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → ((𝐼‘(◡𝐼‘𝑋)) ⊆ (𝐼‘𝑧) ↔ (◡𝐼‘𝑋)(le‘𝐾)𝑧))
41	35, 40	bitr3d 280	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑋 ⊆ (𝐼‘𝑧) ↔ (◡𝐼‘𝑋)(le‘𝐾)𝑧))
42	41	biimpd 228	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) ∧ 𝑧 ∈ (Base‘𝐾)) → (𝑋 ⊆ (𝐼‘𝑧) → (◡𝐼‘𝑋)(le‘𝐾)𝑧))
43	42	expimpd 452	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → ((𝑧 ∈ (Base‘𝐾) ∧ 𝑋 ⊆ (𝐼‘𝑧)) → (◡𝐼‘𝑋)(le‘𝐾)𝑧))
44	33, 43	biimtrid 241	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (𝑧 ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} → (◡𝐼‘𝑋)(le‘𝐾)𝑧))
45	44	ralrimiv 3135	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → ∀𝑧 ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} (◡𝐼‘𝑋)(le‘𝐾)𝑧)
46	6, 12, 7	clatleglb 18535	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ (◡𝐼‘𝑋) ∈ (Base‘𝐾) ∧ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} ⊆ (Base‘𝐾)) → ((◡𝐼‘𝑋)(le‘𝐾)((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}) ↔ ∀𝑧 ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} (◡𝐼‘𝑋)(le‘𝐾)𝑧))
47	16, 20, 21, 46	syl3anc 1368	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → ((◡𝐼‘𝑋)(le‘𝐾)((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}) ↔ ∀𝑧 ∈ {𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)} (◡𝐼‘𝑋)(le‘𝐾)𝑧))
48	45, 47	mpbird 256	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (◡𝐼‘𝑋)(le‘𝐾)((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}))
49	6, 12, 14, 19, 20, 30, 48	latasymd 18462	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → ((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}) = (◡𝐼‘𝑋))
50	49	fveq2d 6894	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → ( ⊥ ‘((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)})) = ( ⊥ ‘(◡𝐼‘𝑋)))
51	50	fveq2d 6894	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (𝐼‘( ⊥ ‘((glb‘𝐾)‘{𝑦 ∈ (Base‘𝐾) ∣ 𝑋 ⊆ (𝐼‘𝑦)}))) = (𝐼‘( ⊥ ‘(◡𝐼‘𝑋))))
52	11, 51	eqtrd 2766	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → (𝑁‘𝑋) = (𝐼‘( ⊥ ‘(◡𝐼‘𝑋))))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 394   = wceq 1534   ∈ wcel 2099  ∀wral 3051  {crab 3419   ⊆ wss 3946   class class class wbr 5143  ^◡ccnv 5671  ran crn 5673  ‘cfv 6543  Basecbs 17205  lecple 17265  occoc 17266  glbcglb 18327  Latclat 18448  CLatccla 18515  HLchlt 39058  LHypclh 39693  DVecHcdvh 40787  DIsoHcdih 40937  ocHcoch 41056

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5359  ax-pr 5423  ax-un 7735  ax-cnex 11202  ax-resscn 11203  ax-1cn 11204  ax-icn 11205  ax-addcl 11206  ax-addrcl 11207  ax-mulcl 11208  ax-mulrcl 11209  ax-mulcom 11210  ax-addass 11211  ax-mulass 11212  ax-distr 11213  ax-i2m1 11214  ax-1ne0 11215  ax-1rid 11216  ax-rnegex 11217  ax-rrecex 11218  ax-cnre 11219  ax-pre-lttri 11220  ax-pre-lttrn 11221  ax-pre-ltadd 11222  ax-pre-mulgt0 11223  ax-riotaBAD 38661

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3464  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3966  df-nul 4323  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-uni 4906  df-int 4947  df-iun 4995  df-iin 4996  df-br 5144  df-opab 5206  df-mpt 5227  df-tr 5261  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6302  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7369  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7866  df-1st 7992  df-2nd 7993  df-tpos 8230  df-undef 8277  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-er 8723  df-map 8846  df-en 8964  df-dom 8965  df-sdom 8966  df-fin 8967  df-pnf 11288  df-mnf 11289  df-xr 11290  df-ltxr 11291  df-le 11292  df-sub 11484  df-neg 11485  df-nn 12256  df-2 12318  df-3 12319  df-4 12320  df-5 12321  df-6 12322  df-n0 12516  df-z 12602  df-uz 12866  df-fz 13530  df-struct 17141  df-sets 17158  df-slot 17176  df-ndx 17188  df-base 17206  df-ress 17235  df-plusg 17271  df-mulr 17272  df-sca 17274  df-vsca 17275  df-0g 17448  df-proset 18312  df-poset 18330  df-plt 18347  df-lub 18363  df-glb 18364  df-join 18365  df-meet 18366  df-p0 18442  df-p1 18443  df-lat 18449  df-clat 18516  df-mgm 18625  df-sgrp 18704  df-mnd 18720  df-submnd 18766  df-grp 18923  df-minusg 18924  df-sbg 18925  df-subg 19110  df-cntz 19304  df-lsm 19627  df-cmn 19773  df-abl 19774  df-mgp 20111  df-rng 20129  df-ur 20158  df-ring 20211  df-oppr 20309  df-dvdsr 20332  df-unit 20333  df-invr 20363  df-dvr 20376  df-drng 20702  df-lmod 20831  df-lss 20902  df-lsp 20942  df-lvec 21074  df-oposet 38884  df-ol 38886  df-oml 38887  df-covers 38974  df-ats 38975  df-atl 39006  df-cvlat 39030  df-hlat 39059  df-llines 39207  df-lplanes 39208  df-lvols 39209  df-lines 39210  df-psubsp 39212  df-pmap 39213  df-padd 39505  df-lhyp 39697  df-laut 39698  df-ldil 39813  df-ltrn 39814  df-trl 39868  df-tendo 40464  df-edring 40466  df-disoa 40738  df-dvech 40788  df-dib 40848  df-dic 40882  df-dih 40938  df-doch 41057

This theorem is referenced by:  doch0  41067  doch1  41068  dochvalr2  41071  dochvalr3  41072  dochocss  41075  dochoc  41076  dochnoncon  41100