diff options
| author | ppedrot | 2013-05-14 08:59:04 +0000 |
|---|---|---|
| committer | ppedrot | 2013-05-14 08:59:04 +0000 |
| commit | 0a20f6b23d9987299407a8883ec9593238541a56 (patch) | |
| tree | a703912ea6e8889cff45acc722fbec598c1c6c3e | |
| parent | 0c028c3446375ab70b5b8733d284b7f5426526c2 (diff) | |
More semantical-friendly function.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16517 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/typeclasses.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |