diff options
| author | herbelin | 2003-10-21 12:23:50 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-21 12:23:50 +0000 |
| commit | 4711f62e1ea08cb7c4b5f366c2cefe25b495a20c (patch) | |
| tree | f3762db1b6f5001e7245e6704dacfca3150d12fe | |
| parent | baacd9ba5f71a4fc0ce95e226d6a10b689736c82 (diff) | |
Redondance de dec_eq_nat
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4692 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | theories/ZArith/auxiliary.v | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/theories/ZArith/auxiliary.v b/theories/ZArith/auxiliary.v index ec8b42ac71..b376e31beb 100644 --- a/theories/ZArith/auxiliary.v +++ b/theories/ZArith/auxiliary.v @@ -157,9 +157,6 @@ Theorem dec_Zlt: (x,y:Z) (decidable (Zlt x y)). Intros x y; Unfold decidable Zlt ; Elim (Zcompare x y); [ Right; Discriminate | Auto with arith | Right; Discriminate]. Qed. -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. Theorem not_Zge : (x,y:Z) ~(Zge x y) -> (Zlt x y). Unfold Zge Zlt ; Intros x y H; Apply dec_not_not; |