End Zround_opp.
(** IEEE-754 roundings: up, down and to zero *)
Global Instance valid_rnd_DN : Valid_rnd Zfloor.
Global Instance valid_rnd_UP : Valid_rnd Zceil.
Global Instance valid_rnd_ZR : Valid_rnd Ztrunc.
Global Instance valid_rnd_AW : Valid_rnd Zaway.
Section monotone.
Variable rnd : R -> Z.
Context { valid_rnd : Valid_rnd rnd }.

Theorem round_le :
forall x y, (x <= y)%R -> (round rnd x <= round rnd y)%R.