Theorem lsmcl 21033

Description: The sum of two subspaces is a subspace. (Contributed by NM, 4-Feb-2014.) (Revised by Mario Carneiro, 19-Apr-2016.)

Hypotheses

Ref	Expression
lsmcl.s	⊢ 𝑆 = (LSubSp‘𝑊)
lsmcl.p	⊢ ⊕ = (LSSum‘𝑊)

Assertion

Ref	Expression
lsmcl	⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → (𝑇 ⊕ 𝑈) ∈ 𝑆)

Proof of Theorem lsmcl

Dummy variables 𝑎 𝑑 𝑒 𝑢 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		lmodabl 20858	. . . 4 ⊢ (𝑊 ∈ LMod → 𝑊 ∈ Abel)
2	1	3ad2ant1 1133	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → 𝑊 ∈ Abel)
3		lsmcl.s	. . . . 5 ⊢ 𝑆 = (LSubSp‘𝑊)
4	3	lsssubg 20906	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆) → 𝑇 ∈ (SubGrp‘𝑊))
5	4	3adant3 1132	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → 𝑇 ∈ (SubGrp‘𝑊))
6	3	lsssubg 20906	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ 𝑈 ∈ 𝑆) → 𝑈 ∈ (SubGrp‘𝑊))
7	6	3adant2 1131	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → 𝑈 ∈ (SubGrp‘𝑊))
8		lsmcl.p	. . . 4 ⊢ ⊕ = (LSSum‘𝑊)
9	8	lsmsubg2 19786	. . 3 ⊢ ((𝑊 ∈ Abel ∧ 𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) → (𝑇 ⊕ 𝑈) ∈ (SubGrp‘𝑊))
10	2, 5, 7, 9	syl3anc 1373	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → (𝑇 ⊕ 𝑈) ∈ (SubGrp‘𝑊))
11		eqid 2734	. . . . . . . 8 ⊢ (+g‘𝑊) = (+g‘𝑊)
12	11, 8	lsmelval 19576	. . . . . . 7 ⊢ ((𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) → (𝑢 ∈ (𝑇 ⊕ 𝑈) ↔ ∃𝑑 ∈ 𝑇 ∃𝑒 ∈ 𝑈 𝑢 = (𝑑(+g‘𝑊)𝑒)))
13	5, 7, 12	syl2anc 584	. . . . . 6 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → (𝑢 ∈ (𝑇 ⊕ 𝑈) ↔ ∃𝑑 ∈ 𝑇 ∃𝑒 ∈ 𝑈 𝑢 = (𝑑(+g‘𝑊)𝑒)))
14	13	adantr 480	. . . . 5 ⊢ (((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) → (𝑢 ∈ (𝑇 ⊕ 𝑈) ↔ ∃𝑑 ∈ 𝑇 ∃𝑒 ∈ 𝑈 𝑢 = (𝑑(+g‘𝑊)𝑒)))
15		simpll1 1213	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑊 ∈ LMod)
16		simplr 768	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑎 ∈ (Base‘(Scalar‘𝑊)))
17		simpll2 1214	. . . . . . . . . 10 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑇 ∈ 𝑆)
18		simprl 770	. . . . . . . . . 10 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑑 ∈ 𝑇)
19		eqid 2734	. . . . . . . . . . 11 ⊢ (Base‘𝑊) = (Base‘𝑊)
20	19, 3	lssel 20886	. . . . . . . . . 10 ⊢ ((𝑇 ∈ 𝑆 ∧ 𝑑 ∈ 𝑇) → 𝑑 ∈ (Base‘𝑊))
21	17, 18, 20	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑑 ∈ (Base‘𝑊))
22		simpll3 1215	. . . . . . . . . 10 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑈 ∈ 𝑆)
23		simprr 772	. . . . . . . . . 10 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑒 ∈ 𝑈)
24	19, 3	lssel 20886	. . . . . . . . . 10 ⊢ ((𝑈 ∈ 𝑆 ∧ 𝑒 ∈ 𝑈) → 𝑒 ∈ (Base‘𝑊))
25	22, 23, 24	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑒 ∈ (Base‘𝑊))
26		eqid 2734	. . . . . . . . . 10 ⊢ (Scalar‘𝑊) = (Scalar‘𝑊)
27		eqid 2734	. . . . . . . . . 10 ⊢ ( ·𝑠 ‘𝑊) = ( ·𝑠 ‘𝑊)
28		eqid 2734	. . . . . . . . . 10 ⊢ (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
29	19, 11, 26, 27, 28	lmodvsdi 20834	. . . . . . . . 9 ⊢ ((𝑊 ∈ LMod ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑑 ∈ (Base‘𝑊) ∧ 𝑒 ∈ (Base‘𝑊))) → (𝑎( ·𝑠 ‘𝑊)(𝑑(+g‘𝑊)𝑒)) = ((𝑎( ·𝑠 ‘𝑊)𝑑)(+g‘𝑊)(𝑎( ·𝑠 ‘𝑊)𝑒)))
30	15, 16, 21, 25, 29	syl13anc 1374	. . . . . . . 8 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → (𝑎( ·𝑠 ‘𝑊)(𝑑(+g‘𝑊)𝑒)) = ((𝑎( ·𝑠 ‘𝑊)𝑑)(+g‘𝑊)(𝑎( ·𝑠 ‘𝑊)𝑒)))
31	15, 17, 4	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑇 ∈ (SubGrp‘𝑊))
32	15, 22, 6	syl2anc 584	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → 𝑈 ∈ (SubGrp‘𝑊))
33	26, 27, 28, 3	lssvscl 20904	. . . . . . . . . 10 ⊢ (((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑑 ∈ 𝑇)) → (𝑎( ·𝑠 ‘𝑊)𝑑) ∈ 𝑇)
34	15, 17, 16, 18, 33	syl22anc 838	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → (𝑎( ·𝑠 ‘𝑊)𝑑) ∈ 𝑇)
35	26, 27, 28, 3	lssvscl 20904	. . . . . . . . . 10 ⊢ (((𝑊 ∈ LMod ∧ 𝑈 ∈ 𝑆) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑒 ∈ 𝑈)) → (𝑎( ·𝑠 ‘𝑊)𝑒) ∈ 𝑈)
36	15, 22, 16, 23, 35	syl22anc 838	. . . . . . . . 9 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → (𝑎( ·𝑠 ‘𝑊)𝑒) ∈ 𝑈)
37	11, 8	lsmelvali 19577	. . . . . . . . 9 ⊢ (((𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) ∧ ((𝑎( ·𝑠 ‘𝑊)𝑑) ∈ 𝑇 ∧ (𝑎( ·𝑠 ‘𝑊)𝑒) ∈ 𝑈)) → ((𝑎( ·𝑠 ‘𝑊)𝑑)(+g‘𝑊)(𝑎( ·𝑠 ‘𝑊)𝑒)) ∈ (𝑇 ⊕ 𝑈))
38	31, 32, 34, 36, 37	syl22anc 838	. . . . . . . 8 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → ((𝑎( ·𝑠 ‘𝑊)𝑑)(+g‘𝑊)(𝑎( ·𝑠 ‘𝑊)𝑒)) ∈ (𝑇 ⊕ 𝑈))
39	30, 38	eqeltrd 2834	. . . . . . 7 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → (𝑎( ·𝑠 ‘𝑊)(𝑑(+g‘𝑊)𝑒)) ∈ (𝑇 ⊕ 𝑈))
40		oveq2 7364	. . . . . . . 8 ⊢ (𝑢 = (𝑑(+g‘𝑊)𝑒) → (𝑎( ·𝑠 ‘𝑊)𝑢) = (𝑎( ·𝑠 ‘𝑊)(𝑑(+g‘𝑊)𝑒)))
41	40	eleq1d 2819	. . . . . . 7 ⊢ (𝑢 = (𝑑(+g‘𝑊)𝑒) → ((𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈) ↔ (𝑎( ·𝑠 ‘𝑊)(𝑑(+g‘𝑊)𝑒)) ∈ (𝑇 ⊕ 𝑈)))
42	39, 41	syl5ibrcom 247	. . . . . 6 ⊢ ((((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑 ∈ 𝑇 ∧ 𝑒 ∈ 𝑈)) → (𝑢 = (𝑑(+g‘𝑊)𝑒) → (𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈)))
43	42	rexlimdvva 3191	. . . . 5 ⊢ (((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) → (∃𝑑 ∈ 𝑇 ∃𝑒 ∈ 𝑈 𝑢 = (𝑑(+g‘𝑊)𝑒) → (𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈)))
44	14, 43	sylbid 240	. . . 4 ⊢ (((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) → (𝑢 ∈ (𝑇 ⊕ 𝑈) → (𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈)))
45	44	impr 454	. . 3 ⊢ (((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑢 ∈ (𝑇 ⊕ 𝑈))) → (𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈))
46	45	ralrimivva 3177	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → ∀𝑎 ∈ (Base‘(Scalar‘𝑊))∀𝑢 ∈ (𝑇 ⊕ 𝑈)(𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈))
47	26, 28, 19, 27, 3	islss4 20911	. . 3 ⊢ (𝑊 ∈ LMod → ((𝑇 ⊕ 𝑈) ∈ 𝑆 ↔ ((𝑇 ⊕ 𝑈) ∈ (SubGrp‘𝑊) ∧ ∀𝑎 ∈ (Base‘(Scalar‘𝑊))∀𝑢 ∈ (𝑇 ⊕ 𝑈)(𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈))))
48	47	3ad2ant1 1133	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → ((𝑇 ⊕ 𝑈) ∈ 𝑆 ↔ ((𝑇 ⊕ 𝑈) ∈ (SubGrp‘𝑊) ∧ ∀𝑎 ∈ (Base‘(Scalar‘𝑊))∀𝑢 ∈ (𝑇 ⊕ 𝑈)(𝑎( ·𝑠 ‘𝑊)𝑢) ∈ (𝑇 ⊕ 𝑈))))
49	10, 46, 48	mpbir2and 713	1 ⊢ ((𝑊 ∈ LMod ∧ 𝑇 ∈ 𝑆 ∧ 𝑈 ∈ 𝑆) → (𝑇 ⊕ 𝑈) ∈ 𝑆)

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1541   ∈ wcel 2113  ∀wral 3049  ∃wrex 3058  ‘cfv 6490  (class class class)co 7356  Basecbs 17134  +_gcplusg 17175  Scalarcsca 17178   ·_𝑠 cvsca 17179  SubGrpcsubg 19048  LSSumclsm 19561  Abelcabl 19708  LModclmod 20809  LSubSpclss 20880

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 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101

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 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-er 8633  df-en 8882  df-dom 8883  df-sdom 8884  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-nn 12144  df-2 12206  df-sets 17089  df-slot 17107  df-ndx 17119  df-base 17135  df-ress 17156  df-plusg 17188  df-0g 17359  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-submnd 18707  df-grp 18864  df-minusg 18865  df-sbg 18866  df-subg 19051  df-cntz 19244  df-lsm 19563  df-cmn 19709  df-abl 19710  df-mgp 20074  df-ur 20115  df-ring 20168  df-lmod 20811  df-lss 20881

This theorem is referenced by:  lsmelval2  21035  lsmsp  21036  lspprabs  21045  pj1lmhm  21050  lspabs3  21074  pjth  25393  lshpnelb  39183  lsmsat  39207  lsmcv2  39228  lcvat  39229  lcvexchlem4  39236  lcvexchlem5  39237  lcv1  39240  lsatexch  39242  lsatcv0eq  39246  lsatcvatlem  39248  lsatcvat2  39250  lsatcvat3  39251  lkrlsp  39301  dia2dimlem7  41269  dihjustlem  41415  dihord1  41417  dihlsscpre  41433  dihjatcclem2  41618  dihjat1lem  41627  dochexmidlem5  41663  dochexmidlem6  41664  dochexmidlem8  41666  lcfrlem23  41764  mapdlsmcl  41862  mapdlsm  41863  mapdpglem1  41871  mapdpglem2a  41873  mapdindp0  41918  mapdheq4lem  41930  mapdh6lem1N  41932  mapdh6lem2N  41933  hdmap1l6lem1  42006  hdmap1l6lem2  42007  hdmaprnlem3eN  42057  kercvrlsm  43267