fact: Fixpoint append (f g : Composition) : Composition := match f, g with | Single f, gs => Composed f gs | Composed f fs, gs => Composed f (append fs gs) end.
imports: Coq.Lists.List Equations(Equations) Category.Lib Category.Theory.Category Category.Solver.Expr Category.Solver.Denote Category.Solver.Reify