fact: Definition check_goal prec hyps pg cg g := let bounds := hyps ++ map (T.eval_bnd prec) cg in let check := R.eval_goal_bnd prec g in fun b => check (nth 0 (A.BndValuator.eval prec pg (b :: bounds)) I.nai).
imports: Coq(Reals List ZArith Psatz) Flocq(Zaux) Coquelicot(Coquelicot) Stdlib Coquelicot Xreal Basic Sig Interval Integral Eval Bertrand Tree Prog Reify Refine Interval_helper