X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fng_paramodulation%2FnCicBlob.ml;fp=matitaB%2Fcomponents%2Fng_paramodulation%2FnCicBlob.ml;h=cd944c43d5d63cdf9e013f8fc6f009dfec79569d;hb=6c702f5054d7975f76911ba62da9bfa33d3ed0fa;hp=b9314a20317203d127413454acc13727d7c8616a;hpb=8196005571cabe243e658b08a71ffe7df6efa1d7;p=helm.git

diff --git a/matitaB/components/ng_paramodulation/nCicBlob.ml b/matitaB/components/ng_paramodulation/nCicBlob.ml
index b9314a203..cd944c43d 100644
--- a/matitaB/components/ng_paramodulation/nCicBlob.ml
+++ b/matitaB/components/ng_paramodulation/nCicBlob.ml
@@ -80,7 +80,8 @@ with type t = NCic.term and type input = NCic.term = struct
   
   let compare x y = 
     (* CSC: NCicPp.status is the best I can put here *)
-    if NCicReduction.alpha_eq (new NCicPp.status) [] [] [] x y  then 0 
+    (* WR: and I can't guess a user id, so I must put None *)
+    if NCicReduction.alpha_eq (new NCicPp.status None) [] [] [] x y  then 0 
     (* if x = y  then 0 *)
     else compare x y
   ;;
@@ -99,7 +100,8 @@ with type t = NCic.term and type input = NCic.term = struct
 
   let pp t = 
     (* CSC: NCicPp.status is the best I can put here *)
-    (new NCicPp.status)#ppterm ~context:C.context
+    (* WR: and I can't guess a user id, so I must put None *)
+    (new NCicPp.status None)#ppterm ~context:C.context
       ~metasenv:C.metasenv ~subst:C.subst t;;
 
   type input = NCic.term
@@ -122,7 +124,8 @@ with type t = NCic.term and type input = NCic.term = struct
   let saturate t ty = 
     let sty, _, args = 
       (* CSC: NCicPp.status is the best I can put here *)
-      NCicMetaSubst.saturate (new NCicPp.status) ~delta:0 C.metasenv C.subst
+      (* WR: and I can't guess a user id, so I must put None *)
+      NCicMetaSubst.saturate (new NCicPp.status None) ~delta:0 C.metasenv C.subst
        C.context ty 0
     in
     let proof =