fact: Fixpoint f_int (alpha : Z) (beta : nat) {struct beta} : I.type := let alphap1' := (alpha + 1)%Z in let alphap1 := I.fromZ prec alphap1' in match beta with | 0 => I.div prec (I.neg (I.power_int prec A alphap1')) alphap1 | S m => let beta := Z.of_nat beta in I.sub prec (I.div prec (I.neg (I.mul prec (I.power_int prec A alphap1') (I.power_int prec (I.ln prec A) beta))) alphap1) (I.mul prec (I.div prec (I.fromZ prec beta) alphap1) (f_int alpha m)) end.
imports: Coq(Reals ZArith Psatz Fourier_util) Flocq(Raux) Coquelicot(Coquelicot AutoDerive) mathcomp.ssreflect(ssreflect ssrfun ssrbool ssrnat bigop) Stdlib Coquelicot Xreal Interval