-- Lean 4 proof step from Mathlib.CategoryTheory.Triangulated.TriangleShift (goal)
Goal:
C : Type u
inst : Category.{v, u} C
inst_1 : Preadditive.{v, u} C
inst_2 : HasShift.{v, u, 0} C ℤ
inst_3 : ∀ (n : ℤ), Functor.Additive.{v, u, v, u} (CategoryTheory.shiftFunctor C n)
a b c : ℤ
T : Triangle.{v, u} C
⊢ Eq.{v + 1} (α :=
    Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + b + c)) T.obj₁ ⟶
      Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C c)
        (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C b)
          (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C a) T.obj₁)))
    (NatTrans.app (Iso.hom (CategoryTheory.shiftFunctorAdd' C (a + b) c (a + b + c) ⋯)) T.obj₁ ≫
        Functor.map (CategoryTheory.shiftFunctor C c)
          (NatTrans.app (Iso.hom (CategoryTheory.shiftFunctorAdd' C a b (a + b) ⋯)) T.obj₁) :
      Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + b + c)) T.obj₁ ⟶
        Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C c)
          (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C b)
            (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C a) T.obj₁)))
    (CategoryStruct.comp (Y := Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + (b + c))) T.obj₁)
        (TriangleMorphism.hom₁ (eqToHom ⋯))
        (NatTrans.app (Iso.hom (CategoryTheory.shiftFunctorAdd' C (a + b) c (a + (b + c)) ⋯)) T.obj₁ ≫
          Functor.map (CategoryTheory.shiftFunctor C c)
            (NatTrans.app (Iso.hom (CategoryTheory.shiftFunctorAdd' C a b (a + b) ⋯)) T.obj₁)) :
      Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + b + c)) T.obj₁ ⟶
        Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C c)
          (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C b)
            (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C a) T.obj₁)))
have h₁ : Eq.{v + 1} (α :=
  Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + b + c)) T.obj₁ ⟶
    Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C c)
      (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C b)
        (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C a) T.obj₁)))
  (NatTrans.app (Iso.hom (eqToIso sorry ≪≫ shiftFunctorAdd C (a + b) c)) T.obj₁ ≫
      Functor.map (CategoryTheory.shiftFunctor C c)
        (NatTrans.app (Iso.hom (eqToIso sorry ≪≫ shiftFunctorAdd C a b)) T.obj₁) :
    Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + b + c)) T.obj₁ ⟶
      Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C c)
        (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C b)
          (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C a) T.obj₁)))
  (CategoryStruct.comp (Y := Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + (b + c))) T.obj₁)
      (TriangleMorphism.hom₁ (eqToHom sorry))
      (NatTrans.app (Iso.hom (eqToIso sorry ≪≫ shiftFunctorAdd C (a + b) c)) T.obj₁ ≫
        Functor.map (CategoryTheory.shiftFunctor C c)
          (NatTrans.app (Iso.hom (eqToIso sorry ≪≫ shiftFunctorAdd C a b)) T.obj₁)) :
    Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C (a + b + c)) T.obj₁ ⟶
      Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C c)
        (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C b)
          (Functor.obj.{v, v, u, u} (CategoryTheory.shiftFunctor C a) T.obj₁)))
Tactic: dsimp only [CategoryTheory.shiftFunctorAdd']