diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-10 09:52:15 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-10 09:52:15 +0000 |
commit | 92c43edb177407876440067a9298fd78e246d12c (patch) | |
tree | 540c96b1698313ebe09ed19cb80abddd490e8267 /syntax | |
parent | 85bd945e22abc31fec8f89da1779d94027323e91 (diff) |
Suppression Rel de rawconstr et correction de bugs d'affichage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@228 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
-rw-r--r-- | syntax/PPCases.v | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/syntax/PPCases.v b/syntax/PPCases.v index 801de0a67..cbb66e1dc 100644 --- a/syntax/PPCases.v +++ b/syntax/PPCases.v @@ -31,10 +31,8 @@ Syntax constr -> [ "| " $eqn ] | tomatch [(TOMATCH ($LIST $lc))] -> [(NECOMMANDLIST2 ($LIST $lc)):E] - ; + | pattconstruct [(PATTCONSTRUCT ($LIST $T))] -> [(APPLIST ($LIST $T))] - level 10: - pattconstruct [(PATTCONSTRUCT ($LIST $T))] -> [(APPLIST ($LIST $T))] ; level 8: @@ -58,7 +56,8 @@ Syntax constr (* "level" indifférent pour ce qui suit *) | let_binder_var [(LETBINDER ($VAR $id))] -> [ $id ] - | let_binder_app [(LETBINDER (APPLIST $toforget ($VAR $id) ($LIST $vars)))] + | let_binder_app + [(LETBINDER (PATTCONSTRUCT $toforget ($VAR $id) ($LIST $vars)))] -> [ "(" $id (LETBINDERTAIL ($LIST $vars)) ")" ] | let_binder_tail_nil [(LETBINDERTAIL)] -> [ ] |