fact: Definition Zrnd_odd x := match Req_EM_T x (IZR (Zfloor x)) with | left _ => Zfloor x | right _ => match (Z.even (Zfloor x)) with | true => Zceil x | false => Zfloor x end end.
imports: Coq(ZArith Reals Psatz) Core Operations