fact: Definition Rnearbyint mode r := match mode with | rnd_UP => IZR (Zceil r) | rnd_DN => IZR (Zfloor r) | rnd_ZR => IZR (Ztrunc r) | rnd_NE => IZR (ZnearestE r) end.
imports: Coq(Reals ZArith Psatz) Flocq(Core) Xreal