fact: Fixpoint tlistDA `(t : tlist hom x y) : Mor x y := match t with | tnil => Ident | tcons _ f fs => Comp (tlistDA fs) (Morph f) end.
imports: Category.Lib Category.Lib.TList Category.Theory.Category Category.Theory.Isomorphism Category.Theory.Functor Category.Theory.Adjunction Category.Instance.Sets