Theorem dochkrsm 41753

Description: The subspace sum of a closed subspace and a kernel orthocomplement is closed. (djhlsmcl 41709 can be used to convert sum to join.) (Contributed by NM, 29-Jan-2015.)

Hypotheses

Ref	Expression
dochkrsm.h	⊢ 𝐻 = (LHyp‘𝐾)
dochkrsm.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dochkrsm.o	⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
dochkrsm.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dochkrsm.p	⊢ ⊕ = (LSSum‘𝑈)
dochkrsm.f	⊢ 𝐹 = (LFnl‘𝑈)
dochkrsm.l	⊢ 𝐿 = (LKer‘𝑈)
dochkrsm.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
dochkrsm.x	⊢ (𝜑 → 𝑋 ∈ ran 𝐼)
dochkrsm.g	⊢ (𝜑 → 𝐺 ∈ 𝐹)

Assertion

Ref	Expression
dochkrsm	⊢ (𝜑 → (𝑋 ⊕ ( ⊥ ‘(𝐿‘𝐺))) ∈ ran 𝐼)

Proof of Theorem dochkrsm

Step	Hyp	Ref	Expression
1		dochkrsm.h	. . 3 ⊢ 𝐻 = (LHyp‘𝐾)
2		dochkrsm.i	. . 3 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
3		dochkrsm.u	. . 3 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
4		dochkrsm.p	. . 3 ⊢ ⊕ = (LSSum‘𝑈)
5		eqid 2735	. . 3 ⊢ (LSAtoms‘𝑈) = (LSAtoms‘𝑈)
6		dochkrsm.k	. . . 4 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
7	6	adantr 480	. . 3 ⊢ ((𝜑 ∧ ( ⊥ ‘(𝐿‘𝐺)) ∈ (LSAtoms‘𝑈)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
8		dochkrsm.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ ran 𝐼)
9	8	adantr 480	. . 3 ⊢ ((𝜑 ∧ ( ⊥ ‘(𝐿‘𝐺)) ∈ (LSAtoms‘𝑈)) → 𝑋 ∈ ran 𝐼)
10		simpr 484	. . 3 ⊢ ((𝜑 ∧ ( ⊥ ‘(𝐿‘𝐺)) ∈ (LSAtoms‘𝑈)) → ( ⊥ ‘(𝐿‘𝐺)) ∈ (LSAtoms‘𝑈))
11	1, 2, 3, 4, 5, 7, 9, 10	dihsmatrn 41731	. 2 ⊢ ((𝜑 ∧ ( ⊥ ‘(𝐿‘𝐺)) ∈ (LSAtoms‘𝑈)) → (𝑋 ⊕ ( ⊥ ‘(𝐿‘𝐺))) ∈ ran 𝐼)
12		oveq2 7366	. . . 4 ⊢ (( ⊥ ‘(𝐿‘𝐺)) = {(0g‘𝑈)} → (𝑋 ⊕ ( ⊥ ‘(𝐿‘𝐺))) = (𝑋 ⊕ {(0g‘𝑈)}))
13	1, 3, 6	dvhlmod 41405	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LMod)
14		eqid 2735	. . . . . . . 8 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
15	1, 3, 2, 14	dihrnlss 41572	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑋 ∈ ran 𝐼) → 𝑋 ∈ (LSubSp‘𝑈))
16	6, 8, 15	syl2anc 585	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ (LSubSp‘𝑈))
17	14	lsssubg 20910	. . . . . 6 ⊢ ((𝑈 ∈ LMod ∧ 𝑋 ∈ (LSubSp‘𝑈)) → 𝑋 ∈ (SubGrp‘𝑈))
18	13, 16, 17	syl2anc 585	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ (SubGrp‘𝑈))
19		eqid 2735	. . . . . 6 ⊢ (0g‘𝑈) = (0g‘𝑈)
20	19, 4	lsm01 19602	. . . . 5 ⊢ (𝑋 ∈ (SubGrp‘𝑈) → (𝑋 ⊕ {(0g‘𝑈)}) = 𝑋)
21	18, 20	syl 17	. . . 4 ⊢ (𝜑 → (𝑋 ⊕ {(0g‘𝑈)}) = 𝑋)
22	12, 21	sylan9eqr 2792	. . 3 ⊢ ((𝜑 ∧ ( ⊥ ‘(𝐿‘𝐺)) = {(0g‘𝑈)}) → (𝑋 ⊕ ( ⊥ ‘(𝐿‘𝐺))) = 𝑋)
23	8	adantr 480	. . 3 ⊢ ((𝜑 ∧ ( ⊥ ‘(𝐿‘𝐺)) = {(0g‘𝑈)}) → 𝑋 ∈ ran 𝐼)
24	22, 23	eqeltrd 2835	. 2 ⊢ ((𝜑 ∧ ( ⊥ ‘(𝐿‘𝐺)) = {(0g‘𝑈)}) → (𝑋 ⊕ ( ⊥ ‘(𝐿‘𝐺))) ∈ ran 𝐼)
25		dochkrsm.o	. . 3 ⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
26		dochkrsm.f	. . 3 ⊢ 𝐹 = (LFnl‘𝑈)
27		dochkrsm.l	. . 3 ⊢ 𝐿 = (LKer‘𝑈)
28		dochkrsm.g	. . 3 ⊢ (𝜑 → 𝐺 ∈ 𝐹)
29	1, 25, 3, 19, 5, 26, 27, 6, 28	dochsat0 41752	. 2 ⊢ (𝜑 → (( ⊥ ‘(𝐿‘𝐺)) ∈ (LSAtoms‘𝑈) ∨ ( ⊥ ‘(𝐿‘𝐺)) = {(0g‘𝑈)}))
30	11, 24, 29	mpjaodan 961	1 ⊢ (𝜑 → (𝑋 ⊕ ( ⊥ ‘(𝐿‘𝐺))) ∈ ran 𝐼)

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  {csn 4579  ran crn 5624  ‘cfv 6491  (class class class)co 7358  0_gc0g 17361  SubGrpcsubg 19052  LSSumclsm 19565  LModclmod 20813  LSubSpclss 20884  LSAtomsclsa 39269  LFnlclfn 39352  LKerclk 39380  HLchlt 39645  LHypclh 40279  DVecHcdvh 41373  DIsoHcdih 41523  ocHcoch 41642

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 2183  ax-ext 2707  ax-rep 5223  ax-sep 5240  ax-nul 5250  ax-pow 5309  ax-pr 5376  ax-un 7680  ax-cnex 11084  ax-resscn 11085  ax-1cn 11086  ax-icn 11087  ax-addcl 11088  ax-addrcl 11089  ax-mulcl 11090  ax-mulrcl 11091  ax-mulcom 11092  ax-addass 11093  ax-mulass 11094  ax-distr 11095  ax-i2m1 11096  ax-1ne0 11097  ax-1rid 11098  ax-rnegex 11099  ax-rrecex 11100  ax-cnre 11101  ax-pre-lttri 11102  ax-pre-lttrn 11103  ax-pre-ltadd 11104  ax-pre-mulgt0 11105  ax-riotaBAD 39248

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 2538  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2810  df-nfc 2884  df-ne 2932  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3349  df-reu 3350  df-rab 3399  df-v 3441  df-sbc 3740  df-csb 3849  df-dif 3903  df-un 3905  df-in 3907  df-ss 3917  df-pss 3920  df-nul 4285  df-if 4479  df-pw 4555  df-sn 4580  df-pr 4582  df-tp 4584  df-op 4586  df-uni 4863  df-int 4902  df-iun 4947  df-iin 4948  df-br 5098  df-opab 5160  df-mpt 5179  df-tr 5205  df-id 5518  df-eprel 5523  df-po 5531  df-so 5532  df-fr 5576  df-we 5578  df-xp 5629  df-rel 5630  df-cnv 5631  df-co 5632  df-dm 5633  df-rn 5634  df-res 5635  df-ima 5636  df-pred 6258  df-ord 6319  df-on 6320  df-lim 6321  df-suc 6322  df-iota 6447  df-fun 6493  df-fn 6494  df-f 6495  df-f1 6496  df-fo 6497  df-f1o 6498  df-fv 6499  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-om 7809  df-1st 7933  df-2nd 7934  df-tpos 8168  df-undef 8215  df-frecs 8223  df-wrecs 8254  df-recs 8303  df-rdg 8341  df-1o 8397  df-er 8635  df-map 8767  df-en 8886  df-dom 8887  df-sdom 8888  df-fin 8889  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11368  df-neg 11369  df-nn 12148  df-2 12210  df-3 12211  df-4 12212  df-5 12213  df-6 12214  df-n0 12404  df-z 12491  df-uz 12754  df-fz 13426  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17139  df-ress 17160  df-plusg 17192  df-mulr 17193  df-sca 17195  df-vsca 17196  df-0g 17363  df-proset 18219  df-poset 18238  df-plt 18253  df-lub 18269  df-glb 18270  df-join 18271  df-meet 18272  df-p0 18348  df-p1 18349  df-lat 18357  df-clat 18424  df-mgm 18567  df-sgrp 18646  df-mnd 18662  df-submnd 18711  df-grp 18868  df-minusg 18869  df-sbg 18870  df-subg 19055  df-cntz 19248  df-lsm 19567  df-cmn 19713  df-abl 19714  df-mgp 20078  df-rng 20090  df-ur 20119  df-ring 20172  df-oppr 20275  df-dvdsr 20295  df-unit 20296  df-invr 20326  df-dvr 20339  df-drng 20666  df-lmod 20815  df-lss 20885  df-lsp 20925  df-lvec 21057  df-lsatoms 39271  df-lshyp 39272  df-lfl 39353  df-lkr 39381  df-oposet 39471  df-ol 39473  df-oml 39474  df-covers 39561  df-ats 39562  df-atl 39593  df-cvlat 39617  df-hlat 39646  df-llines 39793  df-lplanes 39794  df-lvols 39795  df-lines 39796  df-psubsp 39798  df-pmap 39799  df-padd 40091  df-lhyp 40283  df-laut 40284  df-ldil 40399  df-ltrn 40400  df-trl 40454  df-tgrp 41038  df-tendo 41050  df-edring 41052  df-dveca 41298  df-disoa 41324  df-dvech 41374  df-dib 41434  df-dic 41468  df-dih 41524  df-doch 41643  df-djh 41690

This theorem is referenced by:  lclkrslem2  41833