Section Floor_Ceil.
(** Zfloor and Zceil *)
Definition Zfloor (x : R) := (up x - 1)%Z.
Definition Zceil (x : R) := (- Zfloor (- x))%Z.

Theorem Zceil_imp :
forall n x,
(IZR (n - 1) < x <= IZR n)%R ->
Zceil x = n.