fact: Fixpoint replicate_Sn (x: T) (n: nat): L := match n with | 0 => one x | S n' => cons x (replicate_Sn x n') end.
imports: Coq.Unicode.Utf8 Coq.Lists.List Coq.Setoids.Setoid Coq.Classes.Morphisms Coq.Sorting.Permutation