X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Fparamod.mli;h=b195e80c945221e4f942fd0bf77c1a72987e6b02;hb=a90c31c1b53222bd6d57360c5ba5c2d0fe7d5207;hp=367d7939448f269ebedd755cb688cbc887155c9c;hpb=4377e950998c9c63937582952a79975947aa9a45;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/paramod.mli b/helm/software/components/ng_paramodulation/paramod.mli
index 367d79394..b195e80c9 100644
--- a/helm/software/components/ng_paramodulation/paramod.mli
+++ b/helm/software/components/ng_paramodulation/paramod.mli
@@ -17,15 +17,12 @@ module type Paramod =
     type input
     type state
     type szsontology = 
-      | Unsatisfiable of 
-	  (t Terms.bag * int * t Terms.substitution * int list) list
+      | 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 empty_state : state
-    val bag_of_state :state -> bag
-    val replace_bag : state -> bag -> state
     val mk_passive : bag -> input * input -> bag * t Terms.unit_clause
     val mk_goal : bag -> input * input -> bag * t Terms.unit_clause
     val forward_infer_step :       
@@ -33,12 +30,6 @@ module type Paramod =
       t Terms.unit_clause ->
       int ->
       state 
-    val goal_narrowing :
-      int 
-      -> int
-      -> float option
-      -> state
-      -> state       
     val paramod : 
       useage:bool ->
       max_steps:int ->
@@ -46,17 +37,6 @@ module type Paramod =
       bag -> 
       g_passives:t Terms.unit_clause list -> 
       passives:t Terms.unit_clause list -> szsontology
-    val demod :
-      state -> input* input -> szsontology
-    val fast_eq_check :
-      state -> input* input -> szsontology
-    val nparamod :
-      useage:bool ->
-      max_steps:int ->
-      ?timeout:float ->
-      state -> 
-      input* input -> 
-      szsontology
   end
 
 module Paramod ( B : Orderings.Blob ) : Paramod