Definition Fopp (f1 : float beta) : float beta :=
  let '(Float m1 e1) := f1 in
  Float (-m1)%Z e1.

(* Specifications: *)
Theorem F2R_opp : forall f1 : float beta, (F2R (Fopp f1) = -F2R f1)%R.
Theorem F2R_opp : forall f1 : float beta, (F2R (Fopp f1) = -F2R f1)%R.