{m : Type u_1 → Type u_2} →
  {α β : Type u_1} →
    (motive : MonadCont.Label (Option α) m β → Sort u_3) →
      (x : MonadCont.Label (Option α) m β) → ((f : Option α → m β) → motive { apply := f }) → motive x