Added opp_Z2R.

03ad1620 · Guillaume Melquiond · d8afcec3 · 03ad1620
Commit 03ad1620 authored Jan 22, 2009 by Guillaume Melquiond
--- a/src/Flocq_Raux.v
+++ b/src/Flocq_Raux.v
@@ -79,6 +79,14 @@ apply Ropp_eq_compat.
 apply P2R_INR.
 Qed.

+Lemma opp_Z2R :
+  forall n, Z2R (-n) = (- Z2R n)%R.
+Proof.
+intros.
+repeat rewrite Z2R_IZR.
+apply Ropp_Ropp_IZR.
+Qed.
+
 Lemma plus_Z2R :
  forall m n, (Z2R (m + n) = Z2R m + Z2R n)%R.
 Proof.