diff options
| author | herbelin | 2003-11-03 10:15:37 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-03 10:15:37 +0000 |
| commit | 6e4d36773113d9f103e7161e0a4ed05deeff5324 (patch) | |
| tree | daff97355d2c5e187e2483cf2843dfce4e8d6f51 | |
| parent | f66e4ea1332890184da5f1b471fe73723fd6aa14 (diff) | |
Exporting ^; utilisation arg scope implicite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4783 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | theories/ZArith/Zpower.v | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/theories/ZArith/Zpower.v b/theories/ZArith/Zpower.v index 603adfb01b..73e8a08da3 100644 --- a/theories/ZArith/Zpower.v +++ b/theories/ZArith/Zpower.v @@ -91,6 +91,10 @@ Qed. End section1. +(* Exporting notation "^" *) + +Infix "^" Zpower (at level 2, left associativity) : Z_scope V8only. + Hints Immediate Zpower_nat_is_exp : zarith. Hints Immediate Zpower_pos_is_exp : zarith. Hints Unfold Zpower_pos : zarith. @@ -316,7 +320,7 @@ Elim (convert p); Simpl; [ Trivial with zarith | Intro n; Rewrite (two_power_nat_S n); Unfold 2 Zdiv_rest_aux; - Elim (iter_nat n 'T:(Z*Z)*Z ' Zdiv_rest_aux ((x,`0`),`1`)); + Elim (iter_nat n (Z*Z)*Z Zdiv_rest_aux ((x,`0`),`1`)); NewDestruct a; Intros; Apply f_equal with f:=[z:Z]`2*z`; Assumption ]. Qed. @@ -378,7 +382,7 @@ Lemma Zdiv_rest_correct : (x:Z)(p:positive)(Zdiv_rest_proofs x p). Intros x p. Generalize (Zdiv_rest_correct1 x p); Generalize (Zdiv_rest_correct2 x p). -Elim (iter_pos p 'T:(Z*Z)*Z ' Zdiv_rest_aux ((x,`0`),`1`)). +Elim (iter_pos p (Z*Z)*Z Zdiv_rest_aux ((x,`0`),`1`)). Induction a. Intros. Elim H; Intros H1 H2; Clear H. |