diff options
| author | notin | 2008-03-28 18:15:23 +0000 |
|---|---|---|
| committer | notin | 2008-03-28 18:15:23 +0000 |
| commit | 5bb2935198434eceea41e1b966b56a175def396d (patch) | |
| tree | 1266f4bde8439fdcd33d6c1125a4e88622c2d8b8 | |
| parent | bca8775b49fd63c119cf2dd4f54c87676a93ed61 (diff) | |
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
| -rw-r--r-- | test-suite/bugs/opened/shouldnotfail/1449.v | 5 | ||||
| -rw-r--r-- | theories/ZArith/Znat.v | 5 |
2 files changed, 5 insertions, 5 deletions
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]; |