fact: Fixpoint app (a b: L) {struct a}: L := match a with | one x => cons x b | cons x y => cons x (app y b) end.
imports: Coq.Unicode.Utf8 Coq.Lists.List Coq.Setoids.Setoid Coq.Classes.Morphisms Coq.Sorting.Permutation