Question

为什么会出错？

import Data.Vect
import Data.Vect.Quantifiers

get : (i : Fin n) -> All (flip Vect t) ls -> Vect (index i ls) t
get FZ (y :: z) = y
get (FS y) (z :: w) = get y w

nproject : Vect l (n : _  ** Fin (index n ls)) -> All (flip Vect t) ls -> Vect l t
nproject [] _ = []
nproject ((n ** i)::fs) vs = index i (get n vs) :: nproject fs vs

仅当我翻转nproject：

时才会运行

*VectExtensions> flip nproject [[0]] [(0 ** 0)]
[0] : Vect 1 Integer
*VectExtensions> nproject [(0 ** 0)] [[0]]
When checking argument pf to constructor Builtins.MkDPair:
        Type mismatch between
                IsJust (Just x)
        and
                IsJust (integerToFin 0 n)

但它适用于明确的ls：

*VectExtensions> nproject {ls=[_]} [(0 ** 0)] [[0]]
[0] : Vect 1 Integer

Answer 1

错误来自integerToFin : Integer -> (n : Nat) -> Maybe (Fin n)。它由REPL使用，因为您使用(0 ** 0)而不是(FZ ** FZ)。 REPL知道这只是语法，你真的想要Fin n而不是Integer。因此，REPL首先尝试转换，(0 ** 0)变为内部(integerToFin 0 n ** integerToFin 0 m)。由于类型推断实现，它考虑n=Z的情况。因此integerToFin 0 Z = Nothing代替Just Fin n。

要解决此问题，您可以稍微帮助一下：

> nproject [(FZ ** 0)] [[0]] 
[0] : Vect 1 Integer

或者

> nproject [(0 ** FZ)] [[0]] 
[0] : Vect 1 Integer

那么，为什么会出现这个错误？

这取决于编译器类型推断的实现，如果我认为这是正确的，那么这种情况就不够智能了。 :-)

我猜问题大致如下：

这是:t nproject：

nproject : Vect l (n : Fin n ** Fin (index n ls)) -> All (flip Vect t) ls -> Vect l t

n可以是0，因此integerToFin 0 0 = Nothing。

在翻转案例中，n已知为1，因为它会尝试在[[0]]之前推断隐式参数和(0 ** 0)。然后REPL可以推断出integerToFin 0 (S Z) = Just FZ

功能仅在翻转时有效

1 个答案: