diff options
| author | herbelin | 2002-11-25 12:11:45 +0000 |
|---|---|---|
| committer | herbelin | 2002-11-25 12:11:45 +0000 |
| commit | 2fb6de71c225ebd8ebada632b3f45ee9c878ddc9 (patch) | |
| tree | eee14a629360f42118e9230be970f6766a772d77 /theories/Init/DatatypesSyntax.v | |
| parent | 9959822ab73b7ede86249cc996ece22256d55e5a (diff) | |
Oubli
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3277 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init/DatatypesSyntax.v')
| -rw-r--r-- | theories/Init/DatatypesSyntax.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/theories/Init/DatatypesSyntax.v b/theories/Init/DatatypesSyntax.v index f1f7bba8a0..3b26f6cbbd 100644 --- a/theories/Init/DatatypesSyntax.v +++ b/theories/Init/DatatypesSyntax.v @@ -14,12 +14,13 @@ Require Export Datatypes. Infix LEFTA 4 "+" sum. Infix LEFTA 3 "*" prod. -Notation "( x , y )" := (pair ? ? x y) (at level 0, x, y at level 10). +Notation "( x , y )" := (pair ? ? x y) (at level 0). Notation Fst := (fst ? ?). Notation Snd := (snd ? ?). (** Parsing only of things in [Datatypes.v] *) +Notation "< A , B > ( x , y )" := (pair A B x y) (at level 0, only parsing). Notation "< A , B > 'Fst' ( p )" := (fst A B p) (at level 1, only parsing). Notation "< A , B > 'Snd' ( p )" := (snd A B p) (at level 1, only parsing). |