X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FfoUnif.mli;h=2371f2180c394cff4d3c19f57aca41c8ab38f2a8;hb=dd29593d12cffd332c9d546167215f42a90fa9f7;hp=6d50f70ee2339087099df6da70d9540a044b59a4;hpb=eca915d2656084f1e58149a476a2d305758b00f9;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/foUnif.mli b/helm/software/components/ng_paramodulation/foUnif.mli
index 6d50f70ee..2371f2180 100644
--- a/helm/software/components/ng_paramodulation/foUnif.mli
+++ b/helm/software/components/ng_paramodulation/foUnif.mli
@@ -13,17 +13,17 @@
 
 exception UnificationFailure of string Lazy.t;;
 
-module Founif (B : Terms.Blob) : 
+module Founif (B : Orderings.Blob) : 
   sig
 
    val unification:
-     (* global varlist for both terms t1 and t2 *)
-     Terms.varlist -> 
+     (* global varlist for both terms t1 and t2 (UNUSED) *)
+     (* Terms.varlist -> *)
      (* locked variables: if equal to FV(t2) we match t1 with t2*)
      Terms.varlist -> 
      B.t Terms.foterm ->
      B.t Terms.foterm ->
-        B.t Terms.substitution * Terms.varlist
+        B.t Terms.substitution 
 
 
    val alpha_eq: