∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] [inst_1 : CategoryTheory.Abelian C]
  [inst_2 : CategoryTheory.HasExt C] {S : CategoryTheory.ShortComplex C} (hS : S.ShortExact) (Y : C) (n₀ n₁ : ℕ)
  (h : 1 + n₀ = n₁),
  { X₁ := AddCommGrpCat.of (CategoryTheory.Abelian.Ext S.X₁ Y n₀),
      X₂ := AddCommGrpCat.of (CategoryTheory.Abelian.Ext S.X₃ Y n₁),
      X₃ := AddCommGrpCat.of (CategoryTheory.Abelian.Ext S.X₂ Y n₁), f := AddCommGrpCat.ofHom (hS.extClass.precomp Y h),
      g := AddCommGrpCat.ofHom ((CategoryTheory.Abelian.Ext.mk₀ S.g).precomp Y ⋯), zero := ⋯ }.Exact