proposition: Lemma toX_neg x : toX (- x) = (- (toX x))%XR.
proof: Proof. unfold toX. rewrite <-Generic_proof.Fneg_correct. f_equal. unfold toF. rewrite <-!B2SF_Prim2B, opp_equiv. now case Prim2B. Qed.
imports: Coq(ZArith Reals) Int63Compat Coq(Floats Psatz) Flocq(Zaux Raux BinarySingleNaN PrimFloat Sterbenz Mult_error) Missing.Stdlib Missing.Flocq Xreal Basic Sig