Variable choice : Z -> bool.

(** 1+#&epsilon;# property in rounding to nearest *)
Theorem relative_error_N_ex :
forall x,
(bpow emin <= Rabs x)%R ->
exists eps,
(Rabs eps <= /2 * bpow (-p + 1))%R /\ round beta fexp (Znearest choice) x = (x * (1 + eps))%R.