From 0a20f6b23d9987299407a8883ec9593238541a56 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 14 May 2013 08:59:04 +0000
Subject: More semantical-friendly function.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16517 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/typeclasses.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml
index 24b084e9b8..9a215232c5 100644
--- a/pretyping/typeclasses.ml
+++ b/pretyping/typeclasses.ml
@@ -217,7 +217,7 @@ let check_instance env sigma c =
   try 
     let (evd, c) = resolve_one_typeclass env sigma
       (Retyping.get_type_of env sigma c) in
-      Evd.is_empty (Evd.undefined_evars evd)
+      Evd.has_undefined evd
   with e when Errors.noncritical e -> false
 
 let build_subclasses ~check env sigma glob pri =
-- 
cgit v1.2.3