(* *)
(***********************************************************************)
-(*
- Time-stamp: <Last modified on 2013-01-30 19:07:11 CET by Kim Nguyen>
-*)
-
(** Implementation of states *)
-include Sigs.AUX.Type with type t = int
+include Common_sig.Type with type t = int
val make : unit -> t
(** Generate a fresh state *)