aboutsummaryrefslogtreecommitdiff
path: root/pretyping/patternops.mli
diff options
context:
space:
mode:
Diffstat (limited to 'pretyping/patternops.mli')
-rw-r--r--pretyping/patternops.mli4
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/patternops.mli b/pretyping/patternops.mli
index cfe71510a1..382357a8d1 100644
--- a/pretyping/patternops.mli
+++ b/pretyping/patternops.mli
@@ -39,7 +39,7 @@ val head_of_constr_reference : Term.constr -> global_reference
a pattern; currently, no destructor (Cases, Fix, Cofix) and no
existential variable are allowed in [c] *)
-val pattern_of_constr : Evd.evar_map -> constr -> named_context * constr_pattern
+val pattern_of_constr : Environ.env -> Evd.evar_map -> constr -> named_context * constr_pattern
(** [pattern_of_glob_constr l c] translates a term [c] with metavariables into
a pattern; variables bound in [l] are replaced by the pattern to which they
@@ -48,7 +48,7 @@ val pattern_of_constr : Evd.evar_map -> constr -> named_context * constr_pattern
val pattern_of_glob_constr : glob_constr ->
patvar list * constr_pattern
-val instantiate_pattern :
+val instantiate_pattern : Environ.env ->
Evd.evar_map -> extended_patvar_map ->
constr_pattern -> constr_pattern