# HG changeset patch
# User wenzelm
# Date 1010870148 -3600
# Node ID 46808b5ec98581271229bbb8f3570e33b9c7088a
# Parent  4ed8ab7d677ddc0fd1cce003a5392cc1435c78cc
added atomize_cterm;

diff -r 4ed8ab7d677d -r 46808b5ec985 src/Pure/Isar/object_logic.ML
--- a/src/Pure/Isar/object_logic.ML	Sat Jan 12 16:55:53 2002 +0100
+++ b/src/Pure/Isar/object_logic.ML	Sat Jan 12 22:15:48 2002 +0100
@@ -16,6 +16,7 @@
   val fixed_judgment: Sign.sg -> string -> term
   val declare_atomize: theory attribute
   val declare_rulify: theory attribute
+  val atomize_cterm: cterm -> cterm
   val atomize_tac: int -> tactic
   val atomize_goal: int -> thm -> thm
   val rulify: thm -> thm
@@ -126,6 +127,10 @@
     (MetaSimplifier.forall_conv
       (MetaSimplifier.goals_conv (K true) (Tactic.rewrite true rews)))));
 
+fun atomize_cterm ct =
+  let val sg = #sign (Thm.rep_cterm ct)
+  in Thm.cterm_fun (drop_judgment sg) (Tactic.rewrite_cterm true (get_atomize sg) ct) end;
+
 fun atomize_tac i st =
   if Logic.has_meta_prems (#prop (Thm.rep_thm st)) i then
     (rewrite_prems_tac (get_atomize (Thm.sign_of_thm st)) i) st