4 files changed, 10 insertions, 2 deletions
diff --git a/lib/cString.ml b/lib/cString.ml
index b34b219570..59a6d17c6e 100644
--- a/lib/cString.ml
+++ b/lib/cString.ml
@@ -60,6 +60,7 @@ sig
   val is_sub : string -> string -> int -> bool
   module Set : Set.S with type elt = t
   module Map : Map.S with type key = t
+  val hcons : string -> string
 end
 
 include String
@@ -178,3 +179,5 @@ end
 
 module Set = Set.Make(Self)
 module Map = Map.Make(Self)
+
+let hcons = Hashcons.simple_hcons Hashcons.Hstring.generate ()
diff --git a/lib/cString.mli b/lib/cString.mli
index 18679d3108..c9ff60f763 100644
--- a/lib/cString.mli
+++ b/lib/cString.mli
@@ -88,12 +88,17 @@ sig
   val is_sub : string -> string -> int -> bool
   (** [is_sub p s off] tests whether [s] contains [p] at offset [off]. *)
 
+  (** {6 Generic operations} **)
+
   module Set : Set.S with type elt = t
   (** Finite sets on [string] *)
 
   module Map : Map.S with type key = t
   (** Finite maps on [string] *)
 
+  val hcons : string -> string
+  (** Hashconsing on [string] *)
+
 end
 
 include ExtS
diff --git a/lib/clib.mllib b/lib/clib.mllib
index 1f4707fda5..d40df73a01 100644
--- a/lib/clib.mllib
+++ b/lib/clib.mllib
@@ -3,6 +3,8 @@ Pp_control
 Pp
 Coq_config
 Deque
+Hashset
+Hashcons
 CObj
 CList
 CString
diff --git a/lib/lib.mllib b/lib/lib.mllib
index f557bd7d73..372d8ddf39 100644
--- a/lib/lib.mllib
+++ b/lib/lib.mllib
@@ -3,8 +3,6 @@ Xml_parser
 Loc
 Errors
 Bigint
-Hashset
-Hashcons
 Dyn
 Segmenttree
 Unicodetable