From: Andrea Asperti <andrea.asperti@unibo.it>
Date: Mon, 11 Jan 2010 11:23:25 +0000 (+0000)
Subject: saturate cust be called with delta=0
X-Git-Tag: make_still_working~3129
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=94bd7b4d027e4152bd08cb984a66fae7077d9da6;p=helm.git

saturate cust be called with delta=0
---

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 =