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