diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 18:10:57 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-20 18:10:57 +0000 |
| commit | 1f96d480842a1206a9334d0c8b1b6cc4647066ef (patch) | |
| tree | 9fc22a20d49bcefca1d863aee9d36c5fab03334f /theories/Arith/Peano_dec.v | |
| parent | 6c7f6fa6c215e5e28fcf23bf28ccb9db543709ba (diff) | |
Transparent
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2035 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith/Peano_dec.v')
| -rwxr-xr-x | theories/Arith/Peano_dec.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/Arith/Peano_dec.v b/theories/Arith/Peano_dec.v index d847a060d..694351b67 100755 --- a/theories/Arith/Peano_dec.v +++ b/theories/Arith/Peano_dec.v @@ -15,17 +15,17 @@ Proof. NewInduction n. Auto. Left; Exists n; Auto. -Qed. +Defined. Theorem eq_nat_dec : (n,m:nat){n=m}+{~(n=m)}. Proof. NewInduction n; NewInduction m; Auto. Elim (IHn m); Auto. -Qed. +Defined. Hints Resolve O_or_S eq_nat_dec : arith. Theorem dec_eq_nat:(x,y:nat)(decidable (x=y)). Intros x y; Unfold decidable; Elim (eq_nat_dec x y); Auto with arith. -Qed. +Defined. |