fact: Definition get_nan_pl (x : binary_float) : positive := match x with B754_nan _ pl _ => pl | _ => xH end.
imports: Coq(ZArith Reals Psatz SpecFloat) Core Round Bracket Operations Div Sqrt Relative BinarySingleNaN