From 123b71c1fcc665582d83f975ace84511f8192d13 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 13 Oct 2002 13:11:51 +0000
Subject: Déplacement de + et * aux niveaux de précédence 7 et 6

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3122 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Init/DatatypesSyntax.v | 20 ++------------------
 1 file changed, 2 insertions(+), 18 deletions(-)

(limited to 'theories')

diff --git a/theories/Init/DatatypesSyntax.v b/theories/Init/DatatypesSyntax.v
index 8d1c2c4248..d51e7acbcb 100644
--- a/theories/Init/DatatypesSyntax.v
+++ b/theories/Init/DatatypesSyntax.v
@@ -23,30 +23,14 @@ Grammar constr constr1 :=
 with constr0 :=
   pair [ "(" lconstr($lc1) "," lconstr($lc2) ")" ] ->
          [ (pair ? ? $lc1 $lc2) ]
-
-(*
-with constr3 :=
-  prod [ constr2($c1) "*" constr3($c2) ] -> [ (prod $c1 $c2) ]
-*)
 .
 
-Infix 4 "+" sum.
-
-Infix RIGHTA 3 "*" prod.
+Infix 7 "+" sum.
+Infix RIGHTA 6 "*" prod.
 
 (** Pretty-printing of things in Datatypes.v *)
 
 Syntax constr
-(*
-  level 4:
-    sum [ (sum $t1 $t2) ] -> [ [<hov 0> $t1:E [0 1] "+" $t2:L ] ]
-  ;
-
-  level 3:
-    product [ (prod $t1 $t2) ] -> [ [<hov 0>  $t1:L [0 1] "*" $t2:E ] ]
-  ;
-
-*)
   level 1:
     pair
       [ (pair $_ $_ $t3 $t4) ] -> [ [<hov 0> "(" $t3:E ","[0 1] $t4:E ")" ] ]
-- 
cgit v1.2.3