X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FfoSubst.mli;h=441e35581562a1cc95c4e1e1a04b6f72c5a44b8a;hb=c091ca7a030a85a529543de98e45c54284028b63;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..441e35581 100644
--- a/helm/software/components/ng_paramodulation/foSubst.mli
+++ b/helm/software/components/ng_paramodulation/foSubst.mli
@@ -11,13 +11,20 @@
 
 (* $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
+      int -> 'a Terms.foterm -> 'a Terms.substitution -> 
+       'a 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.substitution -> 'a Terms.foterm
+    val filter : 'a Terms.substitution -> Terms.varlist -> Terms.varlist
+    val apply_subst : 
+          'a Terms.substitution -> 'a Terms.foterm -> 'a Terms.foterm
+    val concat: 
+          'a Terms.substitution -> 'a Terms.substitution -> 
+            'a Terms.substitution
+(*   end *)