diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/pattern.ml | 4 | ||||
| -rw-r--r-- | pretyping/pattern.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/pattern.ml b/pretyping/pattern.ml index 59f3cde88a..fd51f7952f 100644 --- a/pretyping/pattern.ml +++ b/pretyping/pattern.ml @@ -163,7 +163,7 @@ let error_instantiate_pattern id l = ++ strbrk " in pattern because the term refers to " ++ pr_enum pr_id l ++ strbrk " which " ++ str is ++ strbrk " not bound in the pattern.") -let instantiate_pattern lvar c = +let instantiate_pattern sigma lvar c = let rec aux vars = function | PVar id as x -> (try @@ -172,7 +172,7 @@ let instantiate_pattern lvar c = let inst = List.map (fun id -> mkRel (list_index (Name id) vars)) ctx in let c = substl inst c in - snd (pattern_of_constr Evd.empty c) + snd (pattern_of_constr sigma c) with Not_found (* list_index failed *) -> let vars = list_map_filter (function Name id -> Some id | _ -> None) vars in diff --git a/pretyping/pattern.mli b/pretyping/pattern.mli index 5685f3d2c5..344a6239b8 100644 --- a/pretyping/pattern.mli +++ b/pretyping/pattern.mli @@ -111,7 +111,7 @@ val pattern_of_rawconstr : rawconstr -> patvar list * constr_pattern val instantiate_pattern : - (identifier * (identifier list * constr)) list -> + Evd.evar_map -> (identifier * (identifier list * constr)) list -> constr_pattern -> constr_pattern val lift_pattern : int -> constr_pattern -> constr_pattern |