# HG changeset patch
# User berghofe
# Date 1193763483 -3600
# Node ID 584d8f2e1fc9cbc4eaa508d1969862d1944c08a7
# Parent  1fcfcdcba53cae191361bde4924e028c7376f29f
Handle Subscript exception when looking up bound variables.

diff -r 1fcfcdcba53c -r 584d8f2e1fc9 src/Pure/Proof/reconstruct.ML
--- a/src/Pure/Proof/reconstruct.ML	Tue Oct 30 17:56:56 2007 +0100
+++ b/src/Pure/Proof/reconstruct.ML	Tue Oct 30 17:58:03 2007 +0100
@@ -103,7 +103,8 @@
           let val (env3, V) = mk_tvar (env2, [])
           in (t' $ u', V, vTs2, unifyT thy env3 T (U --> V)) end)
       end
-  | infer_type thy env Ts vTs (t as Bound i) = (t, List.nth (Ts, i), vTs, env);
+  | infer_type thy env Ts vTs (t as Bound i) = ((t, List.nth (Ts, i), vTs, env)
+      handle Subscript => error ("infer_type: bad variable index " ^ string_of_int i));
 
 fun cantunify thy (t, u) = error ("Non-unifiable terms:\n" ^
   Sign.string_of_term thy t ^ "\n\n" ^ Sign.string_of_term thy u);
@@ -157,7 +158,8 @@
     fun head_norm (prop, prf, cnstrts, env, vTs) =
       (Envir.head_norm env prop, prf, cnstrts, env, vTs);
 
-    fun mk_cnstrts env _ Hs vTs (PBound i) = (List.nth (Hs, i), PBound i, [], env, vTs)
+    fun mk_cnstrts env _ Hs vTs (PBound i) = ((List.nth (Hs, i), PBound i, [], env, vTs)
+          handle Subscript => error ("mk_cnstrts: bad variable index " ^ string_of_int i))
       | mk_cnstrts env Ts Hs vTs (Abst (s, opT, cprf)) =
           let
             val (env', T) = (case opT of