Definition Bsign x :=
match x with
| B754_nan s _ => s
| B754_zero s => s
| B754_infinity s => s
| B754_finite s _ _ _ => s
end.
Definition sign_FF x :=
match x with
| F754_nan s _ => s
| F754_zero s => s
| F754_infinity s => s
| F754_finite s _ _ => s
end.

(* Specifications: *)
Theorem Bsign_FF2B :
forall x H,
Bsign (FF2B x H) = sign_FF x.
Theorem Bsign_FF2B :
forall x H,
Bsign (FF2B x H) = sign_FF x.