diff options
| author | herbelin | 2002-10-13 13:11:51 +0000 |
|---|---|---|
| committer | herbelin | 2002-10-13 13:11:51 +0000 |
| commit | 123b71c1fcc665582d83f975ace84511f8192d13 (patch) | |
| tree | 30737ed89537b4a7d28722dbb1dc4f612a3d3189 /theories | |
| parent | 517e5e549f0acb0c182de347edd09c3366039839 (diff) | |
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
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Init/DatatypesSyntax.v | 20 |
1 files changed, 2 insertions, 18 deletions
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 ")" ] ] |