--- 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));