diff options
| author | herbelin | 2003-05-21 13:11:15 +0000 |
|---|---|---|
| committer | herbelin | 2003-05-21 13:11:15 +0000 |
| commit | 215f42dae466bbbdb865303af05c7e70b5fb3d15 (patch) | |
| tree | ef7e2c13c82149b6717e67626af19d3e39c606d5 /proofs/tactic_debug.ml | |
| parent | 2e3b255c13bae814715dbdee1fea80f107920cee (diff) | |
Fusion à l'essai de lmatch et lfun dans tacinterp; utilisation de noms pour les metavariables de patterns; fusion NoHypId et Hyp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4043 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/tactic_debug.ml')
| -rw-r--r-- | proofs/tactic_debug.ml | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 42bbb86372..3802f022cc 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -7,6 +7,7 @@ (***********************************************************************) open Ast +open Names open Constrextern open Pp open Pptactic @@ -120,8 +121,8 @@ let db_pattern_rule debug num r = (* Prints the hypothesis pattern identifier if it exists *) let hyp_bound = function - | None -> " (unbound)" - | Some id -> " (bound to "^(Names.string_of_id id)^")" + | Anonymous -> " (unbound)" + | Name id -> " (bound to "^(Names.string_of_id id)^")" (* Prints a matched hypothesis *) let db_matched_hyp debug env (id,c) ido = @@ -147,13 +148,13 @@ let pp_match_pattern env = function Subterm (o,(extern_pattern env (names_of_rel_context env) c)) (* Prints a failure message for an hypothesis pattern *) -let db_hyp_pattern_failure debug env hyp = +let db_hyp_pattern_failure debug env (na,hyp) = if debug = DebugOn then - msgnl (str ("The pattern hypothesis"^(hyp_bound (fst hyp))^ + msgnl (str ("The pattern hypothesis"^(hyp_bound na)^ " cannot match: ") ++ pr_match_pattern (Printer.pr_pattern_env env (names_of_rel_context env)) - (snd hyp)) + hyp) (* Prints a matching failure message for a rule *) let db_matching_failure debug = |