proposition: Lemma Rmax_compare x y : Rmax x y = match Rcompare x y with Lt => y | _ => x end.
proof: Proof. rewrite <-(Ropp_involutive (Rmax _ _)) at 1. rewrite Ropp_Rmax. rewrite Rmin_compare. case Rcompare_spec; case Rcompare_spec; lra. Qed.
imports: Coq(ZArith Reals) Int63Compat Coq(Floats Psatz) Flocq(Zaux Raux BinarySingleNaN PrimFloat Sterbenz Mult_error) Missing.Stdlib Missing.Flocq Xreal Basic Sig