fact: Definition flt_of_singleton_bnd_helper (xi : FF) (n : positive) := Zeq_bool (Fnum (lower xi)) (Fnum (upper xi)) && Zeq_bool (Fexp (lower xi)) (Fexp (upper xi)) && Zlt_bool (Z.abs (Fnum (lower xi))) (two_power_pos n).
imports: Flocq(Core Sterbenz) Gappa_common Gappa_round_aux