diff options
author | 2004-09-17 20:28:19 +0000 | |
---|---|---|
committer | 2004-09-17 20:28:19 +0000 | |
commit | ed29c6bbe9a45e7d3996c230a6cc2bf7b11848f1 (patch) | |
tree | f898c771227a1e111be1bac0431d42d04b0166f6 /translate | |
parent | 59c2fa12e257ae6087e0580e0d7abca3552421b8 (diff) |
restructuration des printers: proofs passe avant parsing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6113 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
-rw-r--r-- | translate/pptacticnew.ml | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index ccff46667..b6e051454 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -906,3 +906,25 @@ let (pr_tactic,_,_) = Pptactic.pr_extend, strip_prod_binders_constr) +let _ = Tactic_debug.set_tactic_printer + (fun x -> + if !Options.v7 then Pptactic.pr_glob_tactic x + else pr_glob_tactic (Global.env()) x) + +let _ = Tactic_debug.set_match_pattern_printer + (fun env hyp -> + if !Options.v7 then + Pptactic.pr_match_pattern + (Printer.pr_pattern_env env (Termops.names_of_rel_context env)) hyp + else + pr_match_pattern + (Printer.pr_pattern_env env (Termops.names_of_rel_context env)) hyp) + +let _ = Tactic_debug.set_match_rule_printer + (fun rl -> + if !Options.v7 then + Pptactic.pr_match_rule false + Printer.pr_pattern Pptactic.pr_glob_tactic rl + else + pr_match_rule false + (pr_glob_tactic (Global.env())) Printer.pr_pattern rl) |