#[global]
Hint Resolve f_equal_R : real.

(* Specifications: *)
Lemma Rplus_eq_reg_l : forall r r1 r2, r + r1 = r + r2 -> r1 = r2.
#[global]
Hint Resolve Rplus_eq_reg_l: real.
Lemma Rplus_eq_reg_r : forall r r1 r2, r1 + r = r2 + r -> r1 = r2.
Lemma Rplus_0_r_uniq : forall r r1, r + r1 = r -> r1 = 0.
Lemma Ropp_neq_0_compat : forall r, r <> 0 -> - r <> 0.
#[global]
Hint Resolve Ropp_neq_0_compat: real.
Lemma Ropp_plus_distr : forall r1 r2, - (r1 + r2) = - r1 + - r2.
#[global]
Hint Resolve Ropp_plus_distr: real.