diff options
| author | herbelin | 2001-11-08 14:05:24 +0000 |
|---|---|---|
| committer | herbelin | 2001-11-08 14:05:24 +0000 |
| commit | 8640627fa00798b429baf56937a66f1621be0a02 (patch) | |
| tree | c944bab5d696874e1eca84b92334430c6329fd9f /syntax | |
| parent | afe0053676782fa7c990af622e95924d6ce5aaf7 (diff) | |
Prise en compte de la syntaxe [x:=c:t]b comme équivalent de [x:=c::t]b
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2170 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
| -rwxr-xr-x | syntax/PPConstr.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v index f78ef411ea..ee259cbfa1 100755 --- a/syntax/PPConstr.v +++ b/syntax/PPConstr.v @@ -144,8 +144,11 @@ Syntax constr [ $A:L [0 0] "->" (ARROWBOX $B) ] (* These are synonymous *) +(* redundant | let [ [$x = $M]$N ] -> [ [<hov 0> "[" $x "=" $M:E "]" [0 1] $N:E ] ] +*) | letin [ [$x := $A]$B ] -> [ [ <hov 0> "[" $x ":=" $A:E "]" [0 1] $B:E ] ] + | letincast [ [$x := $A : $C]$B ] -> [ [ <hov 0> "[" $x ":=" $A:E ":" $C:E "]" [0 1] $B:E ] ] ; (* Things parsed in command9 *) |