∀ {C : Type u} [inst : CategoryTheory.Category.{v, u} C] {A : C} (P P' : HomotopicalAlgebra.PrepathObject A)
  [inst_1 : CategoryTheory.Limits.HasPullback P.p₁ P'.p₀],
  (P.trans P').p₀ = CategoryTheory.CategoryStruct.comp (CategoryTheory.Limits.pullback.fst P.p₁ P'.p₀) P.p₀