Niveau d'associativité du let

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@688 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 4 deletions

diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v
index 800d06d20..766446545 100755
--- a/syntax/PPConstr.v
+++ b/syntax/PPConstr.v
@@ -58,10 +58,6 @@ Syntax constr
     soap [(SOAPP $lc1 ($LIST $cl))]
       -> [ [<hov 0> "(" $lc1 ")@[" (NECOMMANDLIST ($LIST $cl)) "]"] ]
 
-(* These are synonymous *)
-  | 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 ] ]
-
   (* For debug *)
   | abstpatnamed [[$id1]$c] -> [ [<hov 0> "<<" $id1 ">>" [0 1] $c:E ] ]
   | abstpatanon  [[ <> ]$c] -> [ [<hov 0> "<<_>>" [0 1] $c:E ] ]
@@ -132,6 +128,10 @@ Syntax constr
   | arrow [<< $A -> $B >>] -> [ [<hv 0> $A:L [0 0] "->" (ARROWBOX $B) ] ]
   | arrow_stop [(ARROWBOX $c)] -> [ $c:E ]
   | arrow_again [(ARROWBOX << $A -> $B >>)] -> [ $A:L [0 0] "->" (ARROWBOX $B) ]
+
+(* These are synonymous *)
+  | 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 ] ]
   ;
 
 (* Things parsed in command9 *)