fact: Definition fun_gen (fi : I.precision -> I.type -> I.type) (ftm : I.precision -> TM_type) (u : U) (X : I.type) (t : T) : T := match t with | Const c => Const (fi u.1 c) | Var => let X0 := J.midpoint X in Tm (ftm u.1 X0 X u.2) | Tm tm => let X0 := J.midpoint X in Tm (TM_comp u.1 (ftm u.1) tm X0 X u.2) end.
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