F# CancellationTokenSource.Cancel() 不会取消底层工作

在使用F#中的CancellationTokenSource.Cancel()方法时，如果底层工作不会响应取消请求，可以使用以下解决方法。

首先，确保底层工作支持取消操作。如果底层工作是自定义的，需要在适当的位置检查CancellationToken的IsCancellationRequested属性，并且在取消请求时中止工作。例如：

let doWork(cancellationToken : CancellationToken) =
    async {
        // 在适当的位置检查取消请求
        if cancellationToken.IsCancellationRequested then
            // 中止工作
            return ()

        // 执行底层工作
        // ...
    }

如果底层工作是使用的第三方库或框架，需要查看其文档，了解如何支持取消操作。有些库可能提供了自己的取消机制，可以通过传递CancellationToken来实现。

另外，可以使用F#中的异步工作流（async workflow）来处理取消操作。异步工作流提供了一种方便的方式来处理异步操作，并且可以通过CancellationToken的支持来取消操作。以下是一个示例：

open System.Threading

let cancellationTokenSource = new CancellationTokenSource()

let doWorkAsync(cancellationToken : CancellationToken) =
    async {
        // 在适当的位置检查取消请求
        if cancellationToken.IsCancellationRequested then
            // 中止工作
            return ()

        // 执行底层工作
        // ...
    }

let cancelWork() =
    cancellationTokenSource.Cancel()

let main() =
    async {
        try
            // 启动异步工作
            let! result = doWorkAsync(cancellationTokenSource.Token)

            // 处理工作结果
            // ...
        with
            | :? OperationCanceledException ->
                // 捕获取消操作的异常
                printfn "工作已取消"
    }

// 启动主函数
Async.Start(main, cancellationTokenSource.Token)

在上面的示例中，我们首先创建了一个CancellationTokenSource对象，用于取消操作。然后，在主函数中使用异步工作流doWorkAsync来执行底层工作，并且传递CancellationToken以支持取消操作。最后，通过调用cancellationTokenSource.Cancel()方法来取消工作。

请注意，在异步工作流中，我们使用let!关键字来等待异步操作的结果，并且使用try/with块来捕获OperationCanceledException异常，以处理取消操作。

总结起来，要解决F#中CancellationTokenSource.Cancel()方法不会取消底层工作的问题，需要确保底层工作支持取消操作，并且使用异步工作流或适当的取消机制来实现取消操作。