diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 4 | ||||
| -rw-r--r-- | tactics/tacinterp.mli | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 4e20c2fa9f..845b3ad9fb 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2072,6 +2072,10 @@ let eval_tactic t = Proofview.tclLIFT db_initialize <*> interp_tactic (default_ist ()) t +let eval_tactic_ist ist t = + Proofview.tclLIFT db_initialize <*> + interp_tactic ist t + (* globalization + interpretation *) diff --git a/tactics/tacinterp.mli b/tactics/tacinterp.mli index 5a1e12923a..6a236afda1 100644 --- a/tactics/tacinterp.mli +++ b/tactics/tacinterp.mli @@ -93,6 +93,9 @@ val interp_open_constr_with_bindings : interp_sign -> Environ.env -> Evd.evar_ma val eval_tactic : glob_tactic_expr -> unit Proofview.tactic +val eval_tactic_ist : interp_sign -> glob_tactic_expr -> unit Proofview.tactic +(** Same as [eval_tactic], but with the provided [interp_sign]. *) + (** Globalization + interpretation *) val interp_tac_gen : value Id.Map.t -> Id.t list -> |