∀ {G H K : AddCommGrpCat} (f : G ⟶ K) (g : H ⟶ K) (x : ↑G × ↑H),
  (CategoryTheory.ConcreteCategory.hom (CategoryTheory.Limits.biprod.desc f g))
      ((CategoryTheory.ConcreteCategory.hom (G.biprodIsoProd H).inv) x) =
    (AddCommGrpCat.Hom.hom f) x.1 + (AddCommGrpCat.Hom.hom g) x.2