fact: Definition Fnearbyint {beta} mode prec x := match x with | Float sx mx ex => match Z.compare (Zpos (count_digits beta mx) + ex) (Zpos prec) with | Gt => Fround_at_prec mode prec | _ => Fround_at_exp mode 0 end (@Ufloat beta sx mx ex pos_Eq) | _ => x end.
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic