simp[denoteOps]
α₁ σ₁ : Type
ε₁ : σ₁ → Type
δ₁ : Dialect α₁ σ₁ ε₁
α₂ σ₂ : Type
ε₂ : σ₂ → Type
δ₂ : Dialect α₂ σ₂ ε₂
α σ : Type
ε : σ → Type
Δ : Dialect α σ ε
S : Semantics Δ
env : SSAEnv Δ
op op' : Op Δ
ops : List (Op Δ)
⊢ run (denoteOps Δ (op :: op' :: ops)) env =
    run
      (do
        let __discr ← denoteOp Δ op
        let x : TypedArgs Δ := __discr
        denoteOps Δ (op' :: ops))
      env
no goals