1.1 --- a/src/HOL/Codatatype/Tools/bnf_def.ML	Wed Sep 12 06:35:07 2012 +0200
     1.2 +++ b/src/HOL/Codatatype/Tools/bnf_def.ML	Wed Sep 12 09:39:41 2012 +0200
     1.3 @@ -633,7 +633,7 @@
     1.4      (*FIXME: check DUP here, not in after_qed*)
     1.5      val key =
     1.6        (case (CA, Binding.eq_name (qualify b, b)) of
     1.7 -        (Type (C, _), True) => C
     1.8 +        (Type (C, _), true) => C
     1.9        | _ => Name_Space.full_name Name_Space.default_naming b);
    1.10  
    1.11      (*TODO: further checks of type of bnf_map*)