(************************************************************************)
(*                                                                      *)
(* Micromega: A reflexive tactic using the Positivstellensatz           *)
(*                                                                      *)
(*  Frédéric Besson (Irisa/Inria) 2006-2008                             *)
(*                                                                      *)
(************************************************************************)
Open Scope R_scope.
(* Other (simple) examples *)
Goal forall x, -x^2 >= 0 -> x - 1 >= 0 -> False.
Goal forall x, -x^2 >= 0 -> x - 1 >= 0 -> False.
intros; split_Rabs; lra.
Qed.

(*  Bug 5073 *)
Lemma opp_eq_0_iff a : -a = 0 <-> a = 0.