# HG changeset patch
# User traytel
# Date 1383573269 -3600
# Node ID 0753e8866ac8528b2b7bccfdecaa47bd32d3654e
# Parent  a596292be9a8abe1d5e52aac088a7005d59d25ad
more robust treatment of dead variables in n2m

diff -r a596292be9a8 -r 0753e8866ac8 src/HOL/BNF/Tools/bnf_fp_n2m.ML
--- a/src/HOL/BNF/Tools/bnf_fp_n2m.ML	Mon Nov 04 14:46:38 2013 +0100
+++ b/src/HOL/BNF/Tools/bnf_fp_n2m.ML	Mon Nov 04 14:54:29 2013 +0100
@@ -121,7 +121,8 @@
               in
                 Term.list_comb (rel, rels)
               end
-          | mk_rel (T as TFree _) _ = nth phis (find_index (curry op = T) As)
+          | mk_rel (T as TFree _) _ = (nth phis (find_index (curry op = T) As)
+              handle General.Subscript => HOLogic.eq_const T)
           | mk_rel _ _ = raise Fail "fpTs contains schematic type variables";
       in
         map2 (abstract oo mk_rel) fpTs fpTs'