fact: Definition sampleGen (A : Type) (g : G A) : list A := match g with | MkGen m => let rnd := newRandomSeed in let l := List.combine (rnds rnd 20) (createRange 10 nil) in List.map (fun (p : RandomSeed * nat) => let (r,n) := p in m n r) l end.
imports: Coq(String List ZArith Lia) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat eqtype seq) QuickChick(RandomQC RoseTrees Sets Tactics Producer)