equal
deleted
inserted
replaced
71 by transfer (simp add: map_of_map_restrict fun_eq_iff) |
71 by transfer (simp add: map_of_map_restrict fun_eq_iff) |
72 end |
72 end |
73 |
73 |
74 lemma equal_Mapping [code]: |
74 lemma equal_Mapping [code]: |
75 "HOL.equal (Mapping t1) (Mapping t2) \<longleftrightarrow> entries t1 = entries t2" |
75 "HOL.equal (Mapping t1) (Mapping t2) \<longleftrightarrow> entries t1 = entries t2" |
76 by (transfer fixing: t1 t2) (simp add: entries_lookup) |
76 by (transfer fixing: t1 t2) (simp add: entries_lookup) |
77 |
77 |
78 lemma [code nbe]: |
78 lemma [code nbe]: |
79 "HOL.equal (x :: (_, _) mapping) x \<longleftrightarrow> True" |
79 "HOL.equal (x :: (_, _) mapping) x \<longleftrightarrow> True" |
80 by (fact equal_refl) |
80 by (fact equal_refl) |
81 |
81 |