diff options
| author | herbelin | 2000-01-11 09:34:28 +0000 |
|---|---|---|
| committer | herbelin | 2000-01-11 09:34:28 +0000 |
| commit | edf93e9217fbace104ac56f9cb8e0bd425e1e392 (patch) | |
| tree | da16898afbeaeb5a522f708af52f6e6f82b20731 /syntax | |
| parent | df75cf61c8fb77a0b0097c761d42cf6057f11805 (diff) | |
Bugs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@274 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
| -rw-r--r-- | syntax/PPCases.v | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/syntax/PPCases.v b/syntax/PPCases.v index b26cd5a8c6..ef328fe77d 100644 --- a/syntax/PPCases.v +++ b/syntax/PPCases.v @@ -31,8 +31,15 @@ Syntax constr -> [ "| " $eqn ] | tomatch [(TOMATCH ($LIST $lc))] -> [(NECOMMANDLIST2 ($LIST $lc)):E] - | pattconstruct [(PATTCONSTRUCT ($LIST $T))] -> [(APPLIST ($LIST $T))] + ; + + level 10: + pattconstruct [(PATTCONSTRUCT $C $D ($LIST $T))] -> + [(APPLIST $C $D ($LIST $T))] + ; + level 0: + pattconstructatomic [(PATTCONSTRUCT $C)] -> [ $C ] ; level 8: |