∀ {C : Type u_2} [inst : CategoryTheory.Category.{u_1, u_2} C] {D : Type u_4}
  [inst_1 : CategoryTheory.Category.{u_3, u_4} D] [inst_2 : CategoryTheory.MonoidalCategory D]
  {X Y : CategoryTheory.Functor C (CategoryTheory.Comon D)} (α : X ⟶ Y) (x x_1 : C) (f : x ⟶ x_1),
  (CategoryTheory.CategoryStruct.comp (X.map f) (α.app x_1)).hom =
    (CategoryTheory.CategoryStruct.comp (α.app x) (Y.map f)).hom