From 92c43edb177407876440067a9298fd78e246d12c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Dec 1999 09:52:15 +0000
Subject: 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
---
 syntax/PPCases.v | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'syntax')

diff --git a/syntax/PPCases.v b/syntax/PPCases.v
index 801de0a67d..cbb66e1dc2 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)] -> [ ]
-- 
cgit v1.2.3