fact: Definition split_bits_of_binary_float (x : binary_float) := match x with | B754_zero sx => (sx, 0, 0)%Z | B754_infinity sx => (sx, 0, Zpower 2 ew - 1)%Z | B754_nan sx plx _ => (sx, Zpos plx, Zpower 2 ew - 1)%Z | B754_finite sx mx ex _ => let m := (Zpos mx - Zpower 2 mw)%Z in if Zle_bool 0 m then (sx, m, ex - emin + 1)%Z else (sx, Zpos mx, 0)%Z end.
imports: Coq(ZArith Reals Lia SpecFloat) Core BinarySingleNaN Binary