From fbb44b988313b460704e5927cfabb4c43200dd40 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 26 Nov 2002 15:15:33 +0000
Subject: Affichage nom le plus court pour Syntactic Definition

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3293 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/nametab.ml  | 4 ++++
 library/nametab.mli | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/library/nametab.ml b/library/nametab.ml
index d4707ecbc9..f6418de3e4 100755
--- a/library/nametab.ml
+++ b/library/nametab.ml
@@ -435,6 +435,10 @@ let shortest_qualid_of_global ctx_opt ref =
   let sp = sp_of_global ctx_opt ref in
     SpTab.shortest_qualid sp !the_ccitab
 
+let shortest_qualid_of_syndef kn = 
+  let sp = sp_of_syntactic_definition kn in
+    SpTab.shortest_qualid sp !the_ccitab
+
 let shortest_qualid_of_module mp = 
   let dir = MPmap.find mp !the_modrevtab in
     DirTab.shortest_qualid dir !the_dirtab
diff --git a/library/nametab.mli b/library/nametab.mli
index d18a6c69de..1f29a9313a 100755
--- a/library/nametab.mli
+++ b/library/nametab.mli
@@ -140,6 +140,8 @@ val sp_of_global :
   Sign.named_context option -> global_reference -> section_path
 val shortest_qualid_of_global : 
   Sign.named_context option -> global_reference -> qualid
+val shortest_qualid_of_syndef : 
+  kernel_name -> qualid
 val id_of_global : 
   Sign.named_context option -> global_reference -> identifier
 
-- 
cgit v1.2.3