∀ {α : Type u} {β : α → Type v} {δ : Type w} {m' : Type w → Type w'} [inst : Monad m'] [LawfulMonad m']
  {l : List ((a : α) × β a)} {f : δ → α → m' δ} {init : δ},
  List.foldrM (fun a b => f b a.fst) init l = List.foldrM (fun a b => f b a) init (Std.Internal.List.keys l)