return type of paramod fixed according to the SZSOntology

[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 c8ba6cad9afc94898d0bc68ad061b3db438aa59f..fa914ef6116636d33f90a39b6909bd00809bbcf0 100644 (file)
--- a/helm/software/components/ng_paramodulation/paramod.mli
+++ b/helm/software/components/ng_paramodulation/paramod.mli
@@ -13,6 +13,11 @@
 
 module Paramod ( B : Terms.Blob ) : 
   sig
+    type szsontology = 
+      | Unsatisfiable of (B.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
@@ -21,6 +26,5 @@ module Paramod ( B : Terms.Blob ) :
       ?timeout:float ->
       bag -> 
       g_passives:B.t Terms.unit_clause list -> 
-      passives:B.t Terms.unit_clause list ->
-       (B.t Terms.bag * int * int list) list
+      passives:B.t Terms.unit_clause list -> szsontology
   end