author | blanchet |
Mon, 10 Sep 2012 17:36:02 +0200 | |
changeset 49257 | e9cdacf44cc3 |
parent 49256 | df98aeb80a19 |
child 49258 | 84f13469d7f0 |
--- a/src/HOL/Codatatype/Tools/bnf_wrap.ML Mon Sep 10 17:36:02 2012 +0200 +++ b/src/HOL/Codatatype/Tools/bnf_wrap.ML Mon Sep 10 17:36:02 2012 +0200 @@ -196,7 +196,6 @@ val missing_alternate_disc_def = FalseE; (*arbitrary marker*) (* TODO: Allow use of same selector for several constructors *) - (* TODO: Allow use of same name for datatype and for constructor, e.g. "data L = L" *) val (((raw_discs, raw_disc_defs), (raw_selss, raw_sel_defss)), (lthy', lthy)) = no_defs_lthy