fact: Definition FSucc (x : float) := match Z_eq_bool (Fnum x) (pPred (vNum b)) with | true => Float (nNormMin radix precision) (Z.succ (Fexp x)) | false => match Z_eq_bool (Fnum x) (- nNormMin radix precision) with | true => match Z_eq_bool (Fexp x) (- dExp b) with | true => Float (Z.succ (Fnum x)) (Fexp x) | false => Float (- pPred (vNum b)) (Z.pred (Fexp x)) end | false => Float (Z.succ (Fnum x)) (Fexp x) end end.
imports: Reals ZArith List PeanoNat Psatz