proposition: Lemma isColim_is_z_iso {C : precategory} {g : graph} (D : diagram g C) (CC : ColimCocone D) (d : C) (cd : cocone D d) : isColimCocone D d cd -> is_z_isomorphism (colimArrow CC d cd).
proof: Proof. intro H. set (CD := make_ColimCocone D d cd H). apply (tpair _ (colimArrow (make_ColimCocone D d cd H) (colim CC) (colimCocone CC))). abstract (split; [ apply pathsinv0, colim_endo_is_identity; simpl; intro u; rewrite assoc; eapply pathscomp0; [eapply cancel_postcomposition; apply colimArrowCommutes|]; apply (colimArrowCommutes CD) | apply pathsinv0, (colim_endo_is_identity _ CD); simpl; intro u; rewrite assoc; eapply pathscomp0; [eapply cancel_postcomposition; apply (colimArrowCommutes CD)|]; apply colimArrowCommutes ]). Defined.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Propositions UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.FunctorCategory UniMath.CategoryTheory.Adjunctions.Core