true vs. True in pattern matching
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*)