tuned comment;
authorwenzelm
Mon, 15 Oct 2007 12:25:33 +0200
changeset 25035 4bfae4c030be
parent 25034 7f2e1a8e181b
child 25036 6394db28d795
tuned comment;
src/HOL/Tools/inductive_package.ML
--- 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]) =>