X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Fsuperposition.mli;h=c67dbfb07dbbc13b3297d0b8903305a9680cf588;hb=762a35d1dcf3ccbcc69701f9d479c450186ecc12;hp=e3e2f8b9f2f6f15d12c791a4351309f022139ccd;hpb=2c2b31c242aa81dc6f3c73e7e2a3ec0789a21edd;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/superposition.mli b/helm/software/components/ng_paramodulation/superposition.mli
index e3e2f8b9f..c67dbfb07 100644
--- a/helm/software/components/ng_paramodulation/superposition.mli
+++ b/helm/software/components/ng_paramodulation/superposition.mli
@@ -11,11 +11,15 @@
 
 (* $Id: index.mli 9822 2009-06-03 15:37:06Z tassi $ *)
 
-module Superposition (B : Terms.Blob) : 
+module Superposition (B : Orderings.Blob) : 
   sig
 
                         (* bag, maxvar, meeting point *)
-    exception Success of B.t Terms.bag * int * B.t Terms.unit_clause
+    exception Success of 
+      B.t Terms.bag 
+      * int 
+      * B.t Terms.unit_clause
+      * B.t Terms.substitution
 
     (* The returned active set is the input one + the selected clause *)
     val infer_right :
@@ -45,7 +49,8 @@ module Superposition (B : Terms.Blob) :
             B.t Terms.bag * (B.t Terms.unit_clause option)
 
     (* may raise success *)
-    val simplify_goal : 
+    val simplify_goal :
+          no_demod:bool ->
           int ->
           Index.Index(B).DT.t ->
           B.t Terms.bag ->
@@ -58,15 +63,22 @@ module Superposition (B : Terms.Blob) :
       Index.Index(B).active_set ->
       B.t Terms.bag ->
       int ->
-      (B.t Terms.unit_clause * B.t Terms.bag * Index.Index(B).active_set) option
-
-
+      B.t Terms.bag * (B.t Terms.unit_clause * Index.Index(B).active_set) option
     val keep_simplified:
       B.t Terms.unit_clause ->
       Index.Index(B).active_set ->
       B.t Terms.bag ->
       int ->
-      (B.t Terms.unit_clause * B.t Terms.bag * Index.Index(B).active_set) option
+      B.t Terms.bag * (B.t Terms.unit_clause * Index.Index(B).active_set) option
 
+    val  orphan_murder:
+      B.t Terms.bag ->
+      B.t Terms.unit_clause list ->
+      B.t Terms.unit_clause ->
+      bool
 
+    val are_alpha_eq : 
+      B.t Terms.unit_clause ->
+      B.t Terms.unit_clause ->
+      bool
   end