fact: Definition round_aux mode prec sign m1 e1 pos := let prec := match exponent_cmp prec exponent_zero with Gt => prec | _ => exponent_one end in let nb := exponent_sub (mantissa_digits m1) prec in let e2 := exponent_add e1 nb in match exponent_cmp nb exponent_zero with | Gt => let (m2, pos2) := mantissa_shr m1 nb pos in float_aux sign (adjust_mantissa mode m2 pos2 sign) e2 | Eq => float_aux sign (adjust_mantissa mode m1 pos sign) e1 | Lt => float_aux sign m1 e1 end.
imports: Coq(ZArith Reals Lia Bool Psatz) Flocq(Zaux Raux Digits Bracket) mathcomp.ssreflect(ssrbool) Xreal Basic Generic Generic_proof Sig Specific_sig