Theorem lmodgrp 14131

Description: A left module is a group. (Contributed by NM, 8-Dec-2013.) (Revised by Mario Carneiro, 25-Jun-2014.)

Assertion

Ref	Expression
lmodgrp	⊢ (𝑊 ∈ LMod → 𝑊 ∈ Grp)

Proof of Theorem lmodgrp

Dummy variables 𝑟 𝑞 𝑤 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2206	. . 3 ⊢ (Base‘𝑊) = (Base‘𝑊)
2		eqid 2206	. . 3 ⊢ (+g‘𝑊) = (+g‘𝑊)
3		eqid 2206	. . 3 ⊢ ( ·𝑠 ‘𝑊) = ( ·𝑠 ‘𝑊)
4		eqid 2206	. . 3 ⊢ (Scalar‘𝑊) = (Scalar‘𝑊)
5		eqid 2206	. . 3 ⊢ (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
6		eqid 2206	. . 3 ⊢ (+g‘(Scalar‘𝑊)) = (+g‘(Scalar‘𝑊))
7		eqid 2206	. . 3 ⊢ (.r‘(Scalar‘𝑊)) = (.r‘(Scalar‘𝑊))
8		eqid 2206	. . 3 ⊢ (1r‘(Scalar‘𝑊)) = (1r‘(Scalar‘𝑊))
9	1, 2, 3, 4, 5, 6, 7, 8	islmod 14128	. 2 ⊢ (𝑊 ∈ LMod ↔ (𝑊 ∈ Grp ∧ (Scalar‘𝑊) ∈ Ring ∧ ∀𝑞 ∈ (Base‘(Scalar‘𝑊))∀𝑟 ∈ (Base‘(Scalar‘𝑊))∀𝑥 ∈ (Base‘𝑊)∀𝑤 ∈ (Base‘𝑊)(((𝑟( ·𝑠 ‘𝑊)𝑤) ∈ (Base‘𝑊) ∧ (𝑟( ·𝑠 ‘𝑊)(𝑤(+g‘𝑊)𝑥)) = ((𝑟( ·𝑠 ‘𝑊)𝑤)(+g‘𝑊)(𝑟( ·𝑠 ‘𝑊)𝑥)) ∧ ((𝑞(+g‘(Scalar‘𝑊))𝑟)( ·𝑠 ‘𝑊)𝑤) = ((𝑞( ·𝑠 ‘𝑊)𝑤)(+g‘𝑊)(𝑟( ·𝑠 ‘𝑊)𝑤))) ∧ (((𝑞(.r‘(Scalar‘𝑊))𝑟)( ·𝑠 ‘𝑊)𝑤) = (𝑞( ·𝑠 ‘𝑊)(𝑟( ·𝑠 ‘𝑊)𝑤)) ∧ ((1r‘(Scalar‘𝑊))( ·𝑠 ‘𝑊)𝑤) = 𝑤))))
10	9	simp1bi 1015	1 ⊢ (𝑊 ∈ LMod → 𝑊 ∈ Grp)

Syntax hints:   → wi 4   ∧ wa 104   ∧ w3a 981   = wceq 1373   ∈ wcel 2177  ∀wral 2485  ‘cfv 5280  (class class class)co 5957  Basecbs 12907  +_gcplusg 12984  ._rcmulr 12985  Scalarcsca 12987   ·_𝑠 cvsca 12988  Grpcgrp 13407  1_rcur 13796  Ringcrg 13833  LModclmod 14124

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2179  ax-14 2180  ax-ext 2188  ax-sep 4170  ax-pow 4226  ax-pr 4261  ax-un 4488  ax-cnex 8036  ax-resscn 8037  ax-1re 8039  ax-addrcl 8042

This theorem depends on definitions:  df-bi 117  df-3an 983  df-tru 1376  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ral 2490  df-rex 2491  df-rab 2494  df-v 2775  df-sbc 3003  df-un 3174  df-in 3176  df-ss 3183  df-pw 3623  df-sn 3644  df-pr 3645  df-op 3647  df-uni 3857  df-int 3892  df-br 4052  df-opab 4114  df-mpt 4115  df-id 4348  df-xp 4689  df-rel 4690  df-cnv 4691  df-co 4692  df-dm 4693  df-rn 4694  df-res 4695  df-iota 5241  df-fun 5282  df-fn 5283  df-fv 5288  df-ov 5960  df-inn 9057  df-2 9115  df-3 9116  df-4 9117  df-5 9118  df-6 9119  df-ndx 12910  df-slot 12911  df-base 12913  df-plusg 12997  df-mulr 12998  df-sca 13000  df-vsca 13001  df-lmod 14126

This theorem is referenced by:  lmodgrpd  14134  lmodbn0  14135  lmodvacl  14139  lmodass  14140  lmodlcan  14141  lmod0vcl  14154  lmod0vlid  14155  lmod0vrid  14156  lmod0vid  14157  lmodvsmmulgdi  14160  lmodfopnelem1  14161  lmodfopne  14163  lmodvnegcl  14165  lmodvnegid  14166  lmodvsubcl  14169  lmodcom  14170  lmodabl  14171  lmodvpncan  14177  lmodvnpcan  14178  lmodsubeq0  14183  lmodsubid  14184  lmodprop2d  14185  lss1  14199  lsssubg  14214  islss3  14216  lspsnneg  14257  lspsnsub  14258  lmodindp1  14265