fact: Definition TM_invsqrt (X0 X : I.type) (n : nat) : rpa := let P := (T_invsqrt prec X0 n) in if gt0 X then RPA P (Ztech (T_invsqrt prec) P (I_invsqrt prec) X0 X n) else RPA P I.nai.
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