proposition: Lemma Bsign_BSN2B' : forall x Nx, Bsign (BSN2B' x Nx) = BinarySingleNaN.Bsign x.
proof: Proof. now intros [sx|sx| |sx mx ex Bx] Nx. Qed.
imports: Coq(ZArith Reals Psatz SpecFloat) Core Round Bracket Operations Div Sqrt Relative BinarySingleNaN