fact: Definition promote {A : Type} (m : Rose (G A)) : G (Rose A) := MkGen (fun n r => fmapRose (fun g => run g n r) m).
imports: Coq(String List ZArith Lia) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool ssrnat eqtype seq) QuickChick(RandomQC RoseTrees Sets Tactics Producer)