∀ {α : Type u_1} {M : Type u_2} {N : Type u_3} {R : Type u_4} {R₂ : Type u_5} (S : Type u_6) [inst : Semiring R]
  [inst_1 : Semiring R₂] [inst_2 : Semiring S] [inst_3 : AddCommMonoid M] [inst_4 : Module R M]
  [inst_5 : AddCommMonoid N] [inst_6 : Module R₂ N] {σ : R →+* R₂} [inst_7 : Module S N] [inst_8 : SMulCommClass R₂ S N]
  (F : S) (G : α → M →ₛₗ[σ] N),
  { toFun := fun d => d.sum fun i => ⇑((F • G) i), map_add' := ⋯, map_smul' := ⋯ } =
    (RingHom.id S) F • { toFun := fun d => d.sum fun i => ⇑(G i), map_add' := ⋯, map_smul' := ⋯ }