∀ {m : Type u → Type u_1} {α : Type u} [inst : Monad m] [LawfulMonad m]
  (f : ({β : Type u} → OptionT m β → m (stM m (OptionT m) β)) → m (stM m (OptionT m) α)),
  (control f).run = f fun {β} x => x.run