diff options
| author | herbelin | 2002-12-15 12:34:22 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-15 12:34:22 +0000 |
| commit | de32f8f70ca9e077cdfc922fff59530b74a0cfa6 (patch) | |
| tree | 8149a2deef4b436389f797002ab630dfb977b7f7 /theories/Init/SpecifSyntax.v | |
| parent | 356c712e811c23e496ace3684b3345972b5d8f71 (diff) | |
Une entrée spéciale "annot" pour les piquants
Positionnement du scope type_scope à certains endroits bien choisis
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3445 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init/SpecifSyntax.v')
| -rw-r--r-- | theories/Init/SpecifSyntax.v | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/theories/Init/SpecifSyntax.v b/theories/Init/SpecifSyntax.v index c3934e7b8d..9d868cb54d 100644 --- a/theories/Init/SpecifSyntax.v +++ b/theories/Init/SpecifSyntax.v @@ -24,13 +24,18 @@ Notation Except := (except ?). Notation Error := (error ?). Notation Value := (value ?). +Arguments Scope sig [type_scope type_scope]. +Arguments Scope sig2 [type_scope type_scope type_scope]. + Notation "{ x : A | P }" := (sig A [x:A]P) (at level 1). Notation "{ x : A | P & Q }" := (sig2 A [x:A]P [x:A]Q) (at level 1). +Arguments Scope sigS [type_scope type_scope]. +Arguments Scope sigS2 [type_scope type_scope type_scope]. + Notation "{ x : A & P }" := (sigS A [x:A]P) (at level 1). Notation "{ x : A & P & Q }" := (sigS2 A [x:A]P [x:A]Q) (at level 1). - (** Extra factorization of parsing rules *) (* Factorizing "sumor" at level 4 to parse B+{x:A|P} without parentheses *) |