diff options
| author | herbelin | 2003-04-07 17:19:41 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-07 17:19:41 +0000 |
| commit | 928287134ab9dd23258c395589f8633e422e939f (patch) | |
| tree | 192971793635b1057b78004b14df4ad5dfac9561 /proofs/tactic_debug.ml | |
| parent | c4ef643444acecdb4c08a74f37b9006ae060c5af (diff) | |
Globalisation des noms de tactiques dans les définitions de tactiques
pour compatibilité avec les modules.
Globalisation partielle des invocations de tactiques hors définitions
(partielle car noms des Intros/Assert/Inversion/... non connus).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3857 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tactic_debug.ml')
| -rw-r--r-- | proofs/tactic_debug.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 9c0b77f581..42bbb86372 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -40,7 +40,7 @@ let help () = let goal_com g tac_ast = begin db_pr_goal g; - msg (str "Going to execute:" ++ fnl () ++ (pr_raw_tactic tac_ast) ++ + msg (str "Going to execute:" ++ fnl () ++ (pr_glob_tactic tac_ast) ++ fnl ()) end @@ -114,7 +114,8 @@ let db_pattern_rule debug num r = if debug = DebugOn then begin msgnl (str "Pattern rule " ++ int num ++ str ":"); - msgnl (str "|" ++ spc () ++ pr_match_rule false pr_raw_tactic r) + msgnl (str "|" ++ spc () ++ + pr_match_rule false Printer.pr_pattern pr_glob_tactic r) end (* Prints the hypothesis pattern identifier if it exists *) @@ -150,7 +151,9 @@ let db_hyp_pattern_failure debug env hyp = if debug = DebugOn then msgnl (str ("The pattern hypothesis"^(hyp_bound (fst hyp))^ " cannot match: ") ++ - pr_match_pattern (pp_match_pattern env (snd hyp))) + pr_match_pattern + (Printer.pr_pattern_env env (names_of_rel_context env)) + (snd hyp)) (* Prints a matching failure message for a rule *) let db_matching_failure debug = |