fact: Definition Fnormalize (p : float) := match Z_zerop (Fnum p) with | left _ => Float 0 (- dExp b) | right _ => Fshift radix (min (precision - Fdigit radix p) (Z.abs_nat (dExp b + Fexp p))) p end.
imports: Reals ZArith List PeanoNat Psatz