∀ {α : Type u} {β : α → Type v} [inst : BEq α] [inst_1 : Hashable α] {m : Std.DHashMap.Raw α β} {δ : Type w}
  {m' : Type w → Type w'} [inst_2 : Monad m'] [LawfulMonad m'],
  m.WF → ∀ {f : δ → α → m' δ} {init : δ}, Std.DHashMap.Raw.foldM (fun d a x => f d a) init m = List.foldlM f init m.keys