fact: Definition shrinkingNondet {prop A : Type} `{Checkable prop} (n : nat) (shrinker : A -> list A) (x0 : A) (pf : A -> prop) : Checker := fmap (fun x => MkProp (repeatRose n (joinRose (fmapRose unProp x)))) (promote (props pf shrinker x0)).
imports: String List RoseTrees Show State Producer Generators Classes DependentClasses