fact: Definition chooseGen {A : Type} `{ChoosableFromInterval A} (range : A * A) : G A := MkGen (fun _ r => fst (randomR range r)).
imports: Coq(String List ZArith Lia) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat eqtype seq) QuickChick(RandomQC RoseTrees Sets Tactics Producer)