diff options
| author | herbelin | 2011-07-16 20:35:17 +0000 |
|---|---|---|
| committer | herbelin | 2011-07-16 20:35:17 +0000 |
| commit | b341c644ed7ad52779b148e7ba6e3dd9158c2174 (patch) | |
| tree | c554a697bfa97f3c813e6e90a1d76dbe1c35f3b6 /theories/Init | |
| parent | 30a54a6db8190ae1dea5a9182148cb4f38ec7e02 (diff) | |
Tentative abbreviation "rew Heq in H" for eq_rect. (feedback welcome)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14281 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init')
| -rw-r--r-- | theories/Init/Logic.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index 8551ca97dc..82d2e04d77 100644 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -331,6 +331,13 @@ 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). + Theorem f_equal2 : forall (A1 A2 B:Type) (f:A1 -> A2 -> B) (x1 y1:A1) (x2 y2:A2), x1 = y1 -> x2 = y2 -> f x1 x2 = f y1 y2. |