diff options
Diffstat (limited to 'proofs/tactic_debug.ml')
| -rw-r--r-- | proofs/tactic_debug.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/proofs/tactic_debug.ml b/proofs/tactic_debug.ml index 3b518f5dbf..1c2fb2787e 100644 --- a/proofs/tactic_debug.ml +++ b/proofs/tactic_debug.ml @@ -154,11 +154,6 @@ let db_mc_pattern_success debug = msgnl (str "The goal has been successfully matched!" ++ fnl() ++ str "Let us execute the right-hand side part..." ++ fnl()) -let pp_match_pattern env = function - | Term c -> Term (extern_constr_pattern (names_of_rel_context env) c) - | Subterm (b,o,c) -> - Subterm (b,o,(extern_constr_pattern (names_of_rel_context env) c)) - (* Prints a failure message for an hypothesis pattern *) let db_hyp_pattern_failure debug env (na,hyp) = if debug <> DebugOff & !skip = 0 then |