From a184d54b95c40bc2890fc91f236bbdf983ebc83d Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 28 Apr 2006 12:24:14 +0000
Subject: Standardisation du nom des méthodes de Evd

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8759 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/evar_tactics.ml | 2 +-
 tactics/tacinterp.ml    | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'tactics')

diff --git a/tactics/evar_tactics.ml b/tactics/evar_tactics.ml
index a321b9f1b9..d01cd8ca25 100644
--- a/tactics/evar_tactics.ml
+++ b/tactics/evar_tactics.ml
@@ -23,7 +23,7 @@ open Termops
 let evar_list evc c = 
   let rec evrec acc c =
     match kind_of_term c with
-    | Evar (n, _) when Evd.in_dom evc n -> c :: acc
+    | Evar (n, _) when Evd.mem evc n -> c :: acc
     | _ -> fold_constr evrec acc c
   in 
     evrec [] c
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index 2eb2d88f4d..56aaee4feb 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -1194,11 +1194,11 @@ let solve_remaining_evars env initial_sigma evars c =
   let isevars = ref evars in
   let rec proc_rec c =
     match kind_of_term (Reductionops.whd_evar (evars_of !isevars) c) with
-      | Evar (ev,args as k) when not (Evd.in_dom initial_sigma ev) ->
+      | Evar (ev,args as k) when not (Evd.mem initial_sigma ev) ->
             let (loc,src) = evar_source ev !isevars in
 	    let sigma = evars_of !isevars in
 	    (try 
-	      let evi = Evd.map sigma ev in
+	      let evi = Evd.find sigma ev in
 	      let c = solvable_by_tactic env evi k src in
 	      isevars := Evd.evar_define ev c !isevars;
 	      c
-- 
cgit v1.2.3