fact: Definition Ffrexp_core_binary s m e := if Zlt_bool (-prec) emin then (S754_finite s m e, 0%Z) else if (Z.to_pos prec <=? digits2_pos m)%positive then (S754_finite s m (-prec), (e + prec)%Z) else let d := (prec - Z.pos (digits2_pos m))%Z in (S754_finite s (shift_pos (Z.to_pos d) m) (-prec), (e + prec - d)%Z).
imports: Coq(ZArith Reals Psatz SpecFloat) Core Round Bracket Operations Div Sqrt Relative