∀ (R : Type u_3) [inst : CommRing R] {C : Type u_2} [inst_1 : CategoryTheory.Category.{u_1, u_2} C] {D : Type u_2}
  [inst_2 : CategoryTheory.Category.{u_1, u_2} D] [inst_3 : CategoryTheory.Preadditive D]
  [inst_4 : CategoryTheory.Linear R D] (F : CategoryTheory.Functor C D) {X Y Z : CategoryTheory.Free R C} (f : X ⟶ Y)
  (g : Y ⟶ Z),
  (Finsupp.sum (CategoryTheory.CategoryStruct.comp f g) fun f' r => r • F.map f') =
    CategoryTheory.CategoryStruct.comp (Finsupp.sum f fun f' r => r • F.map f') (Finsupp.sum g fun f' r => r • F.map f')