proposition: Lemma Z_frexp_spec f : let (m, e) := Z.frexp f in (Prim2SF m, e) = SFfrexp prec emax (Prim2SF f).
proof: Proof. try exact (Z_frexp_spec f); exact (frexp_spec f). Qed.
imports: Int63Compat Coq(ZArith Reals Floats SpecFloat) Zaux BinarySingleNaN