fact: Parameter mantissa_shl_correct : forall x y z, valid_mantissa y -> EtoZ z = Zpos x -> MtoP (mantissa_shl y z) = shift radix (MtoP y) x /\ valid_mantissa (mantissa_shl y z).
imports: Coq(ZArith Reals) Flocq(Zaux Raux) Basic Generic Generic_proof