proposition: Lemma BtoX_B2R x r : BtoX x = Xreal r -> r = B2R x.
proof: Proof. case x as [s|s| |s m e B]; [ |now simpl..| ]. { now simpl; intro H; injection H. } now simpl; rewrite <-FtoR_split; intro H; injection H. Qed.
imports: Coq(ZArith Reals) Int63Compat Coq(Floats Psatz) Flocq(Zaux Raux BinarySingleNaN PrimFloat Sterbenz Mult_error) Missing.Stdlib Missing.Flocq Xreal Basic Sig