proposition: Lemma eq_Cone_eq (a b : Cone) (p q : a = b) : base_paths _ _ (base_paths _ _ p) = base_paths _ _ (base_paths _ _ q) -> p = q.
proof: Proof. intro H. assert (H2 : base_paths _ _ p = base_paths _ _ q). apply eq_ConeData_eq. apply H. apply (eq_equalities_between_pairs _ _ _ _ _ _ H2). apply uip. apply isasetaprop. apply isaprop_ConeProp. Defined.
imports: UniMath.Foundations.PartD UniMath.Foundations.Propositions UniMath.Foundations.Sets UniMath.MoreFoundations.PartA UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Univalence UniMath.CategoryTheory.Core.Functors