intros b f H'; repeat split; simpl in |- *; auto with float.
replace (Zabs (Zabs (Fnum f))) with (Zabs (Fnum f)); auto with float.
case (Fnum f); auto.
Qed.

(* Specifications: *)
Theorem FboundedEqExpPos :
forall (b : Fbound) (p q : float),
Fbounded b p ->
p = q :>R -> (Fexp p <= Fexp q)%R -> (0 <= q)%R -> Fbounded b q.