我尝试这样做:
λ (A : *) ->
λ (B : (A -> *)) ->
λ (t : (∀ (r : *) -> (∀ (x : a) -> (B x) -> r)) -> r) ->
(t (B (t A (λ (x : A) -> λ (y : (B x)) -> x)))
(λ (x : A) -> λ (y : (B x)) -> y))
请注意,由于该函数返回的值取决于 sigma 本身内部的值,因此我需要提取该值。该代码不会进行检查,因为我相信它无法将从 Sigma 中提取的类型与其内部的类型统一起来。
有什么解决方法吗?
None
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)