diff options
author | 2014-08-12 14:03:32 +0200 | |
---|---|---|
committer | 2014-09-12 10:39:32 +0200 | |
commit | 012fe1a96ba81ab0a7fa210610e3f25187baaf1d (patch) | |
tree | 32282ac2f1198738c8c545b19215ff0a0d9ef6ce /proofs/tactic_debug.ml | |
parent | b720cd3cbefa46da784b68a8e016a853f577800c (diff) |
Referring to evars by names. Added a parser for evars (but parsing of
instances still to do). Using heuristics to name after the quantifier
name it comes. Also added a "sigma" to almost all printing functions.
Diffstat (limited to 'proofs/tactic_debug.ml')
-rw-r--r-- | proofs/tactic_debug.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 19a1f7758..4df280e23 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -254,12 +254,12 @@ let db_mc_pattern_success debug = else return () (* Prints a failure message for an hypothesis pattern *) -let db_hyp_pattern_failure debug env (na,hyp) = +let db_hyp_pattern_failure debug env sigma (na,hyp) = is_debug debug >>= fun db -> if db then msg_tac_debug (str ("The pattern hypothesis"^(hyp_bound na)^ " cannot match: ") ++ - Hook.get prmatchpatt env hyp) + Hook.get prmatchpatt env sigma hyp) else return () (* Prints a matching failure message for a rule *) |