# HG changeset patch
# User wenzelm
# Date 1004562025 -3600
# Node ID 72f43e7c3315b8b51a50f2cc4d576b21e0c08385
# Parent  72fd225a5aa2d69944fa5409c4832cf4725a6a90
'atomize': CHANGED_PROP;

diff -r 72fd225a5aa2 -r 72f43e7c3315 src/Pure/Isar/method.ML
--- a/src/Pure/Isar/method.ML	Wed Oct 31 22:00:02 2001 +0100
+++ b/src/Pure/Isar/method.ML	Wed Oct 31 22:00:25 2001 +0100
@@ -680,7 +680,7 @@
   ("insert", thms_args insert, "insert theorems, ignoring facts (improper)"),
   ("unfold", thms_args unfold, "unfold definitions"),
   ("fold", thms_args fold, "fold definitions"),
-  ("atomize", no_args (SIMPLE_METHOD' HEADGOAL ObjectLogic.atomize_tac),
+  ("atomize", no_args (SIMPLE_METHOD' HEADGOAL (CHANGED_PROP o ObjectLogic.atomize_tac)),
     "present local premises as object-level statements"),
   ("rule", thms_ctxt_args some_rule, "apply some rule"),
   ("erule", nat_thms_args erule, "apply rule in elimination manner (improper)"),