unfold foldAll
n : Nat
α : Type u
f : Nat → α → α
init : α
⊢ foldAll (f ∘ val) init = Nat.fold f n init
n : Nat
α : Type u
f : Nat → α → α
init : α
⊢ Id.run (foldAllM (f ∘ val) init) = Nat.fold f n init