From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Tue, 17 Apr 2007 08:41:09 +0000 (+0000)
Subject: fixed a list.nth called on a too short list
X-Git-Tag: make_still_working~6387
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=d8e0b34863a7359fb54fdbf9d747d7b624713130;p=helm.git

fixed a list.nth called on a too short list
---

diff --git a/helm/software/components/tactics/proofEngineReduction.ml b/helm/software/components/tactics/proofEngineReduction.ml
index ec6907436..016a7ba99 100644
--- a/helm/software/components/tactics/proofEngineReduction.ml
+++ b/helm/software/components/tactics/proofEngineReduction.ml
@@ -1023,7 +1023,7 @@ let simpl context =
                prerr_endline ("e piglio il rispettivo in :"^String.concat " " 
                  (List.map (fun x -> CicPp.ppterm x) original_args));
                (* look for args[regno] in saved_args *)
-               let wanted = List.nth args (guess_recno uri) in (* args@l ? *)
+               let wanted = List.nth (args@l) (guess_recno uri) in
                let rec aux n = function
                  | [] -> n (* DA CAPIRE *)
                  | t::_ when t = wanted -> n