Theorem lmodvsass 18888

Description: Associative law for scalar product. (ax-hvmulass 27864 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 22-Sep-2015.)

Hypotheses

Ref	Expression
lmodvsass.v	⊢ 𝑉 = (Base‘𝑊)
lmodvsass.f	⊢ 𝐹 = (Scalar‘𝑊)
lmodvsass.s	⊢ · = ( ·𝑠 ‘𝑊)
lmodvsass.k	⊢ 𝐾 = (Base‘𝐹)
lmodvsass.t	⊢ × = (.r‘𝐹)

Assertion

Ref	Expression
lmodvsass	⊢ ((𝑊 ∈ LMod ∧ (𝑄 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉)) → ((𝑄 × 𝑅) · 𝑋) = (𝑄 · (𝑅 · 𝑋)))

Proof of Theorem lmodvsass

Step	Hyp	Ref	Expression
1		lmodvsass.v	. . . . . . 7 ⊢ 𝑉 = (Base‘𝑊)
2		eqid 2622	. . . . . . 7 ⊢ (+g‘𝑊) = (+g‘𝑊)
3		lmodvsass.s	. . . . . . 7 ⊢ · = ( ·𝑠 ‘𝑊)
4		lmodvsass.f	. . . . . . 7 ⊢ 𝐹 = (Scalar‘𝑊)
5		lmodvsass.k	. . . . . . 7 ⊢ 𝐾 = (Base‘𝐹)
6		eqid 2622	. . . . . . 7 ⊢ (+g‘𝐹) = (+g‘𝐹)
7		lmodvsass.t	. . . . . . 7 ⊢ × = (.r‘𝐹)
8		eqid 2622	. . . . . . 7 ⊢ (1r‘𝐹) = (1r‘𝐹)
9	1, 2, 3, 4, 5, 6, 7, 8	lmodlema 18868	. . . . . 6 ⊢ ((𝑊 ∈ LMod ∧ (𝑄 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾) ∧ (𝑋 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉)) → (((𝑅 · 𝑋) ∈ 𝑉 ∧ (𝑅 · (𝑋(+g‘𝑊)𝑋)) = ((𝑅 · 𝑋)(+g‘𝑊)(𝑅 · 𝑋)) ∧ ((𝑄(+g‘𝐹)𝑅) · 𝑋) = ((𝑄 · 𝑋)(+g‘𝑊)(𝑅 · 𝑋))) ∧ (((𝑄 × 𝑅) · 𝑋) = (𝑄 · (𝑅 · 𝑋)) ∧ ((1r‘𝐹) · 𝑋) = 𝑋)))
10	9	simprld 795	. . . . 5 ⊢ ((𝑊 ∈ LMod ∧ (𝑄 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾) ∧ (𝑋 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉)) → ((𝑄 × 𝑅) · 𝑋) = (𝑄 · (𝑅 · 𝑋)))
11	10	3expa 1265	. . . 4 ⊢ (((𝑊 ∈ LMod ∧ (𝑄 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾)) ∧ (𝑋 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉)) → ((𝑄 × 𝑅) · 𝑋) = (𝑄 · (𝑅 · 𝑋)))
12	11	anabsan2 863	. . 3 ⊢ (((𝑊 ∈ LMod ∧ (𝑄 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾)) ∧ 𝑋 ∈ 𝑉) → ((𝑄 × 𝑅) · 𝑋) = (𝑄 · (𝑅 · 𝑋)))
13	12	exp42 639	. 2 ⊢ (𝑊 ∈ LMod → (𝑄 ∈ 𝐾 → (𝑅 ∈ 𝐾 → (𝑋 ∈ 𝑉 → ((𝑄 × 𝑅) · 𝑋) = (𝑄 · (𝑅 · 𝑋))))))
14	13	3imp2 1282	1 ⊢ ((𝑊 ∈ LMod ∧ (𝑄 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉)) → ((𝑄 × 𝑅) · 𝑋) = (𝑄 · (𝑅 · 𝑋)))

Syntax hints:   → wi 4   ∧ wa 384   ∧ w3a 1037   = wceq 1483   ∈ wcel 1990  ‘cfv 5888  (class class class)co 6650  Basecbs 15857  +_gcplusg 15941  ._rcmulr 15942  Scalarcsca 15944   ·_𝑠 cvsca 15945  1_rcur 18501  LModclmod 18863

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-nul 4789

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-iota 5851  df-fv 5896  df-ov 6653  df-lmod 18865

This theorem is referenced by:  lmodvs0  18897  lmodvsneg  18907  lmodsubvs  18919  lmodsubdi  18920  lmodsubdir  18921  islss3  18959  lss1d  18963  prdslmodd  18969  lmodvsinv  19036  lmhmvsca  19045  lvecvs0or  19108  lssvs0or  19110  lvecinv  19113  lspsnvs  19114  lspfixed  19128  lspsolvlem  19142  lspsolv  19143  assa2ass  19322  asclrhm  19342  assamulgscmlem2  19349  mplmon2mul  19501  frlmup1  20137  smatvscl  20330  matinv  20483  clmvsass  22889  cvsi  22930  lshpkrlem4  34400  lcdvsass  36896  baerlem3lem1  36996  hgmapmul  37187  mendlmod  37763  lincscm  42219  ldepsprlem  42261  lincresunit3lem3  42263  lincresunit3lem1  42268