X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FfoSubst.mli;h=29516c57f8fb9d6095802baf869141d41889a06f;hb=1cdd34d7c286ab22d942e2dd1b1420e1c1caeff6;hp=74845d28aa090433342c49078859f00a6ae7539d;hpb=6b0a195b180e3526af7b55771b2df7b10acd7c30;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/foSubst.mli b/helm/software/components/ng_paramodulation/foSubst.mli
index 74845d28a..29516c57f 100644
--- a/helm/software/components/ng_paramodulation/foSubst.mli
+++ b/helm/software/components/ng_paramodulation/foSubst.mli
@@ -11,18 +11,22 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
+(*
 module Subst (B : Terms.Blob) : 
   sig
-    val id_subst : B.t Terms.substitution
+*)
+    val id_subst : 'a Terms.substitution
     val build_subst : 
-      int -> B.t Terms.foterm -> B.t Terms.substitution -> 
-       B.t Terms.substitution
-    val lookup_subst : 
-          int -> B.t Terms.substitution -> B.t Terms.foterm
-    val filter : B.t Terms.substitution -> Terms.varlist -> Terms.varlist
+      int -> 'a Terms.foterm -> 'a Terms.substitution -> 
+       'a Terms.substitution
+    val lookup : 
+          int -> 'a Terms.substitution -> 'a Terms.foterm
+    val filter : 'a Terms.substitution -> Terms.varlist -> Terms.varlist
+    val reloc_subst : 
+          'a Terms.substitution -> 'a Terms.foterm -> 'a Terms.foterm
     val apply_subst : 
-          B.t Terms.substitution -> B.t Terms.foterm -> B.t Terms.foterm
+          'a Terms.substitution -> 'a Terms.foterm -> 'a Terms.foterm
     val concat: 
-          B.t Terms.substitution -> B.t Terms.substitution -> 
-            B.t Terms.substitution
-  end
+          'a Terms.substitution -> 'a Terms.substitution -> 
+            'a Terms.substitution
+(*   end *)