(* *)
(***********************************************************************)
+(*
+ Time-stamp: <Last modified on 2013-03-04 23:02:21 CET by Kim Nguyen>
+*)
+
(** Implementation of states *)
-include Sigs.Type with type t = int
+include Common_sig.Type with type t = int
val make : unit -> t
(** Generate a fresh state *)