diff options
| author | herbelin | 2002-05-14 21:27:10 +0000 |
|---|---|---|
| committer | herbelin | 2002-05-14 21:27:10 +0000 |
| commit | ce67352563f53a82c9cb310bd689f6e75d71edbd (patch) | |
| tree | 6c3b9594657e30441c63d09928c5726aaa1b5df9 /pretyping | |
| parent | 5396eb3a05cc609b00645cfb3ee68411edd2de0a (diff) | |
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
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/detyping.ml | 6 |
1 files changed, 5 insertions, 1 deletions
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) -> |