diff options
| author | Arnaud Spiwack | 2015-02-19 11:28:19 +0100 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-02-24 16:37:04 +0100 |
| commit | 50edb9bb8d43b190996d1d85a2bfd95f52b2db19 (patch) | |
| tree | 52eb6f73a5c6f9c00ade4a4937960740972603ad | |
| parent | ebf4d8e58eeddaf5237447a9a0f21de48e72caa5 (diff) | |
[info_auto] & [info_trivial]: warning message to help users find [Info].
| -rw-r--r-- | tactics/tacinterp.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index e4558481bc..af541b8b9e 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1973,6 +1973,12 @@ and interp_atomic ist tac : unit Proofview.tactic = (* Automation tactics *) | TacTrivial (debug,lems,l) -> + begin if debug == Tacexpr.Info then + msg_warning + (strbrk"The \"info_trivial\" tactic" ++ spc () + ++strbrk"does not print traces anymore." ++ spc() + ++strbrk"Use \"Info 1 trivial\", instead.") + end; Proofview.Goal.enter begin fun gl -> let env = Proofview.Goal.env gl in let sigma = Proofview.Goal.sigma gl in @@ -1984,6 +1990,12 @@ and interp_atomic ist tac : unit Proofview.tactic = (Option.map (List.map (interp_hint_base ist)) l)) end | TacAuto (debug,n,lems,l) -> + begin if debug == Tacexpr.Info then + msg_warning + (strbrk"The \"info_auto\" tactic" ++ spc () + ++strbrk"does not print traces anymore." ++ spc() + ++strbrk"Use \"Info 1 auto\", instead.") + end; Proofview.Goal.enter begin fun gl -> let env = Proofview.Goal.env gl in let sigma = Proofview.Goal.sigma gl in |