first proof reconstruction attempt, still bugged since it

[helm.git] / helm / software / components / ng_paramodulation / foSubst.mli

diff --git a/helm/software/components/ng_paramodulation/foSubst.mli b/helm/software/components/ng_paramodulation/foSubst.mli
index 74845d28aa090433342c49078859f00a6ae7539d..441e35581562a1cc95c4e1e1a04b6f72c5a44b8a 100644 (file)
--- a/helm/software/components/ng_paramodulation/foSubst.mli
+++ b/helm/software/components/ng_paramodulation/foSubst.mli
@@ -11,18 +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
+          int -> 'a Terms.substitution -> 'a Terms.foterm
+    val filter : 'a Terms.substitution -> Terms.varlist -> Terms.varlist
     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 *)