From 0e32f3e1b0e8d5ea00d0495df691797eb7379a4e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 29 May 2002 10:59:28 +0000
Subject: Utilisation d'Infix/Distfix autant que possible

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

(limited to 'theories/Init/DatatypesSyntax.v')

diff --git a/theories/Init/DatatypesSyntax.v b/theories/Init/DatatypesSyntax.v
index 5b57b9e0b7..8d1c2c4248 100644
--- a/theories/Init/DatatypesSyntax.v
+++ b/theories/Init/DatatypesSyntax.v
@@ -24,12 +24,20 @@ with constr0 :=
   pair [ "(" lconstr($lc1) "," lconstr($lc2) ")" ] ->
          [ (pair ? ? $lc1 $lc2) ]
 
+(*
 with constr3 :=
-  prod [ constr2($c1) "*" constr3($c2) ] -> [ (prod $c1 $c2) ].
+  prod [ constr2($c1) "*" constr3($c2) ] -> [ (prod $c1 $c2) ]
+*)
+.
+
+Infix 4 "+" sum.
+
+Infix RIGHTA 3 "*" prod.
 
 (** Pretty-printing of things in Datatypes.v *)
 
 Syntax constr
+(*
   level 4:
     sum [ (sum $t1 $t2) ] -> [ [<hov 0> $t1:E [0 1] "+" $t2:L ] ]
   ;
@@ -38,6 +46,7 @@ Syntax constr
     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