From 5bb2935198434eceea41e1b966b56a175def396d Mon Sep 17 00:00:00 2001
From: notin
Date: Fri, 28 Mar 2008 18:15:23 +0000
Subject: Correction du bug 1816 (ajout d'un lemme dans Znat) et suppression
 d'un test non significatif

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10726 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/bugs/opened/shouldnotfail/1449.v | 5 -----
 theories/ZArith/Znat.v                      | 5 +++++
 2 files changed, 5 insertions(+), 5 deletions(-)
 delete mode 100644 test-suite/bugs/opened/shouldnotfail/1449.v

diff --git a/test-suite/bugs/opened/shouldnotfail/1449.v b/test-suite/bugs/opened/shouldnotfail/1449.v
deleted file mode 100644
index d9695360f9..0000000000
--- a/test-suite/bugs/opened/shouldnotfail/1449.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Require Import Arith.
-
-Goal 0 <= 0.
-  eapply le_trans.
-  setoid_rewrite mult_comm.
diff --git a/theories/ZArith/Znat.v b/theories/ZArith/Znat.v
index ec37c1412f..5d3b201607 100644
--- a/theories/ZArith/Znat.v
+++ b/theories/ZArith/Znat.v
@@ -29,6 +29,11 @@ Definition neq (x y:nat) := x <> y.
 
 (** Injection and successor *)
 
+Theorem inj_0 : Z_of_nat 0 = 0%Z.
+Proof.
+  reflexivity.
+Qed.
+
 Theorem inj_S : forall n:nat, Z_of_nat (S n) = Zsucc (Z_of_nat n).
 Proof.
   intro y; induction y as [| n H];
-- 
cgit v1.2.3