Definition Fnormal (p : float) :=
  Fbounded b p /\ (Zpos (vNum b) <= Zabs (radix * Fnum p))%Z.

(* Specifications: *)
Theorem FnormalBounded : forall p : float, Fnormal p -> Fbounded b p.
Theorem FnormalBound : forall p : float, Fnormal p -> (Zpos (vNum b) <= Zabs (radix * Fnum p))%Z.
Theorem FnormalNotZero : forall p : float, Fnormal p -> ~ is_Fzero p.
Theorem FnormalFop : forall p : float, Fnormal p -> Fnormal (Fopp p).
Theorem FnormalFabs : forall p : float, Fnormal p -> Fnormal (Fabs p).