proposition: Lemma classify_correct : forall f, real f = match classify f with Freal => true | _ => false end.
proof: Proof. now intro f; unfold real, classify; case PrimFloat.classify. Qed.
imports: Coq(ZArith Reals) Int63Compat Coq(Floats Psatz) Flocq(Zaux Raux BinarySingleNaN PrimFloat Sterbenz Mult_error) Missing.Stdlib Missing.Flocq Xreal Basic Sig