fact: Definition Fround_none {beta} (uf : ufloat beta) : float beta := match uf with | Uzero => Fzero | Ufloat s m e pos_Eq => Float s m e | _ => Fnan end.
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic