From e14100f74f50b68dded694953bebf097e0ffff0c Mon Sep 17 00:00:00 2001
From: msozeau
Date: Tue, 29 Jul 2008 13:14:43 +0000
Subject: Backport r11289.

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

diff --git a/pretyping/termops.ml b/pretyping/termops.ml
index 22090d88cf..c0144cab4b 100644
--- a/pretyping/termops.ml
+++ b/pretyping/termops.ml
@@ -838,7 +838,8 @@ let is_imported_ref = function
 let is_global id =
   try 
     let ref = locate (make_short_qualid id) in
-    not (is_imported_ref ref)
+      not (is_imported_ref ref) ||
+	(try ignore(locate (make_qualid (dirpath_of_string "Top") id)); true with _ -> false)
   with Not_found -> 
     false
 
-- 
cgit v1.2.3