diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-04 15:44:19 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-08-04 15:56:38 +0200 |
| commit | 94a759be56074ac66c5c96b0cc7722b395c4cf40 (patch) | |
| tree | f1863f86a463872e5af38482c50066885e5b1142 /tactics/tactics.ml | |
| parent | 39285cc9cc8887380349bb1e75aa4e006a8ceffa (diff) | |
Cleaning of the new implementation of the tactic monad.
* Add comments in the code (mostly imported from Monad.v)
* Inline duplicated module
* Clean up some artifacts due to the extracted code.
* [NonLogical.new_ref] -> [NonLogical.ref] (I don't even remember why I chose this name originally)
* Remove the now superfluous [Proof_errors] module (which was used to define exceptions to be used in the extracted code).
* Remove Monad.v
Diffstat (limited to 'tactics/tactics.ml')
| -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 07ac0ba9f..3b1cf6575 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -3748,7 +3748,7 @@ let abstract_subproof id gk tac = let ectx = Evd.evar_universe_context evd in let (const, safe, ectx) = try Pfedit.build_constant_by_tactic ~goal_kind:gk id ectx secsign concl solve_tac - with Proof_errors.TacticFailure e as src -> + with Proofview_monad.TacticFailure e as src -> (* if the tactic [tac] fails, it reports a [TacticFailure e], which is an error irrelevant to the proof system (in fact it means that [e] comes from [tac] failing to yield enough |