From ce67352563f53a82c9cb310bd689f6e75d71edbd Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 14 May 2002 21:27:10 +0000
Subject: Utilisation d'une construction spéciale SECVAR pour gérer la
 globalisation des variables de section (en espérant plus de robustesse vis à
 vis des bugs récurrents de Infix pour les variables avec implicites)

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

(limited to 'pretyping')

diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml
index 8e5e35930b..5e718289cc 100644
--- a/pretyping/detyping.ml
+++ b/pretyping/detyping.ml
@@ -201,7 +201,11 @@ let rec detype tenv avoid env t =
 	 let s = "_UNBOUND_REL_"^(string_of_int n)
 	 in RVar (dummy_loc, id_of_string s))
     | Meta n -> RMeta (dummy_loc, n)
-    | Var id -> RVar (dummy_loc, id)
+    | Var id ->
+	(try
+	  let _ = Global.lookup_named id in RRef (dummy_loc, VarRef id)
+	 with _ ->
+	  RVar (dummy_loc, id))
     | Sort (Prop c) -> RSort (dummy_loc,RProp c)
     | Sort (Type u) -> RSort (dummy_loc,RType (Some u))
     | Cast (c1,c2) ->
-- 
cgit v1.2.3