∀ {C : Type u_2} [inst : CategoryTheory.Category.{u_1, u_2} C] (X : C)
  [inst_1 : CategoryTheory.Limits.HasBinaryCoproducts C] (A : (CategoryTheory.coprodMonad X).Algebra),
  CategoryTheory.CategoryStruct.comp
      ((CategoryTheory.coprodMonad X).map
        (CategoryTheory.Iso.refl ((CategoryTheory.Functor.id (CategoryTheory.coprodMonad X).Algebra).obj A).A).hom)
      (((CategoryTheory.algebraToUnder X).comp (CategoryTheory.underToAlgebra X)).obj A).a =
    CategoryTheory.CategoryStruct.comp ((CategoryTheory.Functor.id (CategoryTheory.coprodMonad X).Algebra).obj A).a
      (CategoryTheory.Iso.refl ((CategoryTheory.Functor.id (CategoryTheory.coprodMonad X).Algebra).obj A).A).hom