fact: Definition add_slow_aux2 mode prec sx sy mx my ex ey := let nb := exponent_sub ex ey in match exponent_cmp nb exponent_zero with | Gt => add_slow_aux1 mode prec sx sy (mantissa_shl mx nb) my ey | Lt => add_slow_aux1 mode prec sx sy mx (mantissa_shl my (exponent_neg nb)) ex | Eq => add_slow_aux1 mode prec sx sy mx my ex end.
imports: Coq(ZArith Reals Lia Bool Psatz) Flocq(Zaux Raux Digits Bracket) mathcomp.ssreflect(ssrbool) Xreal Basic Generic Generic_proof Sig Specific_sig