X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FcicBlob.ml;h=fd6947e9c1521a79371503f08dd165cfa88171bd;hb=9c21f4a9a35415878189aca003847cbd42c1a9fc;hp=c6cb31cfc003a97cf20ab928a6050d70c9e0680c;hpb=6b0a195b180e3526af7b55771b2df7b10acd7c30;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/cicBlob.ml b/helm/software/components/ng_paramodulation/cicBlob.ml
index c6cb31cfc..fd6947e9c 100644
--- a/helm/software/components/ng_paramodulation/cicBlob.ml
+++ b/helm/software/components/ng_paramodulation/cicBlob.ml
@@ -32,9 +32,13 @@ module CicBlob(C : CicContext) : Terms.Blob with type t = Cic.term = struct
   let names = List.map (function Some (x,_) -> Some x | _ -> None) C.context;;
   let pp t = CicPp.pp t names;;
 
+  type input = t
+
   let embed t = assert false;;
 
-  let is_eq_predicate = assert false
-  let saturate = assert false 
+  let eqP = assert false;;
+
+  let saturate = assert false;;
+
 end