ObjectLogic.atomize_term replaces ObjectLogic.atomize_cterm;
authorwenzelm
Thu, 17 Jan 2002 21:05:40 +0100
changeset 12806 1f54c65fca5d
parent 12805 3be853cf19cf
child 12807 4f2983e39a59
ObjectLogic.atomize_term replaces ObjectLogic.atomize_cterm;
src/Pure/Isar/locale.ML
--- a/src/Pure/Isar/locale.ML	Thu Jan 17 21:04:48 2002 +0100
+++ b/src/Pure/Isar/locale.ML	Thu Jan 17 21:05:40 2002 +0100
@@ -731,7 +731,7 @@
       if null pred_ts then Pretty.str ""
       else
         Library.foldr1 Logic.mk_conjunction pred_ts
-        |> Thm.cterm_of sg |> ObjectLogic.atomize_cterm |> Thm.term_of
+        |> ObjectLogic.atomize_term sg
         |> curry Term.list_abs_free pred_xs
         |> prt_term;
   in