diff options
author | 2010-12-10 13:22:29 +0000 | |
---|---|---|
committer | 2010-12-10 13:22:29 +0000 | |
commit | 05085e80668a4d1dedc522c6af343168870cc648 (patch) | |
tree | 084048fdff9f8d460e75ece78d5297b583d952f4 /theories/Init/Peano.v | |
parent | d52641d2cda2af132c13dcb481f753d51e7af216 (diff) |
First release of Vector library.
To avoid names¬ations clashs with list, Vector shouldn't be
"Import"ed but one can "Import Vector.VectorNotations." to have
notations.
SetoidVector at least remains to do.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13702 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init/Peano.v')
-rw-r--r-- | theories/Init/Peano.v | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/theories/Init/Peano.v b/theories/Init/Peano.v index f449d8383..216ca35af 100644 --- a/theories/Init/Peano.v +++ b/theories/Init/Peano.v @@ -50,13 +50,7 @@ Qed. (** Injectivity of successor *) -Theorem eq_add_S : forall n m:nat, S n = S m -> n = m. -Proof. - intros n m Sn_eq_Sm. - replace (n=m) with (pred (S n) = pred (S m)) by auto using pred_Sn. - rewrite Sn_eq_Sm; trivial. -Qed. - +Definition eq_add_S n m (H: S n = S m): n = m := f_equal pred H. Hint Immediate eq_add_S: core. Theorem not_eq_S : forall n m:nat, n <> m -> S n <> S m. |