From edf93e9217fbace104ac56f9cb8e0bd425e1e392 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 11 Jan 2000 09:34:28 +0000
Subject: Bugs

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@274 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 syntax/PPCases.v | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'syntax')

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:
-- 
cgit v1.2.3