proposition: Lemma isiso_from_Initial_to_Initial (O O' : Initial) : is_iso (InitialArrow O (InitialObject O')).
proof: Proof. apply (is_iso_qinv _ (InitialArrow O' (InitialObject O))). split; apply pathsinv0, InitialEndo_is_identity. Defined.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Limits.Graphs.Colimits UniMath.CategoryTheory.Limits.Graphs.EqDiag UniMath.CategoryTheory.Limits.Initial