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
---
 contrib/correctness/ptactic.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib/correctness')

diff --git a/contrib/correctness/ptactic.ml b/contrib/correctness/ptactic.ml
index 5994fb38d4..e7610923cd 100644
--- a/contrib/correctness/ptactic.ml
+++ b/contrib/correctness/ptactic.ml
@@ -208,8 +208,8 @@ let reduce_open_constr (em0,c) =
       | Cast (c',t) -> 
 	  (match kind_of_term c' with
 	     | Evar (ev,_) ->
-                 if not (Evd.in_dom em ev) then
-                   Evd.add em ev (Evd.map em0 ev)
+                 if not (Evd.mem em ev) then
+                   Evd.add em ev (Evd.find em0 ev)
                  else
                    em
 	     | _ -> fold_constr collect em c)
-- 
cgit v1.2.3