fact: Definition float_absolute_wide_ne_helper (p : positive) (d : Z) (xi : FF) (zi : FF) := let u := upper xi in let e := (float_ulp p d (Fnum u) (Fexp u) - 2)%Z in Zle_bool d (Fexp u - Zpos p) && Fle2 u (Float2 (Zpos (xI (shift_pos p xH))) e) && Fle2 (lower zi) (Float2 (-1) e) && Fle2 (Float2 1 e) (upper zi).
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