fact: Definition eval (u : U) (t : T) (Y X : I.type) : I.type := if I.subset X Y then match t with | Const c => I.mask c X | Var => X | Tm tm => let X0 := J.midpoint Y in let tm := get_tm u Y t in I.add u.1 (Bnd.ComputeBound u.1 (approx tm) (I.sub u.1 X X0)) (error tm) end else I.nai.
imports: Coq(Reals ZArith Psatz) mathcomp.ssreflect(ssreflect ssrbool ssrfun eqtype ssrnat seq bigop) Interval Xreal Basic Interval_compl Datatypes Taylor_model_sharp Bound Bound_quad Univariate_sig