From 012fe1a96ba81ab0a7fa210610e3f25187baaf1d Mon Sep 17 00:00:00 2001 From: Hugo Herbelin Date: Tue, 12 Aug 2014 14:03:32 +0200 Subject: 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. --- proofs/tactic_debug.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'proofs/tactic_debug.ml') 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 *) -- cgit v1.2.3