fact: Definition sample1 (A : Type) (g : G A) : A := match g with | MkGen m => let rnd := newRandomSeed in m 10 rnd end.
imports: Coq(String List ZArith Lia) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat eqtype seq) QuickChick(RandomQC RoseTrees Sets Tactics Producer)