{α : Type w} →
  {m : Type u → Type v} →
    {β : Type u} →
      {motive : MonadCont.Label α m β → Sort u_1} →
        ((apply : α → m β) → motive { apply := apply }) → (t : MonadCont.Label α m β) → motive t