X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fauto%2Fformula.ml;h=a27ffc6ecf0b73448a355a5cddc2befa45f29e18;hb=f5e7e53901bfc30b6234e6026a2c984bfceff694;hp=70407cf7fd1cd38b1c2f857e0d4de299870d8433;hpb=30bc0bb1291426e5e26eb2dee1ffc41e4c246349;p=tatoo.git

diff --git a/src/auto/formula.ml b/src/auto/formula.ml
index 70407cf..a27ffc6 100644
--- 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 =