在Idris中进行秩n量化

时间:2014-04-05 11:30:36

标签: dependent-type higher-rank-types idris

我只能以相当笨拙的方式在Idris 0.9.12中执行rank-n类型:

tupleId : ((a : Type) -> a -> a) -> (a, b) -> (a, b)
tupleId f (a, b) = (f _ a, f _ b)

我需要在类型应用程序的任何地方使用下划线,因为当我尝试隐藏(嵌套)类型参数时,Idris会抛出解析错误:

tupleId : ({a : Type} -> a -> a) -> (a, b) -> (a, b) -- doesn't compile

一个可能更大的问题是我根本无法在更高级别的类型中进行类约束。我无法将以下Haskell函数转换为Idris:

appShow :: Show a => (forall a. Show a => a -> String) -> a -> String
appShow show x = show x

这也阻止我使用Idris函数作为类型的同义词,例如Lens,在Haskell中是Lens s t a b = forall f. Functor f => (a -> f b) -> s -> f t

有任何方法可以补救或规避上述问题吗?

1 个答案:

答案 0 :(得分:19)

我刚刚在master中实现了这个功能,允许在任意范围内使用implicits,并且它将在下一个hackage发行版中。虽然它还没有经过良好的测试!我至少尝试过以下简单示例和其他一些示例:

appShow : Show a => ({b : _} -> Show b => b -> String) -> a -> String
appShow s x = s x

AppendType : Type
AppendType = {a, n, m : _} -> Vect n a -> Vect m a -> Vect (n + m) a

append : AppendType
append [] ys = ys
append (x :: xs) ys = x :: append xs ys

tupleId : ({a : _} -> a -> a) -> (a, b) -> (a, b)
tupleId f (a, b) = (f a, f b)

Proxy  : Type -> Type -> Type -> Type -> (Type -> Type) -> Type -> Type

Producer' : Type -> (Type -> Type) -> Type -> Type
Producer' a m t = {x', x : _} -> Proxy x' x () a m t

yield : Monad m => a -> Producer' a m ()

分钟的主要约束是你不能直接给出隐式参数的值,除了在顶层。我最终会做些什么......