Question

我正在Haskell中编写一个依赖类型的库。在我的测试可执行文件上使用分析，我看到类似的东西：

commutativity' Math 1189 4022787186 29.1 27.2 29.1 27.2

commutativity'基本上是（递归）证明类型级整数的整数加法交换属性。它定义如下：

commutativity' :: SNat n -> SNat m -> Plus (S n) m :~: Plus n (S m)
commutativity' SZ m = Refl
commutativity' (SS n) m = gcastWith (commutativity' n m) Refl

然后在我的库中使用gcastWith来证明各种类型的等价性。

所以...我的运行时有29％用在完全没用的东西上，因为类型检查是在编译时发生的。

我天真地认为这不会发生。

我能做些什么来优化这些无用的电话吗？

Answer 1

如果你非常确定证据一词终止，你可以使用

之类的东西

unsafeProof :: proof -> proof
unsafeProof _ = unsafeCoerce ()

someFunction :: forall n m.  ...
someFunction = case unsafeProof myProof :: Plus (S n) m :~: Plus n (S m) of
   Refl -> ...

这必须仅用于具有单个无参数构造函数的类型，例如Refl a :~: b。否则，您的程序可能会崩溃或表现得很奇怪。注意事项！

更安全（但仍然不安全！）变体可能是

unsafeProof :: a :~: b -> a :~: b
unsafeProof _ = unsafeCoerce ()

请注意，如果将底部传递给它，您仍然可以使程序崩溃。

我希望有一天GHC能够安全自动地执行此优化，确保通过静态分析终止。

使用GHC进行依赖类型编程的运行时成本

1 个答案: