X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Fsuperposition.mli;h=6deb0a4eb7a07c7e090e856c35ffa76a8ceab732;hb=7477c3dbbc2fafe248d48302be0d6ba4cb38d062;hp=5878918c2b37d60c1a8b8a4b63758d927882b229;hpb=96c91e470f670018df67c9cbff62fa06e3b57c5e;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/superposition.mli b/helm/software/components/ng_paramodulation/superposition.mli
index 5878918c2..6deb0a4eb 100644
--- a/helm/software/components/ng_paramodulation/superposition.mli
+++ b/helm/software/components/ng_paramodulation/superposition.mli
@@ -14,6 +14,7 @@
 module Superposition (B : Terms.Blob) : 
   sig
 
+                        (* bag, maxvar, meeting point *)
     exception Success of B.t Terms.bag * int * B.t Terms.unit_clause
 
     (* The returned active set is the input one + the selected clause *)
@@ -36,21 +37,32 @@ module Superposition (B : Terms.Blob) :
           B.t Terms.unit_clause ->
           Index.Index(B).DT.t -> B.t Terms.bag * B.t Terms.unit_clause
 
-    val forward_simplify : 
+    val simplify : 
           Index.Index(B).DT.t ->
           B.t Terms.bag ->
           B.t Terms.unit_clause ->
             (B.t Terms.bag * B.t Terms.unit_clause) option
 
     (* may raise success *)
-    val backward_simplify : 
+    val simplify_goal : 
           int ->
           Index.Index(B).DT.t ->
           B.t Terms.bag ->
           B.t Terms.unit_clause ->
             B.t Terms.bag * B.t Terms.unit_clause
 
-  end
+    val one_pass_simplification:
+      B.t Terms.unit_clause ->
+      Index.Index(B).active_set ->
+      B.t Terms.bag ->
+      (B.t Terms.unit_clause * B.t Terms.bag * Index.Index(B).active_set) option
+
 
+    val keep_simplified:
+      B.t Terms.unit_clause ->
+      Index.Index(B).active_set ->
+      B.t Terms.bag ->
+      (B.t Terms.unit_clause * B.t Terms.bag * Index.Index(B).active_set) option
 
 
+  end