Notation cexp := (canonic_exp beta fexp).

Theorem round_plus_ge_ulp_FLT : forall x y e, generic_format beta (FLT_exp emin prec) x -> generic_format beta (FLT_exp emin prec) y -> (bpow e <= Rabs x)%R -> round beta (FLT_exp emin prec) rnd (x+y) = 0%R \/ (bpow (e - prec) <= Rabs (round beta (FLT_exp emin prec) rnd (x+y)))%R.