lclkrlem1 - Mathbox for Norm Megill

	Mathbox for Norm Megill		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > lclkrlem1		Structured version Visualization version GIF version

Theorem lclkrlem1 42130

Description: The set of functionals having closed kernels is closed under scalar product. (Contributed by NM, 28-Dec-2014.)

**Hypotheses**
Ref	Expression
lclkrlem1.h	⊢ 𝐻 = (LHyp‘𝐾)
lclkrlem1.o	⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
lclkrlem1.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
lclkrlem1.f	⊢ 𝐹 = (LFnl‘𝑈)
lclkrlem1.l	⊢ 𝐿 = (LKer‘𝑈)
lclkrlem1.d	⊢ 𝐷 = (LDual‘𝑈)
lclkrlem1.r	⊢ 𝑅 = (Scalar‘𝑈)
lclkrlem1.b	⊢ 𝐵 = (Base‘𝑅)
lclkrlem1.t	⊢ · = ( ·_𝑠 ‘𝐷)
lclkrlem1.c	⊢ 𝐶 = {𝑓 ∈ 𝐹 ∣ ( ⊥ ‘( ⊥ ‘(𝐿‘𝑓))) = (𝐿‘𝑓)}
lclkrlem1.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
lclkrlem1.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
lclkrlem1.g	⊢ (𝜑 → 𝐺 ∈ 𝐶)

**Assertion**
Ref	Expression
lclkrlem1	⊢ (𝜑 → (𝑋 · 𝐺) ∈ 𝐶)

Distinct variable groups: 𝑓,𝐹 𝑓,𝐿 ⊥ ,𝑓 · ,𝑓 𝑓,𝐺 𝑓,𝑋 Allowed substitution hints: 𝜑(𝑓) 𝐵(𝑓) 𝐶(𝑓) 𝐷(𝑓) 𝑅(𝑓) 𝑈(𝑓) 𝐻(𝑓) 𝐾(𝑓) 𝑊(𝑓)

**Proof of Theorem lclkrlem1**
Step	Hyp	Ref	Expression
1		lclkrlem1.f	. . 3 ⊢ 𝐹 = (LFnl‘𝑈)
2		lclkrlem1.r	. . 3 ⊢ 𝑅 = (Scalar‘𝑈)
3		lclkrlem1.b	. . 3 ⊢ 𝐵 = (Base‘𝑅)
4		lclkrlem1.d	. . 3 ⊢ 𝐷 = (LDual‘𝑈)
5		lclkrlem1.t	. . 3 ⊢ · = ( ·_𝑠 ‘𝐷)
6		lclkrlem1.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
7		lclkrlem1.u	. . . 4 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
8		lclkrlem1.k	. . . 4 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
9	6, 7, 8	dvhlmod 41734	. . 3 ⊢ (𝜑 → 𝑈 ∈ LMod)
10		lclkrlem1.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
11		lclkrlem1.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ 𝐶)
12		lclkrlem1.c	. . . . . 6 ⊢ 𝐶 = {𝑓 ∈ 𝐹 ∣ ( ⊥ ‘( ⊥ ‘(𝐿‘𝑓))) = (𝐿‘𝑓)}
13	12	lcfl1lem 42115	. . . . 5 ⊢ (𝐺 ∈ 𝐶 ↔ (𝐺 ∈ 𝐹 ∧ ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺)))
14	11, 13	sylib 220	. . . 4 ⊢ (𝜑 → (𝐺 ∈ 𝐹 ∧ ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺)))
15	14	simpld 498	. . 3 ⊢ (𝜑 → 𝐺 ∈ 𝐹)
16	1, 2, 3, 4, 5, 9, 10, 15	ldualvscl 39763	. 2 ⊢ (𝜑 → (𝑋 · 𝐺) ∈ 𝐹)
17		lclkrlem1.o	. . . . . 6 ⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
18		eqid 2762	. . . . . 6 ⊢ (Base‘𝑈) = (Base‘𝑈)
19	6, 7, 17, 18, 8	dochoc1 41985	. . . . 5 ⊢ (𝜑 → ( ⊥ ‘( ⊥ ‘(Base‘𝑈))) = (Base‘𝑈))
20	19	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(Base‘𝑈))) = (Base‘𝑈))
21		fvoveq1 7419	. . . . . . 7 ⊢ (𝑋 = (0_g‘𝑅) → (𝐿‘(𝑋 · 𝐺)) = (𝐿‘((0_g‘𝑅) · 𝐺)))
22	4, 9	lduallmod 39777	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷 ∈ LMod)
23		eqid 2762	. . . . . . . . . . . 12 ⊢ (Base‘𝐷) = (Base‘𝐷)
24	1, 4, 23, 9, 15	ldualelvbase 39751	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ (Base‘𝐷))
25		eqid 2762	. . . . . . . . . . . 12 ⊢ (Scalar‘𝐷) = (Scalar‘𝐷)
26		eqid 2762	. . . . . . . . . . . 12 ⊢ (0_g‘(Scalar‘𝐷)) = (0_g‘(Scalar‘𝐷))
27		eqid 2762	. . . . . . . . . . . 12 ⊢ (0_g‘𝐷) = (0_g‘𝐷)
28	23, 25, 5, 26, 27	lmod0vs 20962	. . . . . . . . . . 11 ⊢ ((𝐷 ∈ LMod ∧ 𝐺 ∈ (Base‘𝐷)) → ((0_g‘(Scalar‘𝐷)) · 𝐺) = (0_g‘𝐷))
29	22, 24, 28	syl2anc 593	. . . . . . . . . 10 ⊢ (𝜑 → ((0_g‘(Scalar‘𝐷)) · 𝐺) = (0_g‘𝐷))
30		eqid 2762	. . . . . . . . . . . 12 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
31	2, 30, 4, 25, 26, 9	ldual0 39771	. . . . . . . . . . 11 ⊢ (𝜑 → (0_g‘(Scalar‘𝐷)) = (0_g‘𝑅))
32	31	oveq1d 7411	. . . . . . . . . 10 ⊢ (𝜑 → ((0_g‘(Scalar‘𝐷)) · 𝐺) = ((0_g‘𝑅) · 𝐺))
33	18, 2, 30, 4, 27, 9	ldual0v 39774	. . . . . . . . . 10 ⊢ (𝜑 → (0_g‘𝐷) = ((Base‘𝑈) × {(0_g‘𝑅)}))
34	29, 32, 33	3eqtr3d 2805	. . . . . . . . 9 ⊢ (𝜑 → ((0_g‘𝑅) · 𝐺) = ((Base‘𝑈) × {(0_g‘𝑅)}))
35	34	fveq2d 6871	. . . . . . . 8 ⊢ (𝜑 → (𝐿‘((0_g‘𝑅) · 𝐺)) = (𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})))
36		eqid 2762	. . . . . . . . 9 ⊢ ((Base‘𝑈) × {(0_g‘𝑅)}) = ((Base‘𝑈) × {(0_g‘𝑅)})
37	2, 30, 18, 1	lfl0f 39693	. . . . . . . . . 10 ⊢ (𝑈 ∈ LMod → ((Base‘𝑈) × {(0_g‘𝑅)}) ∈ 𝐹)
38		lclkrlem1.l	. . . . . . . . . . 11 ⊢ 𝐿 = (LKer‘𝑈)
39	2, 30, 18, 1, 38	lkr0f 39718	. . . . . . . . . 10 ⊢ ((𝑈 ∈ LMod ∧ ((Base‘𝑈) × {(0_g‘𝑅)}) ∈ 𝐹) → ((𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})) = (Base‘𝑈) ↔ ((Base‘𝑈) × {(0_g‘𝑅)}) = ((Base‘𝑈) × {(0_g‘𝑅)})))
40	9, 37, 39	syl2anc2 594	. . . . . . . . 9 ⊢ (𝜑 → ((𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})) = (Base‘𝑈) ↔ ((Base‘𝑈) × {(0_g‘𝑅)}) = ((Base‘𝑈) × {(0_g‘𝑅)})))
41	36, 40	mpbiri 260	. . . . . . . 8 ⊢ (𝜑 → (𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})) = (Base‘𝑈))
42	35, 41	eqtrd 2797	. . . . . . 7 ⊢ (𝜑 → (𝐿‘((0_g‘𝑅) · 𝐺)) = (Base‘𝑈))
43	21, 42	sylan9eqr 2819	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → (𝐿‘(𝑋 · 𝐺)) = (Base‘𝑈))
44	43	fveq2d 6871	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘(𝐿‘(𝑋 · 𝐺))) = ( ⊥ ‘(Base‘𝑈)))
45	44	fveq2d 6871	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = ( ⊥ ‘( ⊥ ‘(Base‘𝑈))))
46	20, 45, 43	3eqtr4d 2807	. . 3 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺)))
47	14	simprd 499	. . . . 5 ⊢ (𝜑 → ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺))
48	47	adantr 484	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺))
49	6, 7, 8	dvhlvec 41733	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ LVec)
50	49	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝑈 ∈ LVec)
51	15	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝐺 ∈ 𝐹)
52	10	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝑋 ∈ 𝐵)
53		simpr 488	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝑋 ≠ (0_g‘𝑅))
54	2, 3, 30, 1, 38, 4, 5, 50, 51, 52, 53	ldualkrsc 39791	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → (𝐿‘(𝑋 · 𝐺)) = (𝐿‘𝐺))
55	54	fveq2d 6871	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘(𝐿‘(𝑋 · 𝐺))) = ( ⊥ ‘(𝐿‘𝐺)))
56	55	fveq2d 6871	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))))
57	48, 56, 54	3eqtr4d 2807	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺)))
58	46, 57	pm2.61dane 3044	. 2 ⊢ (𝜑 → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺)))
59	12	lcfl1lem 42115	. 2 ⊢ ((𝑋 · 𝐺) ∈ 𝐶 ↔ ((𝑋 · 𝐺) ∈ 𝐹 ∧ ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺))))
60	16, 58, 59	sylanbrc 592	1 ⊢ (𝜑 → (𝑋 · 𝐺) ∈ 𝐶)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 399 = wceq 1560 ∈ wcel 2142 ≠ wne 2957 {crab 3414 {csn 4582 × cxp 5645 ‘cfv 6521 (class class class)co 7396 Basecbs 17245 Scalarcsca 17289 ·_𝑠 cvsca 17290 0_gc0g 17468 LModclmod 20927 LVecclvec 21169 LFnlclfn 39681 LKerclk 39709 LDualcld 39747 HLchlt 39974 LHypclh 40608 DVecHcdvh 41702 ocHcoch 41971

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1815 ax-4 1829 ax-5 1930 ax-6 1987 ax-7 2028 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-rep 5227 ax-sep 5246 ax-nul 5256 ax-pow 5322 ax-pr 5390 ax-un 7718 ax-cnex 11129 ax-resscn 11130 ax-1cn 11131 ax-icn 11132 ax-addcl 11133 ax-addrcl 11134 ax-mulcl 11135 ax-mulrcl 11136 ax-mulcom 11137 ax-addass 11138 ax-mulass 11139 ax-distr 11140 ax-i2m1 11141 ax-1ne0 11142 ax-1rid 11143 ax-rnegex 11144 ax-rrecex 11145 ax-cnre 11146 ax-pre-lttri 11147 ax-pre-lttrn 11148 ax-pre-ltadd 11149 ax-pre-mulgt0 11150 ax-riotaBAD 39577

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1099 df-3an 1100 df-tru 1563 df-fal 1573 df-ex 1800 df-nf 1804 df-sb 2091 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3456 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-nul 4286 df-if 4481 df-pw 4557 df-sn 4583 df-pr 4585 df-tp 4587 df-op 4589 df-uni 4866 df-int 4906 df-iun 4951 df-iin 4952 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5542 df-eprel 5547 df-po 5555 df-so 5556 df-fr 5600 df-we 5602 df-xp 5653 df-rel 5654 df-cnv 5655 df-co 5656 df-dm 5657 df-rn 5658 df-res 5659 df-ima 5660 df-pred 6288 df-ord 6349 df-on 6350 df-lim 6351 df-suc 6352 df-iota 6477 df-fun 6523 df-fn 6524 df-f 6525 df-f1 6526 df-fo 6527 df-f1o 6528 df-fv 6529 df-riota 7353 df-ov 7399 df-oprab 7400 df-mpo 7401 df-of 7660 df-om 7847 df-1st 7970 df-2nd 7971 df-tpos 8206 df-undef 8253 df-frecs 8262 df-wrecs 8293 df-recs 8342 df-rdg 8381 df-1o 8437 df-er 8678 df-map 8810 df-en 8928 df-dom 8929 df-sdom 8930 df-fin 8931 df-pnf 11218 df-mnf 11219 df-xr 11220 df-ltxr 11221 df-le 11222 df-sub 11416 df-neg 11417 df-nn 12211 df-2 12280 df-3 12281 df-4 12282 df-5 12283 df-6 12284 df-n0 12482 df-z 12569 df-uz 12840 df-fz 13513 df-struct 17183 df-sets 17200 df-slot 17218 df-ndx 17230 df-base 17246 df-ress 17267 df-plusg 17299 df-mulr 17300 df-sca 17302 df-vsca 17303 df-0g 17470 df-proset 18326 df-poset 18345 df-plt 18360 df-lub 18376 df-glb 18377 df-join 18378 df-meet 18379 df-p0 18455 df-p1 18456 df-lat 18464 df-clat 18531 df-mgm 18674 df-sgrp 18753 df-mnd 18769 df-submnd 18818 df-grp 18978 df-minusg 18979 df-sbg 18980 df-subg 19165 df-cntz 19357 df-lsm 19676 df-cmn 19822 df-abl 19823 df-mgp 20187 df-rng 20199 df-ur 20232 df-ring 20285 df-oppr 20386 df-dvdsr 20406 df-unit 20407 df-invr 20437 df-dvr 20450 df-nzr 20563 df-rlreg 20744 df-domn 20745 df-drng 20781 df-lmod 20929 df-lss 20999 df-lsp 21039 df-lvec 21170 df-lfl 39682 df-lkr 39710 df-ldual 39748 df-oposet 39800 df-ol 39802 df-oml 39803 df-covers 39890 df-ats 39891 df-atl 39922 df-cvlat 39946 df-hlat 39975 df-llines 40122 df-lplanes 40123 df-lvols 40124 df-lines 40125 df-psubsp 40127 df-pmap 40128 df-padd 40420 df-lhyp 40612 df-laut 40613 df-ldil 40728 df-ltrn 40729 df-trl 40783 df-tendo 41379 df-edring 41381 df-disoa 41653 df-dvech 41703 df-dib 41763 df-dic 41797 df-dih 41853 df-doch 41972

This theorem is referenced by: lclkr 42157 lclkrslem1 42161

W3C validator