(* *)
(***********************************************************************)
-(*
- Time-stamp: <Last modified on 2013-01-30 19:07:11 CET by Kim Nguyen>
-*)
-
(** Implementation of states *)
+include module type of Hcons.PosInt
+include Common_sig.OrderedType with type t := t
-include Sigs.AUX.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