proposition: Lemma real_is_finite x : real (B2Prim x) = is_finite x.
proof: Proof. case x as [s|s| |s m e B]; [now case s..|now simpl| ]. now rewrite real_correct, toX_Prim2B, Prim2B_B2Prim. Qed.
imports: Coq(ZArith Reals) Int63Compat Coq(Floats Psatz) Flocq(Zaux Raux BinarySingleNaN PrimFloat Sterbenz Mult_error) Missing.Stdlib Missing.Flocq Xreal Basic Sig