diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-08 23:04:24 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-08-08 23:04:24 +0000 |
| commit | 022f78302514e071ca60c2e8719a1e2ec66eaed6 (patch) | |
| tree | 7942a37a69f7e591324daff14c20dea10f9c6bcb /theories/Vectors | |
| parent | ea09770efde4a7bdd573407a408e54ec2b41b6ad (diff) | |
New proposition "rewrite Heq in H" for eq_rect (assuming that there is
a smaller risk that "rewrite" clashes with a name used for constr).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14390 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Vectors')
| -rw-r--r-- | theories/Vectors/VectorDef.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Vectors/VectorDef.v b/theories/Vectors/VectorDef.v index adc2c09a3..9129b94de 100644 --- a/theories/Vectors/VectorDef.v +++ b/theories/Vectors/VectorDef.v @@ -202,13 +202,13 @@ Import EqdepFacts. (** This one has a better type *) Definition rev_append {A n p} (v: t A n) (w: t A p) :t A (n + p) := - rew <- (plus_tail_plus n p) in (rev_append_tail v w). + rewrite <- (plus_tail_plus n p) in (rev_append_tail v w). (** rev [a₁ ; a₂ ; .. ; an] is [an ; a{n-1} ; .. ; a₁] Caution : There is a lot of rewrite garbage in this definition *) Definition rev {A n} (v : t A n) : t A n := - rew <- (plus_n_O _) in (rev_append v []). + rewrite <- (plus_n_O _) in (rev_append v []). End BASES. Local Notation "v [@ p ]" := (nth v p) (at level 1). |