fact: Definition eval_bisect_taylor_fun prec deg prog xi := match xi with | nil => I.nai | xi :: li => let li := A.TaylorValuator.TM.var :: map A.TaylorValuator.TM.const li in A.TaylorValuator.TM.eval (prec, deg) (nth 0 (A.TaylorValuator.eval prec deg xi prog li) A.TaylorValuator.TM.dummy) xi xi end.
imports: Coq(Reals List ZArith Psatz) Flocq(Zaux) Stdlib Xreal Basic Sig Interval Eval Tree Prog Reify