# HG changeset patch # User wenzelm # Date 1213025975 -7200 # Node ID 889613625e2bab5b1b81d813ab5f4e98e73435e9 # Parent 2a91d9575935e721cbd2968d752ea962aa0cc313 DatatypePackage.case_tac; diff -r 2a91d9575935 -r 889613625e2b src/HOL/TLA/Memory/MemoryImplementation.thy --- a/src/HOL/TLA/Memory/MemoryImplementation.thy Mon Jun 09 17:31:25 2008 +0200 +++ b/src/HOL/TLA/Memory/MemoryImplementation.thy Mon Jun 09 17:39:35 2008 +0200 @@ -764,7 +764,7 @@ ML {* fun split_idle_tac ss simps i = EVERY [TRY (rtac @{thm actionI} i), - case_tac "(s,t) |= unchanged (e p, c p, r p, m p, rmhist!p)" i, + DatatypePackage.case_tac "(s,t) |= unchanged (e p, c p, r p, m p, rmhist!p)" i, rewrite_goals_tac @{thms action_rews}, forward_tac [temp_use @{thm Step1_4_7}] i, asm_full_simp_tac (ss addsimps simps) i