author | wenzelm |
Thu, 17 Jan 2002 21:05:40 +0100 | |
changeset 12806 | 1f54c65fca5d |
parent 12805 | 3be853cf19cf |
child 12807 | 4f2983e39a59 |
--- 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