diff options
| author | emakarov | 2007-11-08 17:06:32 +0000 |
|---|---|---|
| committer | emakarov | 2007-11-08 17:06:32 +0000 |
| commit | 8a51418e76da874843d6b58b6615dc12a82e2c0a (patch) | |
| tree | 237cd1a934d3a24f1d954e7400e5a683476deb23 /theories/Numbers/Natural/Abstract/NPlus.v | |
| parent | c08b8247aec05b34a908663aa160fdbd617b8220 (diff) | |
Moved several lemmas from theories/Numbers/NumPrelude to theories/Init/Logic.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10304 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Natural/Abstract/NPlus.v')
| -rw-r--r-- | theories/Numbers/Natural/Abstract/NPlus.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/theories/Numbers/Natural/Abstract/NPlus.v b/theories/Numbers/Natural/Abstract/NPlus.v index 32912a73d6..a033d95a09 100644 --- a/theories/Numbers/Natural/Abstract/NPlus.v +++ b/theories/Numbers/Natural/Abstract/NPlus.v @@ -67,8 +67,10 @@ intros n m; induct n. (* The next command does not work with the axiom plus_0_l from NPlusSig *) rewrite plus_0_l. intuition reflexivity. intros n IH. rewrite plus_succ_l. -rewrite_false (S (n + m) == 0) neq_succ_0. -rewrite_false (S n == 0) neq_succ_0. tauto. +setoid_replace (S (n + m) == 0) with False using relation iff by + (apply -> neg_false; apply neq_succ_0). +setoid_replace (S n == 0) with False using relation iff by + (apply -> neg_false; apply neq_succ_0). tauto. Qed. Theorem plus_eq_succ : |