src/HOL/Library/Mapping.thy
changeset 38857 97775f3e8722
parent 37701 411717732710
child 39198 f967a16dfcdd
equal deleted inserted replaced
38856:168dba35ecf3 38857:97775f3e8722
   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