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"