diff options
| author | herbelin | 2009-05-20 14:07:14 +0000 |
|---|---|---|
| committer | herbelin | 2009-05-20 14:07:14 +0000 |
| commit | 8a6e3f648fa3171e3583e7c93c8967ac853a0d60 (patch) | |
| tree | 835f86f9c226e91b3f0be73342faa08fd1d4d755 /parsing | |
| parent | 18d4283e4129f6f347970c76d209817f1f66f232 (diff) | |
- Fixing declarative mode in presence of high use of Change_evars nodes
(bug 2092 and decl_mode.v in test suite).
- Added a debugging printer for pftreestate.
- Fixing American spelling in RefMan-decl.tex.
- Optimizing application of tactic validation by removing consistency
test in descend.
- Fixing printing ambiguity for Hint Rewrite ->/<- in extratactics.ml4.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12134 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/tactic_printer.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/parsing/tactic_printer.ml b/parsing/tactic_printer.ml index d50e520f99..49cec626f4 100644 --- a/parsing/tactic_printer.ml +++ b/parsing/tactic_printer.ml @@ -72,7 +72,7 @@ let thin_sign osign sign = with Not_found | Different -> Environ.push_named_context_val d sign) sign ~init:Environ.empty_named_context_val -let rec print_proof sigma osign pf = +let rec print_proof _sigma osign pf = let hyps = Environ.named_context_of_val pf.goal.evar_hyps in let hyps' = thin_sign osign hyps in match pf.ref with @@ -84,7 +84,7 @@ let rec print_proof sigma osign pf = spc () ++ str" BY " ++ hov 0 (pr_rule r) ++ fnl () ++ str" " ++ - hov 0 (prlist_with_sep pr_fnl (print_proof sigma hyps) spfl)) + hov 0 (prlist_with_sep pr_fnl (print_proof _sigma hyps) spfl)) let pr_change gl = str"change " ++ @@ -221,4 +221,5 @@ let print_subscript sigma sign pf = format_print_info_script sigma sign pf let _ = Refiner.set_info_printer print_subscript +let _ = Refiner.set_proof_printer print_proof |