fact: Definition Bcompare (f1 f2 : binary_float) : option comparison := BinarySingleNaN.Bcompare (B2BSN f1) (B2BSN f2).
imports: Coq(ZArith Reals Psatz SpecFloat) Core Round Bracket Operations Div Sqrt Relative BinarySingleNaN