(***********************************************************)
(** **    Multiplication                                   *)
(***********************************************************)

(* Specifications: *)
(**********)
Lemma Rmult_comm : forall r1 r2:R, r1 * r2 = r2 * r1.
#[global]
Hint Resolve Rmult_comm: real.
(**********)
Lemma Rmult_assoc : forall r1 r2 r3:R, r1 * r2 * r3 = r1 * (r2 * r3).
#[global]
Hint Resolve Rmult_assoc: real.
(**********)
Lemma Rinv_l : forall r:R, r <> 0 -> / r * r = 1.
#[global]
Hint Resolve Rinv_l: real.
(**********)
Lemma Rmult_1_l : forall r:R, 1 * r = r.
#[global]
Hint Resolve Rmult_1_l: real.
(**********)
Lemma R1_neq_R0 : 1 <> 0.
#[global]
Hint Resolve R1_neq_R0: real.