Multi-user matita: changed the status object to include a ``user'' method

[helm.git] / matitaB / components / ng_paramodulation / nCicBlob.ml

diff --git a/matitaB/components/ng_paramodulation/nCicBlob.ml b/matitaB/components/ng_paramodulation/nCicBlob.ml
index b9314a20317203d127413454acc13727d7c8616a..cd944c43d5d63cdf9e013f8fc6f009dfec79569d 100644 (file)
--- 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 =