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

Theorem lmodvsghm 18689
Description: Scalar multiplication of the vector space by a fixed scalar is an automorphism of the additive group of vectors. (Contributed by Mario Carneiro, 5-May-2015.)
Hypotheses
Ref Expression
lmodvsghm.v 𝑉 = (Base‘𝑊)
lmodvsghm.f 𝐹 = (Scalar‘𝑊)
lmodvsghm.s · = ( ·𝑠𝑊)
lmodvsghm.k 𝐾 = (Base‘𝐹)
Assertion
Ref Expression
lmodvsghm ((𝑊 ∈ LMod ∧ 𝑅𝐾) → (𝑥𝑉 ↦ (𝑅 · 𝑥)) ∈ (𝑊 GrpHom 𝑊))
Distinct variable groups:   𝑥,𝐾   𝑥,𝑅   𝑥, ·   𝑥,𝑉   𝑥,𝑊
Allowed substitution hint:   𝐹(𝑥)

Proof of Theorem lmodvsghm
Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 lmodvsghm.v . 2 𝑉 = (Base‘𝑊)
2 eqid 2605 . 2 (+g𝑊) = (+g𝑊)
3 lmodgrp 18635 . . 3 (𝑊 ∈ LMod → 𝑊 ∈ Grp)
43adantr 479 . 2 ((𝑊 ∈ LMod ∧ 𝑅𝐾) → 𝑊 ∈ Grp)
5 lmodvsghm.f . . . . 5 𝐹 = (Scalar‘𝑊)
6 lmodvsghm.s . . . . 5 · = ( ·𝑠𝑊)
7 lmodvsghm.k . . . . 5 𝐾 = (Base‘𝐹)
81, 5, 6, 7lmodvscl 18645 . . . 4 ((𝑊 ∈ LMod ∧ 𝑅𝐾𝑥𝑉) → (𝑅 · 𝑥) ∈ 𝑉)
983expa 1256 . . 3 (((𝑊 ∈ LMod ∧ 𝑅𝐾) ∧ 𝑥𝑉) → (𝑅 · 𝑥) ∈ 𝑉)
10 eqid 2605 . . 3 (𝑥𝑉 ↦ (𝑅 · 𝑥)) = (𝑥𝑉 ↦ (𝑅 · 𝑥))
119, 10fmptd 6273 . 2 ((𝑊 ∈ LMod ∧ 𝑅𝐾) → (𝑥𝑉 ↦ (𝑅 · 𝑥)):𝑉𝑉)
121, 2, 5, 6, 7lmodvsdi 18651 . . . . 5 ((𝑊 ∈ LMod ∧ (𝑅𝐾𝑦𝑉𝑧𝑉)) → (𝑅 · (𝑦(+g𝑊)𝑧)) = ((𝑅 · 𝑦)(+g𝑊)(𝑅 · 𝑧)))
13123exp2 1276 . . . 4 (𝑊 ∈ LMod → (𝑅𝐾 → (𝑦𝑉 → (𝑧𝑉 → (𝑅 · (𝑦(+g𝑊)𝑧)) = ((𝑅 · 𝑦)(+g𝑊)(𝑅 · 𝑧))))))
1413imp43 618 . . 3 (((𝑊 ∈ LMod ∧ 𝑅𝐾) ∧ (𝑦𝑉𝑧𝑉)) → (𝑅 · (𝑦(+g𝑊)𝑧)) = ((𝑅 · 𝑦)(+g𝑊)(𝑅 · 𝑧)))
151, 2lmodvacl 18642 . . . . . 6 ((𝑊 ∈ LMod ∧ 𝑦𝑉𝑧𝑉) → (𝑦(+g𝑊)𝑧) ∈ 𝑉)
16153expb 1257 . . . . 5 ((𝑊 ∈ LMod ∧ (𝑦𝑉𝑧𝑉)) → (𝑦(+g𝑊)𝑧) ∈ 𝑉)
1716adantlr 746 . . . 4 (((𝑊 ∈ LMod ∧ 𝑅𝐾) ∧ (𝑦𝑉𝑧𝑉)) → (𝑦(+g𝑊)𝑧) ∈ 𝑉)
18 oveq2 6531 . . . . 5 (𝑥 = (𝑦(+g𝑊)𝑧) → (𝑅 · 𝑥) = (𝑅 · (𝑦(+g𝑊)𝑧)))
19 ovex 6551 . . . . 5 (𝑅 · (𝑦(+g𝑊)𝑧)) ∈ V
2018, 10, 19fvmpt 6172 . . . 4 ((𝑦(+g𝑊)𝑧) ∈ 𝑉 → ((𝑥𝑉 ↦ (𝑅 · 𝑥))‘(𝑦(+g𝑊)𝑧)) = (𝑅 · (𝑦(+g𝑊)𝑧)))
2117, 20syl 17 . . 3 (((𝑊 ∈ LMod ∧ 𝑅𝐾) ∧ (𝑦𝑉𝑧𝑉)) → ((𝑥𝑉 ↦ (𝑅 · 𝑥))‘(𝑦(+g𝑊)𝑧)) = (𝑅 · (𝑦(+g𝑊)𝑧)))
22 oveq2 6531 . . . . . 6 (𝑥 = 𝑦 → (𝑅 · 𝑥) = (𝑅 · 𝑦))
23 ovex 6551 . . . . . 6 (𝑅 · 𝑦) ∈ V
2422, 10, 23fvmpt 6172 . . . . 5 (𝑦𝑉 → ((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑦) = (𝑅 · 𝑦))
25 oveq2 6531 . . . . . 6 (𝑥 = 𝑧 → (𝑅 · 𝑥) = (𝑅 · 𝑧))
26 ovex 6551 . . . . . 6 (𝑅 · 𝑧) ∈ V
2725, 10, 26fvmpt 6172 . . . . 5 (𝑧𝑉 → ((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑧) = (𝑅 · 𝑧))
2824, 27oveqan12d 6542 . . . 4 ((𝑦𝑉𝑧𝑉) → (((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑦)(+g𝑊)((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑧)) = ((𝑅 · 𝑦)(+g𝑊)(𝑅 · 𝑧)))
2928adantl 480 . . 3 (((𝑊 ∈ LMod ∧ 𝑅𝐾) ∧ (𝑦𝑉𝑧𝑉)) → (((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑦)(+g𝑊)((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑧)) = ((𝑅 · 𝑦)(+g𝑊)(𝑅 · 𝑧)))
3014, 21, 293eqtr4d 2649 . 2 (((𝑊 ∈ LMod ∧ 𝑅𝐾) ∧ (𝑦𝑉𝑧𝑉)) → ((𝑥𝑉 ↦ (𝑅 · 𝑥))‘(𝑦(+g𝑊)𝑧)) = (((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑦)(+g𝑊)((𝑥𝑉 ↦ (𝑅 · 𝑥))‘𝑧)))
311, 1, 2, 2, 4, 4, 11, 30isghmd 17434 1 ((𝑊 ∈ LMod ∧ 𝑅𝐾) → (𝑥𝑉 ↦ (𝑅 · 𝑥)) ∈ (𝑊 GrpHom 𝑊))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 382   = wceq 1474  wcel 1975  cmpt 4633  cfv 5786  (class class class)co 6523  Basecbs 15637  +gcplusg 15710  Scalarcsca 15713   ·𝑠 cvsca 15714  Grpcgrp 17187   GrpHom cghm 17422  LModclmod 18628
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-rep 4689  ax-sep 4699  ax-nul 4708  ax-pow 4760  ax-pr 4824  ax-un 6820
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-ral 2896  df-rex 2897  df-reu 2898  df-rab 2900  df-v 3170  df-sbc 3398  df-csb 3495  df-dif 3538  df-un 3540  df-in 3542  df-ss 3549  df-nul 3870  df-if 4032  df-pw 4105  df-sn 4121  df-pr 4123  df-op 4127  df-uni 4363  df-iun 4447  df-br 4574  df-opab 4634  df-mpt 4635  df-id 4939  df-xp 5030  df-rel 5031  df-cnv 5032  df-co 5033  df-dm 5034  df-rn 5035  df-res 5036  df-ima 5037  df-iota 5750  df-fun 5788  df-fn 5789  df-f 5790  df-f1 5791  df-fo 5792  df-f1o 5793  df-fv 5794  df-ov 6526  df-oprab 6527  df-mpt2 6528  df-mgm 17007  df-sgrp 17049  df-mnd 17060  df-grp 17190  df-ghm 17423  df-lmod 18630
This theorem is referenced by:  gsumvsmul  18692  lmhmvsca  18808
  Copyright terms: Public domain W3C validator