fact: Definition sin_fast0 prec x := let xi := I.bnd x x in let x2i := I.sqr prec xi in let p := F.prec prec in let thre := F.scale c1 (F.ZtoS (Zneg p)) in let rem := cos_fast0_aux prec thre i1 x2i i4 i6 (nat_of_P p) in I.mul prec (I.sub prec i1 rem) xi.
imports: Coq(Reals Psatz) Flocq(Zaux Raux Digits) Stdlib Xreal Basic Sig Interval Float