diff options
| author | herbelin | 2002-05-29 10:59:28 +0000 |
|---|---|---|
| committer | herbelin | 2002-05-29 10:59:28 +0000 |
| commit | 0e32f3e1b0e8d5ea00d0495df691797eb7379a4e (patch) | |
| tree | 07dbfb62ae0a4e12e9d898fd9cf7b82eabe7cbe3 /theories/Init/DatatypesSyntax.v | |
| parent | a3a86ffb2548cc3801a9ab53759339938d80e375 (diff) | |
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
Diffstat (limited to 'theories/Init/DatatypesSyntax.v')
| -rw-r--r-- | theories/Init/DatatypesSyntax.v | 11 |
1 files changed, 10 insertions, 1 deletions
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 ")" ] ] |