diff options
| author | herbelin | 2013-05-05 22:47:45 +0000 |
|---|---|---|
| committer | herbelin | 2013-05-05 22:47:45 +0000 |
| commit | 299c4a61936d929dfde48f6631689583e76d5627 (patch) | |
| tree | bc99cac34f36d88c1be52db93da039f3a92e8863 | |
| parent | 742ef62fe8050a6865d06bd644e30cbec0e7eb02 (diff) | |
Improving printing of 'rew' notation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16473 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | theories/Init/Logic.v | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index ee14e012ae..804784b30e 100644 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -354,17 +354,22 @@ End Logic_lemmas. Module EqNotations. Notation "'rew' H 'in' H'" := (eq_rect _ _ H' _ H) - (at level 10, H' at level 10). + (at level 10, H' at level 10, + format "'[' 'rew' H in '/' H' ']'"). Notation "'rew' [ P ] H 'in' H'" := (eq_rect _ P H' _ H) - (at level 10, H' at level 10). + (at level 10, H' at level 10, + format "'[' 'rew' [ P ] '/ ' H in '/' H' ']'"). Notation "'rew' <- H 'in' H'" := (eq_rect_r _ H' H) - (at level 10, H' at level 10). + (at level 10, H' at level 10, + format "'[' 'rew' <- H in '/' H' ']'"). Notation "'rew' <- [ P ] H 'in' H'" := (eq_rect_r P H' H) - (at level 10, H' at level 10). + (at level 10, H' at level 10, + format "'[' 'rew' <- [ P ] '/ ' H in '/' H' ']'"). Notation "'rew' -> H 'in' H'" := (eq_rect _ _ H' _ H) (at level 10, H' at level 10, only parsing). Notation "'rew' -> [ P ] H 'in' H'" := (eq_rect _ P H' _ H) - (at level 10, H' at level 10). + (at level 10, H' at level 10, only parsing). + End EqNotations. Import EqNotations. |