From 201d1203122863ffa552c3a3247a4bf99f276bf8 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 12 Nov 2003 19:17:19 +0000
Subject: Prise en compte des alias syntaxiques vers des references dans divers
 lieux de globalisation des constantes

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4869 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/vernacentries.ml | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'toplevel')

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 5edc4eaf8a..5b84e9311f 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -536,10 +536,19 @@ let vernac_import export refl =
 let vernac_canonical locqid =
   Recordobj.objdef_declare (Nametab.global locqid)
 
+let locate_reference ref =
+  let (loc,qid) = qualid_of_reference ref in
+  match Nametab.extended_locate qid with
+    | TrueGlobal ref -> ref
+    | SyntacticDef kn -> 
+	match Syntax_def.search_syntactic_definition loc kn with
+	  | Rawterm.RRef (_,ref) -> ref
+	  | _ -> error_global_not_found_loc loc qid
+
 let vernac_coercion stre ref qids qidt =
   let target = cl_of_qualid qidt in
   let source = cl_of_qualid qids in
-  let ref' = Nametab.global ref in
+  let ref' = locate_reference ref in
   Class.try_add_new_coercion_with_target ref' stre source target;
   if_verbose message ((string_of_reference ref) ^ " is now a coercion")
 
-- 
cgit v1.2.3