fact: Fixpoint morDA `(t : Mor x y) : tlist edges x y := match t with | Ident => tnil | Morph f => tcons _ f tnil | Comp f g => morDA g +++ morDA f end.
imports: Category.Lib Category.Lib.TList Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Theory.Adjunction Category.Theory.Universal.Arrow Category.Instance.StrictCat Category.Construction.Groupoid Category.Construction.Opposite Category.Construction.Product Category.Instance.Sets