diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-18 11:29:23 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-18 11:29:23 +0000 |
| commit | e4a667a4503de1ebda52aee4aa5e08fb0711f1ce (patch) | |
| tree | c4ff3db280f0dd3ac6c132b701fc6073a4f6323e /theories/ZArith/ZArith_dec.v | |
| parent | adf6390ab7bf96b0ffd699e96bd6b27bd9d99d98 (diff) | |
Tentative de suppression de l'import automatique des hints et coercions.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13293 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/ZArith/ZArith_dec.v')
| -rw-r--r-- | theories/ZArith/ZArith_dec.v | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/theories/ZArith/ZArith_dec.v b/theories/ZArith/ZArith_dec.v index 2dce5fbe4..a8b5576f5 100644 --- a/theories/ZArith/ZArith_dec.v +++ b/theories/ZArith/ZArith_dec.v @@ -100,8 +100,8 @@ Section decidability. Definition Z_le_gt_dec : {x <= y} + {x > y}. Proof. - elim Z_le_dec; auto with arith. - intro. right. apply Znot_le_gt; auto with arith. + elim Z_le_dec; auto. + intro. right. apply Znot_le_gt; auto. Defined. Definition Z_gt_le_dec : {x > y} + {x <= y}. @@ -111,17 +111,17 @@ Section decidability. Definition Z_ge_lt_dec : {x >= y} + {x < y}. Proof. - elim Z_ge_dec; auto with arith. - intro. right. apply Znot_ge_lt; auto with arith. + elim Z_ge_dec; auto. + intro. right. apply Znot_ge_lt; auto. Defined. Definition Z_le_lt_eq_dec : x <= y -> {x < y} + {x = y}. Proof. intro H. apply Zcompare_rec with (n := x) (m := y). - intro. right. elim (Zcompare_Eq_iff_eq x y); auto with arith. - intro. left. elim (Zcompare_Eq_iff_eq x y); auto with arith. - intro H1. absurd (x > y); auto with arith. + intro. right. elim (Zcompare_Eq_iff_eq x y); auto. + intro. left. elim (Zcompare_Eq_iff_eq x y); auto. + intro H1. absurd (x > y); auto. Defined. End decidability. |