diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-18 11:36:56 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-18 11:36:56 +0000 |
| commit | f8ca52b3f44c2ad6b0e26a3b08a9ebbd2bbb641d (patch) | |
| tree | 7565397787178d5f70aaa79e4d8dafdd4bc6b933 /theories/ZArith/Zeven.v | |
| parent | e4a667a4503de1ebda52aee4aa5e08fb0711f1ce (diff) | |
Reverted 13293 commited mistakenly. Sorry for the noise.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13294 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 0c87f6223..4dfce35ce 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. - 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. + 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. 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. - destruct p; auto. - intros. absurd (Zodd (Zpos (xO p))); red in |- *; auto. - intros. absurd (Zneg p >= 0); red in |- *; auto. + 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. 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. - intros. absurd (Zneg p >= 0); red in |- *; auto. - destruct p; auto. - intros. absurd (Zodd (Zneg (xO p))); red in |- *; auto. + 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. Qed. Lemma Z_modulo_2 : |