Section ModuleSpace1.
Context {K : Ring} {V : ModuleSpace K}.
Definition scal : K -> V -> V := ModuleSpace.scal _ _ (ModuleSpace.class K V).

Lemma sum_n_scal_l :
forall (a : K) (u : nat -> V) (n : nat),
sum_n (fun k => scal a (u k)) n = scal a (sum_n u n).