MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  lsmcl Structured version   Visualization version   GIF version

Theorem lsmcl 21150
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.
StepHypRef Expression
1 lmodabl 20976 . . . 4 (𝑊 ∈ LMod → 𝑊 ∈ Abel)
213ad2ant1 1146 . . 3 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → 𝑊 ∈ Abel)
3 lsmcl.s . . . . 5 𝑆 = (LSubSp‘𝑊)
43lsssubg 21024 . . . 4 ((𝑊 ∈ LMod ∧ 𝑇𝑆) → 𝑇 ∈ (SubGrp‘𝑊))
543adant3 1145 . . 3 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → 𝑇 ∈ (SubGrp‘𝑊))
63lsssubg 21024 . . . 4 ((𝑊 ∈ LMod ∧ 𝑈𝑆) → 𝑈 ∈ (SubGrp‘𝑊))
763adant2 1144 . . 3 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → 𝑈 ∈ (SubGrp‘𝑊))
8 lsmcl.p . . . 4 = (LSSum‘𝑊)
98lsmsubg2 19899 . . 3 ((𝑊 ∈ Abel ∧ 𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) → (𝑇 𝑈) ∈ (SubGrp‘𝑊))
102, 5, 7, 9syl3anc 1390 . 2 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇 𝑈) ∈ (SubGrp‘𝑊))
11 eqid 2762 . . . . . . . 8 (+g𝑊) = (+g𝑊)
1211, 8lsmelval 19689 . . . . . . 7 ((𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) → (𝑢 ∈ (𝑇 𝑈) ↔ ∃𝑑𝑇𝑒𝑈 𝑢 = (𝑑(+g𝑊)𝑒)))
135, 7, 12syl2anc 593 . . . . . 6 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑢 ∈ (𝑇 𝑈) ↔ ∃𝑑𝑇𝑒𝑈 𝑢 = (𝑑(+g𝑊)𝑒)))
1413adantr 484 . . . . 5 (((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) → (𝑢 ∈ (𝑇 𝑈) ↔ ∃𝑑𝑇𝑒𝑈 𝑢 = (𝑑(+g𝑊)𝑒)))
15 simpll1 1226 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑊 ∈ LMod)
16 simplr 778 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑎 ∈ (Base‘(Scalar‘𝑊)))
17 simpll2 1227 . . . . . . . . . 10 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑇𝑆)
18 simprl 780 . . . . . . . . . 10 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑑𝑇)
19 eqid 2762 . . . . . . . . . . 11 (Base‘𝑊) = (Base‘𝑊)
2019, 3lssel 21004 . . . . . . . . . 10 ((𝑇𝑆𝑑𝑇) → 𝑑 ∈ (Base‘𝑊))
2117, 18, 20syl2anc 593 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑑 ∈ (Base‘𝑊))
22 simpll3 1228 . . . . . . . . . 10 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑈𝑆)
23 simprr 782 . . . . . . . . . 10 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑒𝑈)
2419, 3lssel 21004 . . . . . . . . . 10 ((𝑈𝑆𝑒𝑈) → 𝑒 ∈ (Base‘𝑊))
2522, 23, 24syl2anc 593 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑒 ∈ (Base‘𝑊))
26 eqid 2762 . . . . . . . . . 10 (Scalar‘𝑊) = (Scalar‘𝑊)
27 eqid 2762 . . . . . . . . . 10 ( ·𝑠𝑊) = ( ·𝑠𝑊)
28 eqid 2762 . . . . . . . . . 10 (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
2919, 11, 26, 27, 28lmodvsdi 20952 . . . . . . . . 9 ((𝑊 ∈ LMod ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑑 ∈ (Base‘𝑊) ∧ 𝑒 ∈ (Base‘𝑊))) → (𝑎( ·𝑠𝑊)(𝑑(+g𝑊)𝑒)) = ((𝑎( ·𝑠𝑊)𝑑)(+g𝑊)(𝑎( ·𝑠𝑊)𝑒)))
3015, 16, 21, 25, 29syl13anc 1391 . . . . . . . 8 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → (𝑎( ·𝑠𝑊)(𝑑(+g𝑊)𝑒)) = ((𝑎( ·𝑠𝑊)𝑑)(+g𝑊)(𝑎( ·𝑠𝑊)𝑒)))
3115, 17, 4syl2anc 593 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑇 ∈ (SubGrp‘𝑊))
3215, 22, 6syl2anc 593 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → 𝑈 ∈ (SubGrp‘𝑊))
3326, 27, 28, 3lssvscl 21022 . . . . . . . . . 10 (((𝑊 ∈ LMod ∧ 𝑇𝑆) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑑𝑇)) → (𝑎( ·𝑠𝑊)𝑑) ∈ 𝑇)
3415, 17, 16, 18, 33syl22anc 849 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → (𝑎( ·𝑠𝑊)𝑑) ∈ 𝑇)
3526, 27, 28, 3lssvscl 21022 . . . . . . . . . 10 (((𝑊 ∈ LMod ∧ 𝑈𝑆) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑒𝑈)) → (𝑎( ·𝑠𝑊)𝑒) ∈ 𝑈)
3615, 22, 16, 23, 35syl22anc 849 . . . . . . . . 9 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → (𝑎( ·𝑠𝑊)𝑒) ∈ 𝑈)
3711, 8lsmelvali 19690 . . . . . . . . 9 (((𝑇 ∈ (SubGrp‘𝑊) ∧ 𝑈 ∈ (SubGrp‘𝑊)) ∧ ((𝑎( ·𝑠𝑊)𝑑) ∈ 𝑇 ∧ (𝑎( ·𝑠𝑊)𝑒) ∈ 𝑈)) → ((𝑎( ·𝑠𝑊)𝑑)(+g𝑊)(𝑎( ·𝑠𝑊)𝑒)) ∈ (𝑇 𝑈))
3831, 32, 34, 36, 37syl22anc 849 . . . . . . . 8 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → ((𝑎( ·𝑠𝑊)𝑑)(+g𝑊)(𝑎( ·𝑠𝑊)𝑒)) ∈ (𝑇 𝑈))
3930, 38eqeltrd 2862 . . . . . . 7 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → (𝑎( ·𝑠𝑊)(𝑑(+g𝑊)𝑒)) ∈ (𝑇 𝑈))
40 oveq2 7404 . . . . . . . 8 (𝑢 = (𝑑(+g𝑊)𝑒) → (𝑎( ·𝑠𝑊)𝑢) = (𝑎( ·𝑠𝑊)(𝑑(+g𝑊)𝑒)))
4140eleq1d 2847 . . . . . . 7 (𝑢 = (𝑑(+g𝑊)𝑒) → ((𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈) ↔ (𝑎( ·𝑠𝑊)(𝑑(+g𝑊)𝑒)) ∈ (𝑇 𝑈)))
4239, 41syl5ibrcom 249 . . . . . 6 ((((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) ∧ (𝑑𝑇𝑒𝑈)) → (𝑢 = (𝑑(+g𝑊)𝑒) → (𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈)))
4342rexlimdvva 3219 . . . . 5 (((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) → (∃𝑑𝑇𝑒𝑈 𝑢 = (𝑑(+g𝑊)𝑒) → (𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈)))
4414, 43sylbid 242 . . . 4 (((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ 𝑎 ∈ (Base‘(Scalar‘𝑊))) → (𝑢 ∈ (𝑇 𝑈) → (𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈)))
4544impr 458 . . 3 (((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) ∧ (𝑎 ∈ (Base‘(Scalar‘𝑊)) ∧ 𝑢 ∈ (𝑇 𝑈))) → (𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈))
4645ralrimivva 3205 . 2 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → ∀𝑎 ∈ (Base‘(Scalar‘𝑊))∀𝑢 ∈ (𝑇 𝑈)(𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈))
4726, 28, 19, 27, 3islss4 21029 . . 3 (𝑊 ∈ LMod → ((𝑇 𝑈) ∈ 𝑆 ↔ ((𝑇 𝑈) ∈ (SubGrp‘𝑊) ∧ ∀𝑎 ∈ (Base‘(Scalar‘𝑊))∀𝑢 ∈ (𝑇 𝑈)(𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈))))
48473ad2ant1 1146 . 2 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → ((𝑇 𝑈) ∈ 𝑆 ↔ ((𝑇 𝑈) ∈ (SubGrp‘𝑊) ∧ ∀𝑎 ∈ (Base‘(Scalar‘𝑊))∀𝑢 ∈ (𝑇 𝑈)(𝑎( ·𝑠𝑊)𝑢) ∈ (𝑇 𝑈))))
4910, 46, 48mpbir2and 723 1 ((𝑊 ∈ LMod ∧ 𝑇𝑆𝑈𝑆) → (𝑇 𝑈) ∈ 𝑆)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 399  w3a 1098   = wceq 1560  wcel 2142  wral 3076  wrex 3086  cfv 6521  (class class class)co 7396  Basecbs 17245  +gcplusg 17286  Scalarcsca 17289   ·𝑠 cvsca 17290  SubGrpcsubg 19162  LSSumclsm 19674  Abelcabl 19821  LModclmod 20927  LSubSpclss 20998
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
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-op 4589  df-uni 4866  df-iun 4951  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-om 7847  df-1st 7970  df-2nd 7971  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8381  df-er 8678  df-en 8928  df-dom 8929  df-sdom 8930  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-sets 17200  df-slot 17218  df-ndx 17230  df-base 17246  df-ress 17267  df-plusg 17299  df-0g 17470  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-ur 20232  df-ring 20285  df-lmod 20929  df-lss 20999
This theorem is referenced by:  lsmelval2  21152  lsmsp  21153  lspprabs  21162  pj1lmhm  21167  lspabs3  21191  pjth  25501  lshpnelb  39608  lsmsat  39632  lsmcv2  39653  lcvat  39654  lcvexchlem4  39661  lcvexchlem5  39662  lcv1  39665  lsatexch  39667  lsatcv0eq  39671  lsatcvatlem  39673  lsatcvat2  39675  lsatcvat3  39676  lkrlsp  39726  dia2dimlem7  41694  dihjustlem  41840  dihord1  41842  dihlsscpre  41858  dihjatcclem2  42043  dihjat1lem  42052  dochexmidlem5  42088  dochexmidlem6  42089  dochexmidlem8  42091  lcfrlem23  42189  mapdlsmcl  42287  mapdlsm  42288  mapdpglem1  42296  mapdpglem2a  42298  mapdindp0  42343  mapdheq4lem  42355  mapdh6lem1N  42357  mapdh6lem2N  42358  hdmap1l6lem1  42431  hdmap1l6lem2  42432  hdmaprnlem3eN  42482  kercvrlsm  43660
  Copyright terms: Public domain W3C validator