fact: Parameter mantissa_shrp_correct : forall x y z k, valid_mantissa y -> EtoZ z = Zpos x -> (Zpower radix (Zpos x - 1) <= Zpos (MtoP y) < Zpos (shift radix 1 x))%Z -> let l := mantissa_shrp y z k in l = adjust_pos (Zpos (MtoP y)) (shift radix 1 x) k.
imports: Coq(ZArith Reals) Flocq(Zaux Raux) Basic Generic Generic_proof