fact: Definition path_seq (A : Sequence) (a1 a2 : A 0) := Build_Sequence (fun k => a1^+k = a2^+k) (fun k p => ap (fun a => a^+) p).
imports: Basics Types Diagrams.Diagram Diagrams.Sequence Diagrams.Cocone Colimits.Colimit Spaces.Nat.Core PathAny