End Double_round_mult_FLX.
Section Double_round_mult_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' }.

(* Specifications: *)
Theorem double_round_mult_FLT :
(emin' <= 2 * emin)%Z -> (2 * prec <= prec')%Z ->
forall x y,
FLT_format beta emin prec x -> FLT_format beta emin prec y ->
round beta (FLT_exp emin prec) rnd
(round beta (FLT_exp emin' prec') rnd (x * y))
= round beta (FLT_exp emin prec) rnd (x * y).
Theorem double_round_mult_FLT :
(emin' <= 2 * emin)%Z -> (2 * prec <= prec')%Z ->
forall x y,
FLT_format beta emin prec x -> FLT_format beta emin prec y ->
round beta (FLT_exp emin prec) rnd
(round beta (FLT_exp emin' prec') rnd (x * y))
= round beta (FLT_exp emin prec) rnd (x * y).