# HG changeset patch
# User kuncar
# Date 1363463507 -3600
# Node ID a614e456870b515bf897907bb4c3e3324c2158b0
# Parent  8739f8abbecb8fe75e7077ca7bde13d3ce4b9f4f
drop a workaround because of 8739f8abbecb

diff -r 8739f8abbecb -r a614e456870b src/HOL/Library/RBT_Mapping.thy
--- a/src/HOL/Library/RBT_Mapping.thy	Sat Mar 16 20:51:23 2013 +0100
+++ b/src/HOL/Library/RBT_Mapping.thy	Sat Mar 16 20:51:47 2013 +0100
@@ -39,7 +39,7 @@
 
 lemma map_entry_Mapping [code]:
   "Mapping.map_entry k f (Mapping t) = Mapping (map_entry k f t)"
-by (transfer fixing: t, case_tac "lookup t k") auto
+  apply (transfer fixing: t) by (case_tac "lookup t k") auto
 
 lemma keys_Mapping [code]:
   "Mapping.keys (Mapping t) = set (keys t)"