Implement formulae parametrized by atomic predicates.

[tatoo.git] / src / hcons.ml

diff --git a/src/hcons.ml b/src/hcons.ml
index a820e08..1fc059c 100644 (file)
--- a/src/hcons.ml
+++ b/src/hcons.ml
@@ -13,6 +13,10 @@
 (*                                                                     *)
 (***********************************************************************)
 
+(*
+  Time-stamp: <Last modified on 2013-02-06 14:26:22 CET by Kim Nguyen>
+*)
+
 include Sigs.HCONS
 
 module type TableBuilder =
@@ -44,6 +48,7 @@ struct
   let init () =
     T.clear pool;
     uid_make := Uid.make_maker ()
+  let dummy x = { id = Uid.dummy; hash = H.hash x; node = x }
 
   let make x =
     let cell = { id = Uid.dummy; hash = H.hash x; node = x } in
@@ -72,7 +77,7 @@ struct
   let hash v = v
 
   let uid v = Uid.of_int v
-
+  let dummy _ = ~-1
   let equal x y = x == y
 
   let init () = ()