proposition: Lemma semShrinking_id {C A} {HCheck : Checkable C} (sh : A -> list A) (x : A) (pf : A -> C) : semChecker (shrinking sh x pf) <-> semCheckable (pf x).
proof: Proof. split; move => H s; eapply semShrinking_idSize; first by eauto. by apply H. Qed.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrbool ssrnat eqtype) Show Sets Generators Producer RoseTrees Checker Classes