fact: Definition SFnearbyint_binary_aux m sx mx ex := if (0 <=? ex)%Z then ((Z.pos mx) * 2 ^ ex)%Z else let mrs := {| shr_m := Z.pos mx; shr_r := false; shr_s := false |} in let mrs' := if (ex <? - prec)%Z then {| shr_m := Z0; shr_r := false; shr_s := true |} else fst (shr mrs ex (- ex)) in let l' := loc_of_shr_record mrs' in let mx' := shr_m mrs' in choice_mode m sx mx' l'.
imports: Coq(ZArith Reals Psatz SpecFloat) Core Round Bracket Operations Div Sqrt Relative