# HG changeset patch
# User berghofe
# Date 1086094925 -7200
# Node ID ca5cae7fb65a2220fd82c777aca9c6fc9d1e2e15
# Parent  e9e0d8618043876f7070293754a4972e77027ebb
Removed ~10000 hack in function idx that can lead to inconsistencies
when unifying terms with a large number of abstractions.

diff -r e9e0d8618043 -r ca5cae7fb65a src/Pure/pattern.ML
--- a/src/Pure/pattern.ML	Tue Jun 01 15:00:26 2004 +0200
+++ b/src/Pure/pattern.ML	Tue Jun 01 15:02:05 2004 +0200
@@ -114,7 +114,7 @@
           | mpb _ atom           = atom
     in mpb 0 end;
 
-fun idx [] j     = ~10000
+fun idx [] j     = raise Unif
   | idx(i::is) j = if i=j then length is else idx is j;
 
 fun at xs i = nth_elem (i,xs);
@@ -162,7 +162,7 @@
 
 (* mk_proj_list(is) = [ |is| - k | 1 <= k <= |is| and is[k] >= 0 ] *)
 fun mk_proj_list is =
-    let fun mk(i::is,j) = if i >= 0 then j :: mk(is,j-1) else mk(is,j-1)
+    let fun mk(i::is,j) = if is_some i then j :: mk(is,j-1) else mk(is,j-1)
           | mk([],_)    = []
     in mk(is,length is - 1) end;
 
@@ -180,15 +180,13 @@
                          in (list_comb(f,ts'),env') end
                  | (Bound(i),ts) =>
                          let val j = trans d i
-                         in if j < 0 then raise Unif
-                            else let val (ts',env') = prs(ts,env,d,binders)
-                                 in (list_comb(Bound j,ts'),env') end
-                         end
+                             val (ts',env') = prs(ts,env,d,binders)
+                         in (list_comb(Bound j,ts'),env') end
                  | (Var(F as (a,_),Fty),ts) =>
                       let val js = ints_of' env ts;
-                          val js' = map (trans d) js;
+                          val js' = map (try (trans d)) js;
                           val ks = mk_proj_list js';
-                          val ls = filter (fn i => i >= 0) js'
+                          val ls = mapfilter I js'
                           val Hty = type_of_G env (Fty,length js,ks)
                           val (env',H) = Envir.genvar a (env,Hty)
                           val env'' =