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/Zeven.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/Zeven.v')
| -rw-r--r-- | theories/ZArith/Zeven.v | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/theories/ZArith/Zeven.v b/theories/ZArith/Zeven.v index 4dfce35ce..0c87f6223 100644 --- a/theories/ZArith/Zeven.v +++ b/theories/ZArith/Zeven.v @@ -145,32 +145,32 @@ Definition Zdiv2 (z:Z) := Lemma Zeven_div2 : forall n:Z, Zeven n -> n = 2 * Zdiv2 n. Proof. intro x; destruct x. - auto with arith. - destruct p; auto with arith. - intros. absurd (Zeven (Zpos (xI p))); red in |- *; auto with arith. - intros. absurd (Zeven 1); red in |- *; auto with arith. - destruct p; auto with arith. - intros. absurd (Zeven (Zneg (xI p))); red in |- *; auto with arith. - intros. absurd (Zeven (-1)); red in |- *; auto with arith. + auto. + destruct p; auto. + intros. absurd (Zeven (Zpos (xI p))); red in |- *; auto. + intros. absurd (Zeven 1); red in |- *; auto. + destruct p; auto. + intros. absurd (Zeven (Zneg (xI p))); red in |- *; auto. + intros. absurd (Zeven (-1)); red in |- *; auto. Qed. Lemma Zodd_div2 : forall n:Z, n >= 0 -> Zodd n -> n = 2 * Zdiv2 n + 1. Proof. intro x; destruct x. - intros. absurd (Zodd 0); red in |- *; auto with arith. - destruct p; auto with arith. - intros. absurd (Zodd (Zpos (xO p))); red in |- *; auto with arith. - intros. absurd (Zneg p >= 0); red in |- *; auto with arith. + intros. absurd (Zodd 0); red in |- *; auto. + destruct p; auto. + intros. absurd (Zodd (Zpos (xO p))); red in |- *; auto. + intros. absurd (Zneg p >= 0); red in |- *; auto. Qed. Lemma Zodd_div2_neg : forall n:Z, n <= 0 -> Zodd n -> n = 2 * Zdiv2 n - 1. Proof. intro x; destruct x. - intros. absurd (Zodd 0); red in |- *; auto with arith. - intros. absurd (Zneg p >= 0); red in |- *; auto with arith. - destruct p; auto with arith. - intros. absurd (Zodd (Zneg (xO p))); red in |- *; auto with arith. + intros. absurd (Zodd 0); red in |- *; auto. + intros. absurd (Zneg p >= 0); red in |- *; auto. + destruct p; auto. + intros. absurd (Zodd (Zneg (xO p))); red in |- *; auto. Qed. Lemma Z_modulo_2 : |