(** Conversion from an integer.  Round to nearest. *)

Definition BofZ (n: Z) : binary_float :=
  binary_normalize prec emax prec_gt_0_ Hmax mode_NE n 0 false.

Lemma BofZ_finite_equal: forall x y, Z.abs x <= 2^emax - 2^(emax-prec) -> Z.abs y <= 2^emax - 2^(emax-prec) -> B2R _ _ (BofZ x) = B2R _ _ (BofZ y) -> BofZ x = BofZ y.