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

diff --git a/src/auto/formula.ml b/src/auto/formula.ml
index 27bd19a..a27ffc6 100644
--- a/src/auto/formula.ml
+++ b/src/auto/formula.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-02-08 13:38:58 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-03-04 22:52:17 CET by Kim Nguyen>
 *)
 
 INCLUDE "utils.ml"
@@ -34,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 =
@@ -58,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 =