fact: Definition whenFail {prop : Type} `{Checkable prop} (str : string) : prop -> Checker := callback (PostFinalFailure Counterexample (fun _st _sr => trace (str ++ nl) 0)).
imports: String List RoseTrees Show State Producer Generators Classes DependentClasses