* Seal the representation of states

[tatoo.git] / src / hcons.mli

diff --git a/src/hcons.mli b/src/hcons.mli
index 05def66..6a6ede8 100644 (file)
--- a/src/hcons.mli
+++ b/src/hcons.mli
@@ -35,7 +35,7 @@ module Weak (H : Common_sig.HashedType) : S with type data = H.t
     explicitely by calling [init].
 *)
 
-module PosInt : Abstract with type data = int and type t = int
+module PosInt : Abstract with type data = int and type t = private int
 (** Compact implementation of hashconsed positive integer that
     avoids boxing. [PosInt.make v] raises [Invalid_argument] if
     [ v < 0 ]