* Seal the representation of states

[tatoo.git] / src / state.mli

diff --git a/src/state.mli b/src/state.mli
index 1d25a67..8b4420c 100644 (file)
--- a/src/state.mli
+++ b/src/state.mli
@@ -14,13 +14,11 @@
 (***********************************************************************)
 
 (** Implementation of states *)
+include module type of Hcons.PosInt
+include Common_sig.OrderedType with type t := t
 
-include Common_sig.Type with type t = int
-
-val make : unit -> t
-(** Generate a fresh state *)
-
-val dummy : t
+val next : unit -> t
+val dummy_state : t
 (** Dummy state that can never be returned by [make ()] *)
 
 val print : Format.formatter -> t -> unit