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 41615

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 41219	. . 3 ⊢ (𝜑 → 𝑈 ∈ LMod)
10		lclkrlem1.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
11		lclkrlem1.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ 𝐶)
12		lclkrlem1.c	. . . . . 6 ⊢ 𝐶 = {𝑓 ∈ 𝐹 ∣ ( ⊥ ‘( ⊥ ‘(𝐿‘𝑓))) = (𝐿‘𝑓)}
13	12	lcfl1lem 41600	. . . . 5 ⊢ (𝐺 ∈ 𝐶 ↔ (𝐺 ∈ 𝐹 ∧ ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺)))
14	11, 13	sylib 218	. . . 4 ⊢ (𝜑 → (𝐺 ∈ 𝐹 ∧ ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺)))
15	14	simpld 494	. . 3 ⊢ (𝜑 → 𝐺 ∈ 𝐹)
16	1, 2, 3, 4, 5, 9, 10, 15	ldualvscl 39248	. 2 ⊢ (𝜑 → (𝑋 · 𝐺) ∈ 𝐹)
17		lclkrlem1.o	. . . . . 6 ⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
18		eqid 2731	. . . . . 6 ⊢ (Base‘𝑈) = (Base‘𝑈)
19	6, 7, 17, 18, 8	dochoc1 41470	. . . . 5 ⊢ (𝜑 → ( ⊥ ‘( ⊥ ‘(Base‘𝑈))) = (Base‘𝑈))
20	19	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(Base‘𝑈))) = (Base‘𝑈))
21		fvoveq1 7369	. . . . . . 7 ⊢ (𝑋 = (0_g‘𝑅) → (𝐿‘(𝑋 · 𝐺)) = (𝐿‘((0_g‘𝑅) · 𝐺)))
22	4, 9	lduallmod 39262	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐷 ∈ LMod)
23		eqid 2731	. . . . . . . . . . . 12 ⊢ (Base‘𝐷) = (Base‘𝐷)
24	1, 4, 23, 9, 15	ldualelvbase 39236	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐺 ∈ (Base‘𝐷))
25		eqid 2731	. . . . . . . . . . . 12 ⊢ (Scalar‘𝐷) = (Scalar‘𝐷)
26		eqid 2731	. . . . . . . . . . . 12 ⊢ (0_g‘(Scalar‘𝐷)) = (0_g‘(Scalar‘𝐷))
27		eqid 2731	. . . . . . . . . . . 12 ⊢ (0_g‘𝐷) = (0_g‘𝐷)
28	23, 25, 5, 26, 27	lmod0vs 20828	. . . . . . . . . . 11 ⊢ ((𝐷 ∈ LMod ∧ 𝐺 ∈ (Base‘𝐷)) → ((0_g‘(Scalar‘𝐷)) · 𝐺) = (0_g‘𝐷))
29	22, 24, 28	syl2anc 584	. . . . . . . . . 10 ⊢ (𝜑 → ((0_g‘(Scalar‘𝐷)) · 𝐺) = (0_g‘𝐷))
30		eqid 2731	. . . . . . . . . . . 12 ⊢ (0_g‘𝑅) = (0_g‘𝑅)
31	2, 30, 4, 25, 26, 9	ldual0 39256	. . . . . . . . . . 11 ⊢ (𝜑 → (0_g‘(Scalar‘𝐷)) = (0_g‘𝑅))
32	31	oveq1d 7361	. . . . . . . . . 10 ⊢ (𝜑 → ((0_g‘(Scalar‘𝐷)) · 𝐺) = ((0_g‘𝑅) · 𝐺))
33	18, 2, 30, 4, 27, 9	ldual0v 39259	. . . . . . . . . 10 ⊢ (𝜑 → (0_g‘𝐷) = ((Base‘𝑈) × {(0_g‘𝑅)}))
34	29, 32, 33	3eqtr3d 2774	. . . . . . . . 9 ⊢ (𝜑 → ((0_g‘𝑅) · 𝐺) = ((Base‘𝑈) × {(0_g‘𝑅)}))
35	34	fveq2d 6826	. . . . . . . 8 ⊢ (𝜑 → (𝐿‘((0_g‘𝑅) · 𝐺)) = (𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})))
36		eqid 2731	. . . . . . . . 9 ⊢ ((Base‘𝑈) × {(0_g‘𝑅)}) = ((Base‘𝑈) × {(0_g‘𝑅)})
37	2, 30, 18, 1	lfl0f 39178	. . . . . . . . . 10 ⊢ (𝑈 ∈ LMod → ((Base‘𝑈) × {(0_g‘𝑅)}) ∈ 𝐹)
38		lclkrlem1.l	. . . . . . . . . . 11 ⊢ 𝐿 = (LKer‘𝑈)
39	2, 30, 18, 1, 38	lkr0f 39203	. . . . . . . . . 10 ⊢ ((𝑈 ∈ LMod ∧ ((Base‘𝑈) × {(0_g‘𝑅)}) ∈ 𝐹) → ((𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})) = (Base‘𝑈) ↔ ((Base‘𝑈) × {(0_g‘𝑅)}) = ((Base‘𝑈) × {(0_g‘𝑅)})))
40	9, 37, 39	syl2anc2 585	. . . . . . . . 9 ⊢ (𝜑 → ((𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})) = (Base‘𝑈) ↔ ((Base‘𝑈) × {(0_g‘𝑅)}) = ((Base‘𝑈) × {(0_g‘𝑅)})))
41	36, 40	mpbiri 258	. . . . . . . 8 ⊢ (𝜑 → (𝐿‘((Base‘𝑈) × {(0_g‘𝑅)})) = (Base‘𝑈))
42	35, 41	eqtrd 2766	. . . . . . 7 ⊢ (𝜑 → (𝐿‘((0_g‘𝑅) · 𝐺)) = (Base‘𝑈))
43	21, 42	sylan9eqr 2788	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → (𝐿‘(𝑋 · 𝐺)) = (Base‘𝑈))
44	43	fveq2d 6826	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘(𝐿‘(𝑋 · 𝐺))) = ( ⊥ ‘(Base‘𝑈)))
45	44	fveq2d 6826	. . . 4 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = ( ⊥ ‘( ⊥ ‘(Base‘𝑈))))
46	20, 45, 43	3eqtr4d 2776	. . 3 ⊢ ((𝜑 ∧ 𝑋 = (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺)))
47	14	simprd 495	. . . . 5 ⊢ (𝜑 → ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺))
48	47	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))) = (𝐿‘𝐺))
49	6, 7, 8	dvhlvec 41218	. . . . . . . 8 ⊢ (𝜑 → 𝑈 ∈ LVec)
50	49	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝑈 ∈ LVec)
51	15	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝐺 ∈ 𝐹)
52	10	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝑋 ∈ 𝐵)
53		simpr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → 𝑋 ≠ (0_g‘𝑅))
54	2, 3, 30, 1, 38, 4, 5, 50, 51, 52, 53	ldualkrsc 39276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → (𝐿‘(𝑋 · 𝐺)) = (𝐿‘𝐺))
55	54	fveq2d 6826	. . . . 5 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘(𝐿‘(𝑋 · 𝐺))) = ( ⊥ ‘(𝐿‘𝐺)))
56	55	fveq2d 6826	. . . 4 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = ( ⊥ ‘( ⊥ ‘(𝐿‘𝐺))))
57	48, 56, 54	3eqtr4d 2776	. . 3 ⊢ ((𝜑 ∧ 𝑋 ≠ (0_g‘𝑅)) → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺)))
58	46, 57	pm2.61dane 3015	. 2 ⊢ (𝜑 → ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺)))
59	12	lcfl1lem 41600	. 2 ⊢ ((𝑋 · 𝐺) ∈ 𝐶 ↔ ((𝑋 · 𝐺) ∈ 𝐹 ∧ ( ⊥ ‘( ⊥ ‘(𝐿‘(𝑋 · 𝐺)))) = (𝐿‘(𝑋 · 𝐺))))
60	16, 58, 59	sylanbrc 583	1 ⊢ (𝜑 → (𝑋 · 𝐺) ∈ 𝐶)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2111 ≠ wne 2928 {crab 3395 {csn 4573 × cxp 5612 ‘cfv 6481 (class class class)co 7346 Basecbs 17120 Scalarcsca 17164 ·_𝑠 cvsca 17165 0_gc0g 17343 LModclmod 20793 LVecclvec 21036 LFnlclfn 39166 LKerclk 39194 LDualcld 39232 HLchlt 39459 LHypclh 40093 DVecHcdvh 41187 ocHcoch 41456

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5215 ax-sep 5232 ax-nul 5242 ax-pow 5301 ax-pr 5368 ax-un 7668 ax-cnex 11062 ax-resscn 11063 ax-1cn 11064 ax-icn 11065 ax-addcl 11066 ax-addrcl 11067 ax-mulcl 11068 ax-mulrcl 11069 ax-mulcom 11070 ax-addass 11071 ax-mulass 11072 ax-distr 11073 ax-i2m1 11074 ax-1ne0 11075 ax-1rid 11076 ax-rnegex 11077 ax-rrecex 11078 ax-cnre 11079 ax-pre-lttri 11080 ax-pre-lttrn 11081 ax-pre-ltadd 11082 ax-pre-mulgt0 11083 ax-riotaBAD 39062

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3737 df-csb 3846 df-dif 3900 df-un 3902 df-in 3904 df-ss 3914 df-pss 3917 df-nul 4281 df-if 4473 df-pw 4549 df-sn 4574 df-pr 4576 df-tp 4578 df-op 4580 df-uni 4857 df-int 4896 df-iun 4941 df-iin 4942 df-br 5090 df-opab 5152 df-mpt 5171 df-tr 5197 df-id 5509 df-eprel 5514 df-po 5522 df-so 5523 df-fr 5567 df-we 5569 df-xp 5620 df-rel 5621 df-cnv 5622 df-co 5623 df-dm 5624 df-rn 5625 df-res 5626 df-ima 5627 df-pred 6248 df-ord 6309 df-on 6310 df-lim 6311 df-suc 6312 df-iota 6437 df-fun 6483 df-fn 6484 df-f 6485 df-f1 6486 df-fo 6487 df-f1o 6488 df-fv 6489 df-riota 7303 df-ov 7349 df-oprab 7350 df-mpo 7351 df-of 7610 df-om 7797 df-1st 7921 df-2nd 7922 df-tpos 8156 df-undef 8203 df-frecs 8211 df-wrecs 8242 df-recs 8291 df-rdg 8329 df-1o 8385 df-er 8622 df-map 8752 df-en 8870 df-dom 8871 df-sdom 8872 df-fin 8873 df-pnf 11148 df-mnf 11149 df-xr 11150 df-ltxr 11151 df-le 11152 df-sub 11346 df-neg 11347 df-nn 12126 df-2 12188 df-3 12189 df-4 12190 df-5 12191 df-6 12192 df-n0 12382 df-z 12469 df-uz 12733 df-fz 13408 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-sca 17177 df-vsca 17178 df-0g 17345 df-proset 18200 df-poset 18219 df-plt 18234 df-lub 18250 df-glb 18251 df-join 18252 df-meet 18253 df-p0 18329 df-p1 18330 df-lat 18338 df-clat 18405 df-mgm 18548 df-sgrp 18627 df-mnd 18643 df-submnd 18692 df-grp 18849 df-minusg 18850 df-sbg 18851 df-subg 19036 df-cntz 19229 df-lsm 19548 df-cmn 19694 df-abl 19695 df-mgp 20059 df-rng 20071 df-ur 20100 df-ring 20153 df-oppr 20255 df-dvdsr 20275 df-unit 20276 df-invr 20306 df-dvr 20319 df-nzr 20428 df-rlreg 20609 df-domn 20610 df-drng 20646 df-lmod 20795 df-lss 20865 df-lsp 20905 df-lvec 21037 df-lfl 39167 df-lkr 39195 df-ldual 39233 df-oposet 39285 df-ol 39287 df-oml 39288 df-covers 39375 df-ats 39376 df-atl 39407 df-cvlat 39431 df-hlat 39460 df-llines 39607 df-lplanes 39608 df-lvols 39609 df-lines 39610 df-psubsp 39612 df-pmap 39613 df-padd 39905 df-lhyp 40097 df-laut 40098 df-ldil 40213 df-ltrn 40214 df-trl 40268 df-tendo 40864 df-edring 40866 df-disoa 41138 df-dvech 41188 df-dib 41248 df-dic 41282 df-dih 41338 df-doch 41457

This theorem is referenced by: lclkr 41642 lclkrslem1 41646

W3C validator