From 928287134ab9dd23258c395589f8633e422e939f Mon Sep 17 00:00:00 2001 From: herbelin Date: Mon, 7 Apr 2003 17:19:41 +0000 Subject: Globalisation des noms de tactiques dans les définitions de tactiques pour compatibilité avec les modules. Globalisation partielle des invocations de tactiques hors définitions (partielle car noms des Intros/Assert/Inversion/... non connus). MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3857 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/nametab.ml | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'library/nametab.ml') diff --git a/library/nametab.ml b/library/nametab.ml index 372590911..ba3e7ff9f 100755 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -348,8 +348,12 @@ let full_name_modtype qid = SpTab.user_name qid !the_modtypetab let locate_obj qid = SpTab.user_name qid !the_objtab +type ltac_constant = section_path let locate_tactic = locate_obj +let shortest_qualid_of_tactic sp = + SpTab.shortest_qualid Idset.empty sp !the_objtab + let locate_dir qid = DirTab.locate qid !the_dirtab let locate_module qid = -- cgit v1.2.3