diff options
author | 2002-02-11 15:34:05 +0000 | |
---|---|---|
committer | 2002-02-11 15:34:05 +0000 | |
commit | 3be41a001ce4e61bbc16258ea66457267e048035 (patch) | |
tree | 27c71c7db251e6cff7b549a7b2db99c1df168708 /syntax | |
parent | 36299bab279091a6822942599f574cc9fa8795ca (diff) |
bad printing of Zeta reduction flags (was missing)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2465 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'syntax')
-rw-r--r-- | syntax/PPTactic.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/syntax/PPTactic.v b/syntax/PPTactic.v index 517c522f4..05effb243 100644 --- a/syntax/PPTactic.v +++ b/syntax/PPTactic.v @@ -317,7 +317,8 @@ Syntax tactic | reduce_hnf [<<(REDEXP (Hnf))>>] -> ["Hnf"] | reduce_simpl [<<(REDEXP (Simpl))>>] -> ["Simpl"] | reduce_cbv [<<(REDEXP (Cbv ($LIST $lf)))>>] -> ["Cbv" (FLAGS ($LIST $lf))] - | reduce_compute [<<(REDEXP (Cbv (Beta) (Delta) (Iota)))>>] -> [ "Compute" ] + | reduce_compute [<<(REDEXP (Cbv (Beta) (Delta) (Iota) (Zeta)))>>] -> + [ "Compute" ] | reduce_lazy [<<(REDEXP (Lazy ($LIST $lf)))>>] -> ["Lazy" (FLAGS ($LIST $lf))] | reduce_unfold [<<(REDEXP (Unfold ($LIST $unf)))>>] -> @@ -334,6 +335,8 @@ Syntax tactic [ [1 0] "Delta" (FLAGS ($LIST $F))] | flags_iota [<<(FLAGS (Iota) ($LIST $F))>>] -> [ [1 0] "Iota" (FLAGS ($LIST $F))] + | flags_zeta [<<(FLAGS (Zeta) ($LIST $F))>>] -> + [ [1 0] "Zeta" (FLAGS ($LIST $F))] | delta_unf [<<(FLAGS (Unf ($LIST $idl)) ($LIST $F))>>] -> [ [1 0] "[" [<hov 0> (LISTSPC ($LIST $idl)) ] "]" (FLAGS ($LIST $F))] |