∀ {α : Type u} {x : BEq α} {x_1 : Hashable α} {m : Std.HashSet α} {δ : Type v} {m' : Type v → Type w} [inst : Monad m']
  [LawfulMonad m'] {f : δ → α → m' δ} {init : δ},
  Std.HashSet.foldM (fun d a => f d a) init m = Array.foldlM f init m.toArray