(*********************************************************)
(** ** Square function                                   *)
(*********************************************************)

Definition Rsqr r : R := r * r.Notation "r ²" := (Rsqr r) (at level 1, format "r ²") : R_scope.

Lemma Rmult_le_compat_r : forall r r1 r2, 0 <= r -> r1 <= r2 -> r1 * r <= r2 * r.