the prover is almost OK, types in fuctors a bit extended to

[helm.git] / helm / software / components / ng_paramodulation / cicBlob.ml

diff --git a/helm/software/components/ng_paramodulation/cicBlob.ml b/helm/software/components/ng_paramodulation/cicBlob.ml
index 5c672cddfd0e9614dd905242b991a5aa7e5da6fe..fd6947e9c1521a79371503f08dd165cfa88171bd 100644 (file)
--- a/helm/software/components/ng_paramodulation/cicBlob.ml
+++ b/helm/software/components/ng_paramodulation/cicBlob.ml
@@ -32,6 +32,8 @@ 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 eqP = assert false;;