Various architectural changes

[helm.git] / helm / software / components / ng_paramodulation / paramod.mli

diff --git a/helm/software/components/ng_paramodulation/paramod.mli b/helm/software/components/ng_paramodulation/paramod.mli
index 2664494993095eac6ea96f1464638ffd51930a7a..0aa990d52f5c417bd14ccb128773e821e9ed0c9b 100644 (file)
--- a/helm/software/components/ng_paramodulation/paramod.mli
+++ b/helm/software/components/ng_paramodulation/paramod.mli
@@ -11,13 +11,22 @@
 
 (* $Id: orderings.ml 9869 2009-06-11 22:52:38Z denes $ *)
 
-module Paramod ( B : Terms.Blob ) : 
+module type Paramod =
   sig
-    type bag = B.t Terms.bag * int
-    val mk_passive : bag -> B.t * B.t -> bag * B.t Terms.unit_clause
-    val mk_goal : bag -> B.t * B.t -> bag * B.t Terms.unit_clause
+    type t
+    type szsontology = 
+      | Unsatisfiable of (t Terms.bag * int * int list) list
+      | GaveUp 
+      | Error of string 
+      | Timeout of int * t Terms.bag
     val paramod : 
-      bag -> g_passives:B.t Terms.unit_clause list -> 
-      passives:B.t Terms.unit_clause list ->
-       (B.t Terms.bag * int * int list) list
+      useage:bool ->
+      max_steps:int ->
+      print_problem:bool ->
+      ?timeout:float ->
+      t Terms.foterm * (t Terms.foterm list * t Terms.foterm list)  ->
+      (t Terms.foterm * (t Terms.foterm list * t Terms.foterm list)) list -> szsontology
   end
+
+module Paramod ( B : Orderings.Blob ) : Paramod
+with type t = B.t