X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_paramodulation%2FnCicBlob.ml;h=9e17f86d551a7da4d3c10c8db5319a19a03a4da4;hb=7684ad8a8fec35563be35c1d5c797dfab83c1e3f;hp=e141272affa53b058df09ff2179c79070696f339;hpb=c6aeb873c1c35f6ddf22dfec9ef19977ab53a0f8;p=helm.git

diff --git a/matita/components/ng_paramodulation/nCicBlob.ml b/matita/components/ng_paramodulation/nCicBlob.ml
index e141272af..9e17f86d5 100644
--- a/matita/components/ng_paramodulation/nCicBlob.ml
+++ b/matita/components/ng_paramodulation/nCicBlob.ml
@@ -45,8 +45,10 @@ with type t = NCic.term and type input = NCic.term = struct
 
   type t = NCic.term
 
-  let eq x y = x = y;;
-    (* NCicReduction.alpha_eq C.metasenv C.subst C.context x y;; *)
+  let eq x y =
+   (* CSC: NCicPp.status is the best I can put here *)
+   x = y ||
+   NCicReduction.alpha_eq (new NCicPp.status) C.metasenv C.subst C.context x y;;
 
   let height_of_ref = function
     | NReference.Def h -> h
@@ -79,8 +81,7 @@ with type t = NCic.term and type input = NCic.term = struct
   ;;
   
   let compare x y = 
-    if NCicReduction.alpha_eq [] [] [] x y  then 0 
-    (* if x = y  then 0 *)
+    if eq x y then 0
     else compare x y
   ;;
 
@@ -97,7 +98,9 @@ with type t = NCic.term and type input = NCic.term = struct
     | _ -> None
 
   let pp t = 
-    NCicPp.ppterm ~context:C.context ~metasenv:C.metasenv ~subst:C.subst t;;
+    (* CSC: NCicPp.status is the best I can put here *)
+    (new NCicPp.status)#ppterm ~context:C.context
+      ~metasenv:C.metasenv ~subst:C.subst t;;
 
   type input = NCic.term
 
@@ -118,8 +121,9 @@ with type t = NCic.term and type input = NCic.term = struct
 
   let saturate t ty = 
     let sty, _, args = 
-      NCicMetaSubst.saturate ~delta:0 C.metasenv C.subst C.context
-        ty 0
+      (* CSC: NCicPp.status is the best I can put here *)
+      NCicMetaSubst.saturate (new NCicPp.status) ~delta:0 C.metasenv C.subst
+       C.context ty 0
     in
     let proof = 
       if args = [] then Terms.Leaf t