From de46c3f782dd618e947e7270cd398abf1fd514c2 Mon Sep 17 00:00:00 2001
From: msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Sat, 8 Dec 2012 21:39:19 +0000
Subject: Finish patch for Hint Resolve, stopping to generate new constant
 names for hints.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16052 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/globnames.mli | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'library/globnames.mli')

diff --git a/library/globnames.mli b/library/globnames.mli
index 02ac51fb1..af1f10ee4 100644
--- a/library/globnames.mli
+++ b/library/globnames.mli
@@ -72,6 +72,12 @@ module ExtRefOrdered : sig
   val compare : t -> t -> int
 end
 
+type global_reference_or_constr = 
+  | IsGlobal of global_reference
+  | IsConstr of constr
+
+val constr_of_global_or_constr : global_reference_or_constr -> constr
+
 (** {6 Temporary function to brutally form kernel names from section paths } *)
 
 val encode_mind : dir_path -> identifier -> mutual_inductive
-- 
cgit v1.2.3