fact: Definition floatx_ulp (p : positive) (m e : Z) := match m with | Zpos n => FLX_exp (Zpos p) (e + Zpos (digits n))%Z | Zneg n => FLX_exp (Zpos p) (e + Zpos (digits n))%Z | Z0 => Z0 end.
imports: Coq(Bool ZArith Reals Lia) Flocq(Core Digits Round Relative) Gappa_definitions Gappa_dyadic Gappa_pred_bnd Gappa_round_def Gappa_round_aux Gappa_round