fact: Definition variant {A : Type} (p : SplitPath) (g : G A) : G A := match g with | MkGen f => MkGen (fun n r => f n (varySeed p r)) end.
imports: Coq(String List ZArith Lia) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat eqtype seq) QuickChick(RandomQC RoseTrees Sets Tactics Producer)