projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
27bd19a
..
a27ffc6
100644
(file)
--- a/
src/auto/formula.ml
+++ b/
src/auto/formula.ml
@@
-14,7
+14,7
@@
(***********************************************************************)
(*
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-0
2-08 13:38:58
CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-0
3-04 22:52:17
CET by Kim Nguyen>
*)
INCLUDE "utils.ml"
*)
INCLUDE "utils.ml"
@@
-34,7
+34,7
@@
sig
val eval : ctx -> t -> bool
val neg : t -> t
include Hcons.Abstract with type t := t
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 =
end
type ('formula,'pred) expr =
@@
-58,7
+58,7
@@
struct
module rec Node : Hcons.S
with type data = Data.t = Hcons.Make (Data)
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 =
struct
type t = Node.t node
let equal x y =