fact: Definition mantissa_split_div m d pos := match Zfast_div_eucl (Zpos m) (Zpos d) with | (Zpos q, r) => (q, adjust_pos r d pos) | _ => (xH, pos_Eq) end.
imports: Coq(ZArith Reals Psatz Bool) Flocq(Zaux Raux) Basic Generic Generic_proof Specific_sig