Dictionary 有限域映射

我需要一个数据类型中的有限映射。我一直使用典型（部分）映射，直到我在证明中遇到了一个障碍，这只能通过引入

finite（dom）

谓词来解决。携带这一事实是乏味的，那么在标准库中是否有一些解决方案？

如中所述（我还从中偷取了以下示例），在

“~~~/src/HOL/library/finite_map”中有一个有限映射类型
fmap
，因为
Isabelle2016-1

theory Scratch
  imports "~~/src/HOL/Library/Finite_Map"
begin

value "fmdom' (fmap_of_list [(1, 2), (3, 4::nat)])"
(* prints "{1, 1 + 1 + 1}" *)

在找到被引用的答案之前，我在谷歌上搜索了5次。排名靠前的结果来自2006年的一个邮件列表线程，所以我想让它更适合SEO。