rfl
α : Type u
β : Type v
γ : Type w
n : Nat
m : Type v → Type w
inst✝¹ : Monad m
inst✝ : LawfulMonad m
f : α → m β
x : SizedArray α n
a : α
⊢ (do
      let __do_lift ← f (push empty a)[0]
      pure (push (mkEmpty (0 + 1)) __do_lift)) =
    do
    let b ← f a
    pure (push empty b)
no goals