diff options
Diffstat (limited to 'tactics/tacinterp.mli')
| -rw-r--r-- | tactics/tacinterp.mli | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tactics/tacinterp.mli b/tactics/tacinterp.mli index 8395306b68..a0862fe8e3 100644 --- a/tactics/tacinterp.mli +++ b/tactics/tacinterp.mli @@ -32,12 +32,14 @@ end (** Values for interpretation *) type value = Value.t +module TacStore : Store.S + (** Signature for interpretation: val\_interp and interpretation functions *) -type interp_sign = - { lfun : (Id.t * value) list; - avoid_ids : Id.t list; - debug : debug_info; - trace : ltac_trace } +type interp_sign = { + lfun : (Id.t * value) list; + extra : TacStore.t } + +val f_avoid_ids : Id.t list TacStore.field val extract_ltac_constr_values : interp_sign -> Environ.env -> Pattern.constr_under_binders Id.Map.t * (Id.Map.key * Id.t option) list |