diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-11-11 18:20:29 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-02-14 17:28:43 +0100 |
| commit | 53fe23265daafd47e759e73e8f97361c7fdd331b (patch) | |
| tree | cf22dc2b4477bfe608eea97e73a2c1042b1ea478 /engine | |
| parent | 7267dfafe9215c35275a39814c8af451961e997c (diff) | |
Refine API using EConstr.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/evarutil.ml | 1 | ||||
| -rw-r--r-- | engine/evarutil.mli | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index bc55ac458..7ccf9d810 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -719,6 +719,7 @@ let undefined_evars_of_evar_info evd evi = [evar_map]. If unification only need to check superficially, tactics do not have this luxury, and need the more complete version. *) let occur_evar_upto sigma n c = + let c = EConstr.Unsafe.to_constr c in let rec occur_rec c = match kind_of_term c with | Evar (sp,_) when Evar.equal sp n -> raise Occur | Evar e -> Option.iter occur_rec (existential_opt_value sigma e) diff --git a/engine/evarutil.mli b/engine/evarutil.mli index 8f3c3c352..431d98083 100644 --- a/engine/evarutil.mli +++ b/engine/evarutil.mli @@ -128,7 +128,7 @@ val undefined_evars_of_evar_info : evar_map -> evar_info -> Evar.Set.t (** [occur_evar_upto sigma k c] returns [true] if [k] appears in [c]. It looks up recursively in [sigma] for the value of existential variables. *) -val occur_evar_upto : evar_map -> Evar.t -> Constr.t -> bool +val occur_evar_upto : evar_map -> Evar.t -> EConstr.t -> bool (** {6 Value/Type constraints} *) |