| changeset 51438 | a614e456870b |
| parent 51379 | 6dd83e007f56 |
| child 56019 | 682bba24e474 |
--- 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)"