fact: Definition mantissa_split_div m d pos := let (q, r) := BigN.div_eucl m d in (q, if BigN.eqb r 0%bigN then match pos with pos_Eq => pos_Eq | _ => pos_Lo end else match BigN.compare (BigN.shiftl r 1%bigN) d with | Lt => pos_Lo | Eq => match pos with pos_Eq => pos_Mi | _ => pos_Up end | Gt => pos_Up end).
imports: Coq(Bool ZArith Reals Psatz) Bignums(BigN BigZ) Flocq(Zaux Raux Digits) Basic Generic Generic_proof Specific_sig