fact: Definition app A (l1 l2 : list A) := fold_right (fun x (acc:list A) => x::acc) l2 l1.
imports: Coq.Classes.Morphisms TLC(LibTactics LibLogic LibReflect LibOperation LibProd LibOption LibNat LibInt LibWf LibMonoid LibRelation)