fact: Definition fib_seq_to_seq' {A} (B : FibSequence A) (x : sig A) : Sequence := Build_Sequence (fun k => B x^++k) (fun k b => b^+f).
imports: Basics Types Diagrams.Diagram Diagrams.Sequence Diagrams.Cocone Colimits.Colimit Spaces.Nat.Core PathAny