fact: Fixpoint take (n: nat) (l: L): L := match l, n with | cons x xs, S n' => take n' xs | _, _ => one (head l) end.
imports: Coq.Unicode.Utf8 Coq.Lists.List Coq.Setoids.Setoid Coq.Classes.Morphisms Coq.Sorting.Permutation