fact: Definition TM_any (Y : I.type) (X : I.type) (n : nat) := let mid := J.midpoint Y in let pol := Pol.polyC mid in {| approx := if n == 0 then pol else Pol.set_nth pol n Pol.Int.zero; error := I.mask (I.sub prec Y mid) X |}.
imports: Coq(ZArith Psatz Reals) Flocq(Raux) Coquelicot(Coquelicot) mathcomp.ssreflect(ssreflect ssrfun ssrbool eqtype ssrnat seq fintype bigop) Stdlib MathComp Coquelicot Xreal Interval Basic Xreal_derive Interval_compl Datatypes Taylor_poly Basic_rec Bound