intro β f init
case h
C : Type u_3
τ : Type u_2
inst✝⁴ : Fold C τ
inst✝³ : LeanColls.ToList C τ
inst✝² : ToList C τ
m : Type u_1 → Type u_1
inst✝¹ : Monad m
inst✝ : LawfulMonad m
c : C
L : List τ
h : ∀ {β : Type u_1} (f : β → τ → β) (init : β), fold c f init = List.foldl f init L
⊢ ∀ {β : Type u_1} (f : β → τ → m β) (init : β), foldM c f init = List.foldlM f init L
case h
C : Type u_3
τ : Type u_2
inst✝⁴ : Fold C τ
inst✝³ : LeanColls.ToList C τ
inst✝² : ToList C τ
m : Type u_1 → Type u_1
inst✝¹ : Monad m
inst✝ : LawfulMonad m
c : C
L : List τ
h : ∀ {β : Type u_1} (f : β → τ → β) (init : β), fold c f init = List.foldl f init L
β : Type u_1
f : β → τ → m β
init : β
⊢ foldM c f init = List.foldlM f init L