From 57fef3b454e11cb5b82e73a4f211084e9f9c1b90 Mon Sep 17 00:00:00 2001
From: delahaye
Date: Tue, 21 Nov 2000 22:29:06 +0000
Subject: Traitement du pretty-print des Redexp

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

(limited to 'syntax')

diff --git a/syntax/PPTactic.v b/syntax/PPTactic.v
index ad74e47361..b1951775ec 100644
--- a/syntax/PPTactic.v
+++ b/syntax/PPTactic.v
@@ -216,7 +216,8 @@ Syntax tactic
   | reduce_simpl [<<(REDEXP (Simpl))>>] -> ["Simpl"]
   | reduce_cbv [<<(REDEXP (Cbv ($LIST $lf)))>>] -> ["Cbv" (FLAGS ($LIST $lf))]
   | reduce_compute [<<(REDEXP (Cbv (Beta) (Delta) (Iota)))>>] -> [ "Compute" ]
-  | reduce_lazy [<<(REDEXP (Lazy ($LIST $lf)))>>] -> ["Lazy" (FLAGS ($LIST $lf))]
+  | reduce_lazy [<<(REDEXP (Lazy ($LIST $lf)))>>] ->
+    ["Lazy" (FLAGS ($LIST $lf))]
   | reduce_unfold [<<(REDEXP (Unfold ($LIST $unf)))>>] ->
        [ [<hv 3> "Unfold " (UNFOLDLIST ($LIST $unf))] ]
   | reduce_fold [<<(REDEXP (Fold ($LIST $cl)))>>] ->
@@ -231,10 +232,12 @@ Syntax tactic
         [ [1 0] "Delta" (FLAGS ($LIST $F))]
   | flags_iota [<<(FLAGS (Iota) ($LIST $F))>>] ->
         [ [1 0] "Iota" (FLAGS ($LIST $F))]
-  | delta_unf [<<(FLAGS (Unf ($LIST $idl)))>>]
-         -> [ [1 0] "[" [<hov 0> (LISTSPC ($LIST $idl)) ] "]" ]
-  | delta_unfbut [<<(FLAGS (UnfBut ($LIST $idl)))>>]
-         -> [ [1 0] "-[" [<hov 0> (LISTSPC ($LIST $idl)) ] "]" ]
+  | delta_unf [<<(FLAGS (Unf ($LIST $idl)) ($LIST $F))>>]
+         -> [ [1 0] "[" [<hov 0> (LISTSPC ($LIST $idl)) ] "]"
+              (FLAGS ($LIST $F))]
+  | delta_unfbut [<<(FLAGS (UnfBut ($LIST $idl)) ($LIST $F))>>]
+         -> [ [1 0] "-[" [<hov 0> (LISTSPC ($LIST $idl)) ] "]"
+              (FLAGS ($LIST $F))]
   | flags_nil [<<(FLAGS)>>] -> [ ]
 
 
-- 
cgit v1.2.3