From 94bd7b4d027e4152bd08cb984a66fae7077d9da6 Mon Sep 17 00:00:00 2001 From: Andrea Asperti Date: Mon, 11 Jan 2010 11:23:25 +0000 Subject: [PATCH] saturate cust be called with delta=0 --- helm/software/components/ng_paramodulation/nCicBlob.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 = -- 2.39.2