(* $Id: orderings.ml 9869 2009-06-11 22:52:38Z denes $ *)
-module Paramod ( B : Orderings.Blob ) :
+module type Paramod =
sig
+ type t
+ type input
type szsontology =
- | Unsatisfiable of (B.t Terms.bag * int * int list) list
+ | Unsatisfiable of (t Terms.bag * int * int list) list
| GaveUp
| Error of string
- | Timeout of int * B.t Terms.bag
- type bag = B.t Terms.bag * int
- val mk_passive : bag -> B.input * B.input -> bag * B.t Terms.unit_clause
- val mk_goal : bag -> B.input * B.input -> bag * B.t Terms.unit_clause
+ | Timeout of int * t Terms.bag
+ type bag = t Terms.bag * int
+ val mk_passive : bag -> input * input -> bag * t Terms.unit_clause
+ val mk_goal : bag -> input * input -> bag * t Terms.unit_clause
val paramod :
+ useage:bool ->
max_steps:int ->
?timeout:float ->
bag ->
- g_passives:B.t Terms.unit_clause list ->
- passives:B.t Terms.unit_clause list -> szsontology
+ g_passives:t Terms.unit_clause list ->
+ passives:t Terms.unit_clause list -> szsontology
end
+
+module Paramod ( B : Orderings.Blob ) : Paramod
+with type t = B.t and type input = B.input