Section Fprop_plus_FLT.
Variable beta : radix.
Notation bpow e := (bpow beta e).
Variable emin prec : Z.
Context { prec_gt_0_ : Prec_gt_0 prec }.

Theorem FLT_format_plus_small: forall x y,
generic_format beta (FLT_exp emin prec) x ->
generic_format beta (FLT_exp emin prec) y ->
(Rabs (x+y) <= bpow (prec+emin))%R ->
generic_format beta (FLT_exp emin prec) (x+y).