fact: Fixpoint prependToAll {A : Type} (sep : A) (ls : list A) : list A := match ls with | nil => nil | h :: t => sep :: h :: prependToAll sep t end.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrnat ssrbool eqtype div) ExtLib(Structures.Monad) SimpleIO(SimpleIO) QuickChick(RoseTrees RandomQC Generators Producer SemChecker) QuickChick(Show Checker State Classes) Coq.Strings.Ascii Coq.Strings.String List Recdef Arith.EqNat