Split the sig.ml module in *_sig.ml (one for each module)

[tatoo.git] / src / auto / formula.ml

diff --git a/src/auto/formula.ml b/src/auto/formula.ml
index 70407cf..a27ffc6 100644 (file)
--- a/src/auto/formula.ml
+++ b/src/auto/formula.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-02-07 10:00:33 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-04 22:52:17 CET by Kim Nguyen>
 *)
 
 INCLUDE "utils.ml"
@@ -26,9 +26,6 @@ open Utils
 
 (** Implementation of hashconsed Boolean formulae *)
 
-type move = [ `Left | `Right | `Epsilon | `Up1 | `Up2 ]
-
-(** Direction for automata predicates *)
 *)
 module type PREDICATE =
 sig
@@ -37,7 +34,7 @@ sig
   val eval : ctx -> t -> bool
   val neg : t -> t
   include Hcons.Abstract with type t := t
-  include Sigs.AUX.Printable with type t := t
+  include Common_sig.Printable with type t := t
 end
 
 type ('formula,'pred) expr =
@@ -61,7 +58,7 @@ struct
 
   module rec Node : Hcons.S
     with type data = Data.t = Hcons.Make (Data)
-    and Data : Hashtbl.HashedType  with type t = Node.t node =
+    and Data : Common_sig.HashedType  with type t = Node.t node =
   struct
     type t =  Node.t node
     let equal x y =