Section Double_round_plus_FLT.
Variable emin prec : Z.
Variable emin' prec' : Z.
Context { prec_gt_0_ : Prec_gt_0 prec }.
Context { prec_gt_0_' : Prec_gt_0 prec' }.

Lemma FLT_round_round_plus_hyp :
(emin' <= emin)%Z -> (2 * prec + 1 <= prec')%Z ->
round_round_plus_hyp (FLT_exp emin prec) (FLT_exp emin' prec').