fact: Definition computeSize' (a : Args) (n : nat) (d : nat) : nat := if (roundTo n (maxSize a) <= maxSuccess a) || (n >= maxSuccess a) || (maxSuccess a %| (maxSize a)) then minn (n %% (maxSize a) + d %/ 10) (maxSize a) else minn ((n %% (maxSize a)) * maxSize a %/ ((maxSuccess a) %% (maxSize a) + d %/ 10)) (maxSize a).
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrnat ssrbool eqtype div) ExtLib(Structures.Monad) SimpleIO(SimpleIO) QuickChick(RoseTrees RandomQC Generators Producer SemChecker) QuickChick(Show Checker State Classes) Coq.Strings.Ascii Coq.Strings.String List Recdef Arith.EqNat