src/HOL/Library/RBT_Mapping.thy
changeset 51161 6ed12ae3b3e1
parent 49929 70300f1b6835
child 51379 6dd83e007f56
--- a/src/HOL/Library/RBT_Mapping.thy	Fri Feb 15 11:47:33 2013 +0100
+++ b/src/HOL/Library/RBT_Mapping.thy	Fri Feb 15 11:47:34 2013 +0100
@@ -73,7 +73,7 @@
 
 lemma equal_Mapping [code]:
   "HOL.equal (Mapping t1) (Mapping t2) \<longleftrightarrow> entries t1 = entries t2"
-by (transfer fixing: t1 t2) (simp add: entries_lookup)
+  by (transfer fixing: t1 t2) (simp add: entries_lookup)
 
 lemma [code nbe]:
   "HOL.equal (x :: (_, _) mapping) x \<longleftrightarrow> True"