fact: Definition reallyUnsafePromote {r A : Type} (m : r -> G A) : G (r -> A) := (bindGen reallyUnsafeDelay (fun eval => returnGen (fun r => eval (m r)))).
imports: Coq(String List ZArith Lia) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat eqtype seq) QuickChick(RandomQC RoseTrees Sets Tactics Producer)