fact: Fixpoint refine_root_aux depth prec prog bounds xi (check : I.type -> bool) := match depth with | S depth => let xi' := A.DiffValuator.root prec prog bounds xi in if check xi' then true else if fast_enough prec xi xi' then refine_root_aux depth prec prog bounds xi' check else let (xi1,xi2) := I.bisect xi' in if refine_root_aux depth prec prog bounds xi1 check then refine_root_aux depth prec prog bounds xi2 check else false | O => false end.
imports: Coq(Reals List ZArith Psatz) Flocq(Zaux) Stdlib Xreal Basic Sig Interval Eval Tree Prog Reify Interval_helper