--- a/src/HOL/Library/AList.thy Tue May 11 21:57:43 2021 +0200
+++ b/src/HOL/Library/AList.thy Wed May 12 06:35:16 2021 +0200
@@ -475,7 +475,7 @@
subsection \<open>\<open>map_ran\<close>\<close>
-definition map_ran :: "('key \<Rightarrow> 'val \<Rightarrow> 'val) \<Rightarrow> ('key \<times> 'val) list \<Rightarrow> ('key \<times> 'val) list"
+definition map_ran :: "('key \<Rightarrow> 'val1 \<Rightarrow> 'val2) \<Rightarrow> ('key \<times> 'val1) list \<Rightarrow> ('key \<times> 'val2) list"
where "map_ran f = map (\<lambda>(k, v). (k, f k v))"
lemma map_ran_simps [simp]: