changeset 49315 | e5b84afa7354 |
parent 49284 | 5f39b7940b49 |
child 49325 | 340844cbf7af |
--- a/src/HOL/Codatatype/Tools/bnf_def.ML Wed Sep 12 06:35:07 2012 +0200 +++ b/src/HOL/Codatatype/Tools/bnf_def.ML Wed Sep 12 09:39:41 2012 +0200 @@ -633,7 +633,7 @@ (*FIXME: check DUP here, not in after_qed*) val key = (case (CA, Binding.eq_name (qualify b, b)) of - (Type (C, _), True) => C + (Type (C, _), true) => C | _ => Name_Space.full_name Name_Space.default_naming b); (*TODO: further checks of type of bnf_map*)