X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Fparamod.mli;h=e133036af34d66487ed7181f9621621d90ae3c66;hb=72aa8b2087285826b14fc39a389632f0317c51b6;hp=13fe56fc5ccb6a5a95e06816ff72e27d5a291ed2;hpb=c83721701dbbd44d3d547fdec6c4a5658322f424;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/paramod.mli b/helm/software/components/ng_paramodulation/paramod.mli
index 13fe56fc5..e133036af 100644
--- a/helm/software/components/ng_paramodulation/paramod.mli
+++ b/helm/software/components/ng_paramodulation/paramod.mli
@@ -11,20 +11,25 @@
 
 (* $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 : 
       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