unfold mapM
α : Type u
m : Type v → Type w
inst✝¹ : Monad m
β : Type v
inst✝ : LawfulMonad m
f : α → m β
a : α
x : Array α
⊢ mapM f (cons a x) = do
    let b ← f a
    let y ← mapM f x
    pure (cons b y)
α : Type u
m : Type v → Type w
inst✝¹ : Monad m
β : Type v
inst✝ : LawfulMonad m
f : α → m β
a : α
x : Array α
⊢ mapM.map f (cons a x) 0 (mkEmpty (size (cons a x))) = do
    let b ← f a
    let y ← mapM.map f x 0 (mkEmpty (size x))
    pure (cons b y)