fact: Parameter mantissa_cmp_correct : forall x y, valid_mantissa x -> valid_mantissa y -> mantissa_cmp x y = Z.compare (Zpos (MtoP x)) (Zpos (MtoP y)).
imports: Coq(ZArith Reals) Flocq(Zaux Raux) Basic Generic Generic_proof