src/FOL/simpdata.ML
changeset 36599 ca42a56e3b14
parent 36546 a9873318fe30
child 38500 d5477ee35820
--- a/src/FOL/simpdata.ML	Fri Apr 30 09:54:04 2010 -0700
+++ b/src/FOL/simpdata.ML	Fri Apr 30 21:10:57 2010 +0200
@@ -35,10 +35,6 @@
   [("op -->", [@{thm mp}]), ("op &", [@{thm conjunct1}, @{thm conjunct2}]),
    ("All", [@{thm spec}]), ("True", []), ("False", [])];
 
-(* ###FIXME: move to simplifier.ML
-val mk_atomize:      (string * thm list) list -> thm -> thm list
-*)
-(* ###FIXME: move to simplifier.ML *)
 fun mk_atomize pairs =
   let fun atoms th =
         (case concl_of th of