From 53fe23265daafd47e759e73e8f97361c7fdd331b Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 11 Nov 2016 18:20:29 +0100
Subject: Refine API using EConstr.

---
 engine/evarutil.ml  | 1 +
 engine/evarutil.mli | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'engine')

diff --git a/engine/evarutil.ml b/engine/evarutil.ml
index bc55ac4580..7ccf9d8106 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 8f3c3c352c..431d980836 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} *)
 
-- 
cgit v1.2.3