# HG changeset patch
# User wenzelm
# Date 1192443933 -7200
# Node ID 4bfae4c030be2a800b0d1360cad52056a66317b7
# Parent  7f2e1a8e181b5f87f4ff58a01aeda79767c585a5
tuned comment;

diff -r 7f2e1a8e181b -r 4bfae4c030be 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]) =>