diff options
| author | Pierre-Marie Pédrot | 2014-07-26 21:33:22 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-07-28 19:59:19 +0200 |
| commit | 88b66654ed4face382cf2c164b6f2f6301fc323d (patch) | |
| tree | ad917b352451399cef9eff1ff247d9d5e1368ff3 /proofs/proofview.ml | |
| parent | 3f2ea14ddc95528ac514fa4a7bb7022407891ce1 (diff) | |
Adding a tclBREAK primitive to the tactic monad.
Diffstat (limited to 'proofs/proofview.ml')
| -rw-r--r-- | proofs/proofview.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 9f2ab30b65..aba7691cd4 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -285,6 +285,8 @@ let tclIFCATCH a s f = success. *) let tclONCE = Proof.once +let tclBREAK = Proof.break + exception MoreThanOneSuccess let _ = Errors.register_handler begin function | MoreThanOneSuccess -> Errors.error "This tactic has more than one success." |