diff options
| author |  Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-03-14 16:22:24 +0100 |
|---|---|---|
| committer | Théo Zimmermann <theo.zimmermann@univ-paris-diderot.fr> | 2017-03-14 16:22:24 +0100 |
| commit | 43524c6689f372b32770c20d19866f2f4edb4cc6 (patch) | |
| tree | c7f33910befbc29b79ef13b21352a3b04cf23026 | |
| parent | 42f27beb63a629dcef514abb0b31dea193f35a38 (diff) | |
Show unused-intro-pattern warning.
This warning was shown in CoqIDE but not by coqc.
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 9d64e7c59..f186f6e0e 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -3010,7 +3010,7 @@ let warn_unused_intro_pattern = (fun c -> Printer.pr_constr (fst (run_delayed (Global.env()) Evd.empty c)))) names) let check_unused_names names = - if not (List.is_empty names) && Flags.is_verbose () then + if not (List.is_empty names) then warn_unused_intro_pattern names let intropattern_of_name gl avoid = function |