X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2FnCicBlob.ml;h=bc7289176776131a7837e35c0a86dd811d9b93ca;hb=ced2abc1e3fe84d5bbfa9ccb2ebf46f253279ebe;hp=39bc9523a12791f82b85c121ec8dd3aea5f0db51;hpb=fa01419bafd483b5a043a93a2f812a98cf178e22;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/nCicBlob.ml b/helm/software/components/ng_paramodulation/nCicBlob.ml
index 39bc9523a..bc7289176 100644
--- a/helm/software/components/ng_paramodulation/nCicBlob.ml
+++ b/helm/software/components/ng_paramodulation/nCicBlob.ml
@@ -18,6 +18,7 @@ let default_eqP() =
   let uri = NUri.uri_of_string "cic:/matita/ng/Plogic/equality/eq.ind" in
   let ref = NReference.reference_of_spec uri (NReference.Ind(true,0,2)) in
     NCic.Const ref
+;;
 
 let set_default_eqP() = eqPref := default_eqP
 
@@ -93,7 +94,7 @@ with type t = NCic.term and type input = NCic.term = struct
 
   let saturate t ty = 
     let sty, _, args = 
-      NCicMetaSubst.saturate ~delta:max_int C.metasenv C.subst C.context
+      NCicMetaSubst.saturate ~delta:0 C.metasenv C.subst C.context
         ty 0
     in
     let proof =