From ea83f1ad9e93f4826a1363d22913d19bb7d47866 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 14 Sep 2000 07:35:23 +0000
Subject: Bugs parenthèses
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@607 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 syntax/PPConstr.v | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'syntax')

diff --git a/syntax/PPConstr.v b/syntax/PPConstr.v
index 25f8a2c7f..f8c8447af 100755
--- a/syntax/PPConstr.v
+++ b/syntax/PPConstr.v
@@ -25,6 +25,9 @@ Syntax constr
          (BINDERS ($LIST $b))  ]
   | bindersone  [(BINDERS (BINDER $c ($LIST $id)))] -> 
        [ [<hov 0> (IDBINDER ($LIST $id))] ":" $c:E ]
+
+  | letbinder  [(BINDERS (LETBINDER $c $id))] -> 
+       [ [<hov 0> $id ":=" $c:E ] ]
   ;
 
 
@@ -54,10 +57,10 @@ Syntax constr
   level 1:
     soap [(SOAPP $lc1 ($LIST $cl))]
       -> [ [<hov 0> "(" $lc1 ")@[" (NECOMMANDLIST ($LIST $cl)) "]"] ]
-  | let_K [(ABST #Core#let.cci $M [<>]$N)]
-      -> [ [<hov 0> "[_=" $M "]" [0 1] $N:E ] ]
 
+(* 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 ] ]
@@ -129,8 +132,6 @@ Syntax constr
   | lambdal_cons [(LAMLBOX $pbi $c (IDS ($LIST $ids)) [$id]$body)]
       -> [(LAMLBOX $pbi $c (IDS ($LIST $ids) $id) $body)]
 
-  | letin [<<[$x = $A] $B>>] -> [ [ <hov 0> "[" $x ":=" $A "]" [0 1] $B:E ] ]
-
   | pi [<<($x : $A)$B>>] -> [(PRODBOX (BINDERS) <<($x : $A)$B>>)]
   | prodlist  [(PRODLIST $c $b)]
        -> [(PRODBOX (BINDERS) (PRODLIST $c $b))]
-- 
cgit v1.2.3