# HG changeset patch
# User blanchet
# Date 1383654207 -3600
# Node ID 807532d15d16391b1344c0fe7a6a2e3691aa7ca3
# Parent  78e8a178b690a6bef29917c965ce37f86b7b134a
fixed subtle name shadowing bug

diff -r 78e8a178b690 -r 807532d15d16 src/HOL/BNF/Tools/bnf_fp_n2m_sugar.ML
--- a/src/HOL/BNF/Tools/bnf_fp_n2m_sugar.ML	Tue Nov 05 12:40:58 2013 +0100
+++ b/src/HOL/BNF/Tools/bnf_fp_n2m_sugar.ML	Tue Nov 05 13:23:27 2013 +0100
@@ -339,8 +339,8 @@
         SOME U => (U, seen_lthy)
       | NONE =>
         (case T of
-          Type (s, Ts) =>
-          if exists_subtype_in Ts T then fold_map generalize_type Ts seen_lthy |>> curry Type s
+          Type (s, Ts') =>
+          if exists_subtype_in Ts T then fold_map generalize_type Ts' seen_lthy |>> curry Type s
           else generalize_simple_type T seen_lthy
         | _ => generalize_simple_type T seen_lthy));