2 files changed, 14 insertions, 0 deletions
diff --git a/library/globnames.ml b/library/globnames.ml
index 81cb241c9..b5312e574 100644
--- a/library/globnames.ml
+++ b/library/globnames.ml
@@ -128,6 +128,14 @@ module ExtRefOrdered = struct
       | _, _ -> Pervasives.compare x y
 end
 
+type global_reference_or_constr = 
+  | IsGlobal of global_reference
+  | IsConstr of constr
+
+let constr_of_global_or_constr = function
+  | IsConstr c -> c
+  | IsGlobal gr -> constr_of_global gr
+
 (** {6 Temporary function to brutally form kernel names from section paths } *)
 
 let encode_mind dir id = make_mind (MPfile dir) empty_dirpath (label_of_id id)
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