From: acondolu <andrea.condoluci@unibo.it>
Date: Thu, 13 Jul 2017 17:05:39 +0000 (+0200)
Subject: Fix: missing check to avoid stepping on vars of non positive arity
X-Git-Tag: weak-reduction-separation~48
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=a4343ff06595215e65679cf255ba7934193dcfe3;p=fireball-separation.git

Fix: missing check to avoid stepping on vars of non positive arity

(cherry picked from commit 58f1518398346a81ccd8d0b14a14565b8bff5276)
---

diff --git a/ocaml/lambda4.ml b/ocaml/lambda4.ml
index 62837b2..83f1c42 100644
--- a/ocaml/lambda4.ml
+++ b/ocaml/lambda4.ml
@@ -526,7 +526,10 @@ let auto_instantiate (n,p) =
        prerr_endline ("INSTANTIATING AND HOPING " ^ string_of_var x);
        x
   with
-   Not_found -> x in
+   Not_found ->
+    let arity_of_x = max_arity_tms x (all_terms p) in
+    assert (Util.option_get arity_of_x > 0); 
+    x in
 (* Instantiate in decreasing order of compute_special_k
 1:15m14s 2:13m14s 3:4m55s 4:4m43s 5:4m34s 6:6m28s 7:3m31s
 let x =