X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FfoSubst.mli;h=29516c57f8fb9d6095802baf869141d41889a06f;hb=509151febaf7817e5b6ac4bd22a3d9ffa1d9a1be;hp=dd7e0c2ec04075f56f7da90750a5a30fa628bdd0;hpb=25cf2297c8d14c14cfb2ff7695c9b6331825f4c9;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/foSubst.mli b/helm/software/components/ng_paramodulation/foSubst.mli
index dd7e0c2ec..29516c57f 100644
--- a/helm/software/components/ng_paramodulation/foSubst.mli
+++ b/helm/software/components/ng_paramodulation/foSubst.mli
@@ -11,13 +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
-  end
+      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 : 
+          'a Terms.substitution -> 'a Terms.foterm -> 'a Terms.foterm
+    val concat: 
+          'a Terms.substitution -> 'a Terms.substitution -> 
+            'a Terms.substitution
+(*   end *)