- 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
+ type t
+ type input
+ type szsontology =
+ | Unsatisfiable of (t Terms.bag * int * int list) list
+ | GaveUp
+ | Error of string
+ | 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