fact: Definition power_int p := Eval cbv delta[fun_gen] beta in match p with | 1%Z => fun u xi t => t | _ => fun_gen (fun prec x => I.power_int prec x p) (fun prec => TM_power_int prec p) 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