-- Module: Mathlib.Algebra.Category.Grp.Images
Goal:
G H : AddCommGrpCat
f : G ⟶ H
F' : MonoFactorisation f
x y : ↥(Hom.hom f).range
this : Mono F'.m
a :
  (ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier) F'.m :
        (a : (↑F'.I : Type)) → (↑H : Type))
      ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
              F'.e :
            (a : (↑G : Type)) → (↑F'.I : Type))
          (↑(Classical.indefiniteDescription
                (fun (x_1 : (↑G : Type)) ↦ (Hom.hom f : (a : (↑G : Type)) → (↑H : Type)) x_1 = (↑(x + y) : (↑H : Type)))
                ⋯) :
            (↑G : Type)) :
        (↑F'.I : Type)) =
    HAdd.hAdd (α := (↑H : Type)) (β := (↑H : Type))
      ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
              F'.m :
            (a : (↑F'.I : Type)) → (↑H : Type))
          ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
                  F'.e :
                (a : (↑G : Type)) → (↑F'.I : Type))
              (↑(Classical.indefiniteDescription
                    (fun (x_1 : (↑G : Type)) ↦ (Hom.hom f : (a : (↑G : Type)) → (↑H : Type)) x_1 = (↑x : (↑H : Type)))
                    ⋯) :
                (↑G : Type)) :
            (↑F'.I : Type)) :
        (↑H : Type))
      ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
              F'.m :
            (a : (↑F'.I : Type)) → (↑H : Type))
          ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
                  F'.e :
                (a : (↑G : Type)) → (↑F'.I : Type))
              (↑(Classical.indefiniteDescription
                    (fun (x : (↑G : Type)) ↦ (Hom.hom f : (a : (↑G : Type)) → (↑H : Type)) x = (↑y : (↑H : Type))) ⋯) :
                (↑G : Type)) :
            (↑F'.I : Type)) :
        (↑H : Type))
⊢ Eq (α := (↑H : Type))
    ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier) F'.m :
          (a : (↑F'.I : Type)) → (↑H : Type))
        ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
                F'.e :
              (a : (↑G : Type)) → (↑F'.I : Type))
            (↑(Classical.indefiniteDescription
                  (fun (x_1 : (↑G : Type)) ↦
                    (Hom.hom f : (a : (↑G : Type)) → (↑H : Type)) x_1 = (↑(x + y) : (↑H : Type)))
                  ⋯) :
              (↑G : Type)) :
          (↑F'.I : Type)) :
      (↑H : Type))
    ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier) F'.m :
          (a : (↑F'.I : Type)) → (↑H : Type))
        (HAdd.hAdd (α := (↑F'.1 : Type)) (β := (↑F'.1 : Type))
          ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
                  F'.e :
                (a : (↑G : Type)) → (↑F'.I : Type))
              (↑(Classical.indefiniteDescription
                    (fun (x_1 : (↑G : Type)) ↦ (Hom.hom f : (a : (↑G : Type)) → (↑H : Type)) x_1 = (↑x : (↑H : Type)))
                    ⋯) :
                (↑G : Type)) :
            (↑F'.I : Type))
          ((ConcreteCategory.hom (FC := fun (x1 x2 : AddCommGrpCat.{0}) ↦ (↑x1 : Type) →+ (↑x2 : Type)) (CC := carrier)
                  F'.e :
                (a : (↑G : Type)) → (↑F'.I : Type))
              (↑(Classical.indefiniteDescription
                    (fun (x : (↑G : Type)) ↦ (Hom.hom f : (a : (↑G : Type)) → (↑H : Type)) x = (↑y : (↑H : Type))) ⋯) :
                (↑G : Type)) :
            (↑F'.I : Type))) :
      (↑H : Type))

Tactic:
rw [map_add]

Premises used: map_add