fact: Definition fromZ x := match x with | Z0 => zero | Zpos x => match (x ?= 9007199254740992)%positive with | Lt => of_int63 (Int63.of_pos x) | _ => nan end | Zneg x => match (x ?= 9007199254740992)%positive with | Lt => (-(of_int63 (Int63.of_pos x)))%float | _ => nan end end.
imports: Coq(ZArith Reals) Int63Compat Coq(Floats Psatz) Flocq(Zaux Raux BinarySingleNaN PrimFloat Sterbenz Mult_error) Missing.Stdlib Missing.Flocq Xreal Basic Sig