fact: Definition genSTgoodFooSound (n : nat) := @STCorrect _ _ (@arbitraryST _ (fun foo => goodFoo n foo) _) _.
imports: QuickChick(QuickChick Tactics Instances Classes DependentClasses) String List mathcomp(ssreflect ssrfun ssrbool ssrnat eqtype seq) DependentTest