diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/proofview.ml | 6 | ||||
| -rw-r--r-- | proofs/proofview.mli | 3 |
2 files changed, 9 insertions, 0 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 67893e3b78..ae4b2e3363 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -555,6 +555,12 @@ let tclEVARMAP = let tclENV = Proof.current +let tclEFFECTS eff = + (* spiwack: convenience notations, waiting for ocaml 3.12 *) + let (>>=) = Proof.bind in + Proof.get >>= fun initial -> + Proof.set (emit_side_effects eff initial) + exception Timeout let _ = Errors.register_handler begin function | Timeout -> Errors.errorlabstrm "Proofview.tclTIMEOUT" (Pp.str"Tactic timeout!") diff --git a/proofs/proofview.mli b/proofs/proofview.mli index 7be8f6003b..409bbb76a1 100644 --- a/proofs/proofview.mli +++ b/proofs/proofview.mli @@ -234,6 +234,9 @@ val tclEVARMAP : Evd.evar_map tactic environment is returned by {!Proofview.Goal.env}. *) val tclENV : Environ.env tactic +(* [tclEFFECTS eff] add the effects [eff] to the current state. *) +val tclEFFECTS : Declareops.side_effects -> unit tactic + (* Shelves all the goals under focus. The goals are placed on the shelf for later use (or being solved by side-effects). *) val shelve : unit tactic |