author | wenzelm |
Mon, 15 Oct 2007 12:25:33 +0200 | |
changeset 25035 | 4bfae4c030be |
parent 25034 | 7f2e1a8e181b |
child 25036 | 6394db28d795 |
--- a/src/HOL/Tools/inductive_package.ML Mon Oct 15 12:10:31 2007 +0200 +++ b/src/HOL/Tools/inductive_package.ML Mon Oct 15 12:25:33 2007 +0200 @@ -925,7 +925,6 @@ val _ = OuterSyntax.keywords ["monos"]; -(* FIXME tmp *) fun flatten_specification specs = specs |> maps (fn (a, (concl, [])) => concl |> map (fn ((b, atts), [B]) =>