fact: Definition fromF (f : float radix) := match f with | Basic.Fnan => nan | Basic.Fzero => zero | Basic.Float s m e => if ((e <=? 971)%Z && (-1074 <=? e)%Z && (Pos.size m <=? 53)%positive)%bool then let m := of_int63 (Int63.of_pos m) in let e := Int63.of_Z (e + FloatOps.shift) in let f := ldshiftexp m e in if s then (- f)%float else f else nan end.
imports: Coq(ZArith Reals) Int63Compat Coq(Floats Psatz) Flocq(Zaux Raux BinarySingleNaN PrimFloat Sterbenz Mult_error) Missing.Stdlib Missing.Flocq Xreal Basic Sig