fact: Definition RND_Min_Pos (r : R) := match Rle_dec (firstNormalPos radix b p) r with | left _ => let e := IRNDD (ln r / ln radix + (- Z.pred p)%Z) in Float (IRNDD (r * powerRZ radix (- e))) e | right _ => Float (IRNDD (r * powerRZ radix (dExp b))) (- dExp b) end.
imports: Reals ZArith List PeanoNat Psatz