diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-21 22:29:06 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-21 22:29:06 +0000 |
| commit | 57fef3b454e11cb5b82e73a4f211084e9f9c1b90 (patch) | |
| tree | 910cfee8c848826c6ea5e8d999a2446d87003e8a /syntax | |
| parent | e1941158cbc90692dfa3eadff256e4160da26e43 (diff) | |
Traitement du pretty-print des Redexp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@911 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
| -rw-r--r-- | syntax/PPTactic.v | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/syntax/PPTactic.v b/syntax/PPTactic.v index ad74e4736..b1951775e 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)>>] -> [ ] |