fact: Definition sin_fast prec x := match F'.cmp x F.zero with | Xeq => I.zero | Xlt => I.neg (sin_fastP prec (F.neg x)) | Xgt => sin_fastP prec x | Xund => I.nai end.
imports: Coq(Reals Psatz) Flocq(Zaux Raux Digits) Stdlib Xreal Basic Sig Interval Float