diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 4 | ||||
| -rw-r--r-- | tactics/tacinterp.mli | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index a1e8f9bd1d..9da816d908 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2487,6 +2487,10 @@ let make_empty_glob_sign () = { ltacvars = ([],[]); ltacrecvars = []; gsigma = Evd.empty; genv = Global.env() } +let fully_empty_glob_sign = + { ltacvars = ([],[]); ltacrecvars = []; + gsigma = Evd.empty; genv = Environ.empty_env } + (* Initial call for interpretation *) let interp_tac_gen lfun avoid_ids debug t gl = interp_tactic { lfun=lfun; avoid_ids=avoid_ids; debug=debug; trace=[] } diff --git a/tactics/tacinterp.mli b/tactics/tacinterp.mli index 4d01e5ad97..eff48b1004 100644 --- a/tactics/tacinterp.mli +++ b/tactics/tacinterp.mli @@ -78,6 +78,8 @@ type glob_sign = { gsigma : Evd.evar_map; genv : Environ.env } +val fully_empty_glob_sign : glob_sign + val add_interp_genarg : string -> (glob_sign -> raw_generic_argument -> glob_generic_argument) * |