diff options
author | Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-05 17:55:48 +0200 |
---|---|---|
committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-11-01 22:43:57 +0100 |
commit | 967883e29a46a0fff9da8e56974468531948b174 (patch) | |
tree | 9c9a814a92c2a7fb5006d478e6d20e16bcf74d7a /proofs/proof.ml | |
parent | 3c8797a7e0d6536e28b8a8e7f4256241fc79dfc8 (diff) |
Add [Info] command.
Called with [Info n tac], runs [tac] and prints its info trace unfolding [n] level of tactic names ([0] for no unfolding at all).
Diffstat (limited to 'proofs/proof.ml')
-rw-r--r-- | proofs/proof.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index 1dc89ca2c..abd1024d6 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -318,7 +318,7 @@ let initial_goals p = Proofview.initial_goals p.entry let run_tactic env tac pr = let sp = pr.proofview in - let (_,tacticced_proofview,(status,to_shelve,give_up),_) = Proofview.apply env tac sp in + let (_,tacticced_proofview,(status,to_shelve,give_up),info_trace) = Proofview.apply env tac sp in let shelf = let sigma = Proofview.return tacticced_proofview in let pre_shelf = pr.shelf@(List.rev (Evd.future_goals sigma))@to_shelve in @@ -327,7 +327,7 @@ let run_tactic env tac pr = in let given_up = pr.given_up@give_up in let proofview = Proofview.Unsafe.reset_future_goals tacticced_proofview in - { pr with proofview ; shelf ; given_up },status + { pr with proofview ; shelf ; given_up },(status,info_trace) (*** Commands ***) |