X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Fparamod.mli;h=b161ae459086fa5bfe406545521ebcfd4545d82b;hb=3ca99dabf7d136ebd58fa61e7a2d7134c8dc365c;hp=9cffd9d2889af4958d8dc8254ce1af33e31dc18d;hpb=9450b36b5e385818adbcda257fa74260c2979fcd;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/paramod.mli b/helm/software/components/ng_paramodulation/paramod.mli
index 9cffd9d28..b161ae459 100644
--- a/helm/software/components/ng_paramodulation/paramod.mli
+++ b/helm/software/components/ng_paramodulation/paramod.mli
@@ -15,14 +15,29 @@ module type Paramod =
   sig
     type t
     type input
+    type state
     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 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 :       
+      state ->
+      t Terms.unit_clause ->
+      int ->
+      state 
+    val goal_narrowing :
+      int 
+      -> int
+      -> float option
+      -> state
+      -> state       
     val paramod : 
       useage:bool ->
       max_steps:int ->
@@ -30,6 +45,8 @@ module type Paramod =
       bag -> 
       g_passives:t Terms.unit_clause list -> 
       passives:t Terms.unit_clause list -> szsontology
+    val fast_eq_check :
+      state -> input* input -> szsontology
   end
 
 module Paramod ( B : Orderings.Blob ) : Paramod