X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_paramodulation%2FnCicProof.ml;h=3f30a85c30ca84422d9b7554f3050581a0d4ac92;hb=866590ce137ec8fbbaf83fa8ba572177c30dbdd8;hp=cabca8259aefc524e89ed5b0e8e74f27049df70e;hpb=894d518aa760c9f816ddb0dc2b3fa88e1fe20a94;p=helm.git diff --git a/matita/components/ng_paramodulation/nCicProof.ml b/matita/components/ng_paramodulation/nCicProof.ml index cabca8259..3f30a85c3 100644 --- a/matita/components/ng_paramodulation/nCicProof.ml +++ b/matita/components/ng_paramodulation/nCicProof.ml @@ -181,7 +181,7 @@ let debug c _ = c;; List.fold_left (fun (i,acc) t -> i+1, - let f = extract status amount vl f in + let f = extract status amount vl f in if i = n then let imp = NCic.Implicit `Term in NCic.Appl (dag::imp::imp::imp(* f *)::imp::imp::