equal
deleted
inserted
replaced
278 |
278 |
279 subsection {* Code generator setup *} |
279 subsection {* Code generator setup *} |
280 |
280 |
281 code_datatype empty update |
281 code_datatype empty update |
282 |
282 |
283 instantiation mapping :: (type, type) eq |
283 instantiation mapping :: (type, type) equal |
284 begin |
284 begin |
285 |
285 |
286 definition [code del]: |
286 definition [code del]: |
287 "HOL.eq m n \<longleftrightarrow> lookup m = lookup n" |
287 "HOL.equal m n \<longleftrightarrow> lookup m = lookup n" |
288 |
288 |
289 instance proof |
289 instance proof |
290 qed (simp add: eq_mapping_def) |
290 qed (simp add: equal_mapping_def) |
291 |
291 |
292 end |
292 end |
293 |
293 |
294 |
294 |
295 hide_const (open) empty is_empty lookup update delete ordered_keys keys size |
295 hide_const (open) empty is_empty lookup update delete ordered_keys keys size |