fact: Definition error_flt prec mode emin p xi := match xi with | Inan => Inan | Ibnd xl xu => let xu' := F.max (F.neg xl) xu in if andb (F.real xu') (Z.eqb (Zaux.radix_val F.radix) 2) then let e := FLT.FLT_exp emin (Z.pos p) (F.StoZ (F.mag xu')) in error_aux prec mode e else Inan end.
imports: Coq(Bool Reals Psatz) Flocq(Raux) Stdlib Xreal Basic Sig Interval