From e2f74e1febf60aaae104ef077e40985b4cf19f5f Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Mon, 28 Oct 2013 13:32:26 +0000
Subject: Removing Evd.undefined_evars.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16942 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/classes.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'toplevel')

diff --git a/toplevel/classes.ml b/toplevel/classes.ml
index c460e291c7..2648f8e362 100644
--- a/toplevel/classes.ml
+++ b/toplevel/classes.ml
@@ -271,8 +271,7 @@ let new_instance ?(abstract=false) ?(global=false) ctx (instid, bk, cl) props
       in
       let term = Option.map (Evarutil.nf_evar !evars) term in
       let evm = Evarutil.nf_evar_map_undefined !evars in
-      let evm = undefined_evars evm in
-	if Evd.is_empty evm && not (Option.is_empty term) then
+	if not (Evd.has_undefined evm) && not (Option.is_empty term) then
 	  declare_instance_constant k pri global imps ?hook id 
             (Option.get term,Declareops.no_seff) termtype
 	else begin
-- 
cgit v1.2.3