diff options
| author | herbelin | 2011-08-08 23:04:24 +0000 |
|---|---|---|
| committer | herbelin | 2011-08-08 23:04:24 +0000 |
| commit | 022f78302514e071ca60c2e8719a1e2ec66eaed6 (patch) | |
| tree | 7942a37a69f7e591324daff14c20dea10f9c6bcb /theories/Init | |
| 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/Init')
| -rw-r--r-- | theories/Init/Logic.v | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index 4c4bf6253a..00a93efa0c 100644 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -334,12 +334,12 @@ Section Logic_lemmas. Defined. End Logic_lemmas. -Notation "'rew' H 'in' H'" := (eq_rect _ _ H' _ H) - (at level 0, H' at level 9). -Notation "'rew' <- H 'in' H'" := (eq_rect_r _ H' H) - (at level 0, H' at level 9). -Notation "'rew' -> H 'in' H'" := (eq_rect _ _ H' _ H) - (at level 0, H' at level 9, only parsing). +Notation "'rewrite' H 'in' H'" := (eq_rect _ _ H' _ H) + (at level 10, H' at level 9). +Notation "'rewrite' <- H 'in' H'" := (eq_rect_r _ H' H) + (at level 10, H' at level 9). +Notation "'rewrite' -> H 'in' H'" := (eq_rect _ _ H' _ H) + (at level 10, H' at level 9, only parsing). Theorem f_equal2 : forall (A1 A2 B:Type) (f:A1 -> A2 -> B) (x1 y1:A1) |