apply IZR_zero_r; auto.
Qed.
Hint Resolve NEq_IZRO: real.

(* Specifications: *)
Theorem Rlt_IZR : forall p q : Z, (p < q)%Z -> (IZR p < IZR q)%R.
intros p q H; case (Rle_or_lt (IZR q) (IZR p)); auto.