fact: Parameter mantissa_div_correct : forall x y, valid_mantissa x -> valid_mantissa y -> (Zpos (MtoP y) <= Zpos (MtoP x))%Z -> let (q,l) := mantissa_div x y in Zpos (MtoP q) = (Zpos (MtoP x) / Zpos (MtoP y))%Z /\ Bracket.inbetween_int (Zpos (MtoP q)) (IZR (Zpos (MtoP x)) / IZR (Zpos (MtoP y)))%R (convert_location_inv l) /\ valid_mantissa q.
imports: Coq(ZArith Reals) Flocq(Zaux Raux) Basic Generic Generic_proof