∀ {C : Type u_4} [inst : CategoryTheory.Category.{u_3, u_4} C] [inst_1 : CategoryTheory.CartesianMonoidalCategory C]
  {D : Type u_2} [inst_2 : CategoryTheory.Category.{u_1, u_2} D] [inst_3 : CategoryTheory.CartesianMonoidalCategory D]
  {F : CategoryTheory.Functor C D} [inst_4 : F.Monoidal] (hF : F.FullyFaithful) (X : C)
  [inst_5 : CategoryTheory.AddGrpObj (F.obj X)],
  F.map
      (CategoryTheory.CategoryStruct.comp
        (CategoryTheory.CartesianMonoidalCategory.lift (CategoryTheory.CategoryStruct.id X)
          (hF.preimage CategoryTheory.AddGrpObj.neg))
        CategoryTheory.AddMonObj.add) =
    F.map
      (CategoryTheory.CategoryStruct.comp (CategoryTheory.SemiCartesianMonoidalCategory.toUnit X)
        CategoryTheory.AddMonObj.zero)