types - 教会数字和宇宙不一致
问题描述
在以下代码中,该语句add'_commut
被 Coq 接受,但add_commut
由于 Universe 不一致而被拒绝。
Set Universe Polymorphism.
Definition nat : Type := forall (X : Type), X -> (X -> X) -> X.
Definition succ (n : nat) : nat := fun X z s => s (n X z s).
Definition add' (m n : nat) : nat := fun X z s => m X (n X z s) s.
Definition nat_rec (z : nat) (s : nat -> nat) (n : nat) : nat := n nat z s.
Definition add (m n : nat) : nat := nat_rec n succ m.
Definition equal (A : Type) (a : A) : A -> Type := fun a' => forall (P : A -> Type), P a -> P a'.
Lemma add'_commut (m n : nat) : equal nat (add' m n) (add' n m).
Admitted.
Lemma add_commut (m n : nat) : equal nat (add m n) (add n m).
(*
In environment
m : nat
n : nat
The term "add n (fun X : Type => m X)" has type
"nat@{Top.1078 Top.1079}"
while it is expected to have type
"nat@{Top.1080 Top.1078}" (universe inconsistency).
*)
如何让它通过?
解决方案
只有在您打开 impredicativeSet
时,教堂数字才有效,方法是放入-arg -impredicative-set
您的_CoqProject
文件或使用-impredicative-set
命令行选项。然后定义nat
为:
Definition nat : Set := forall (X : Set), X -> (X -> X) -> X.
ImpredicativeSet
允许具有与其量化nat
的完全相同的类型。Set
如果没有不可预测性,nat
则必须具有比它量化的更高的宇宙级别,尽管这些级别对您是隐藏的,直到您遇到问题中的错误。
请注意,禁言式Set
与经典逻辑不相容。
推荐阅读
- python - 在具有不同文件名的目录中查找并分隔最大元素
- reactjs - 错误:在 React 中导入图像时找不到模块“./”?
- layout - 在stackview下绘制矩形
- javascript - 如何在 VueJs 3 的渲染函数中将插槽发送到组件
- azure - 具有 Microsoft 身份验证的本地 ASP Core 3.1 MVC 应用程序 - 单租户或多租户
- reactjs - react-select 不会显示默认值
- c# - ASP DotNet Core MVC 读取 API JsonSerializer 从另一个节点开始
- xamarin - [Xamarin][Mvvmcross] 无法查找所需的编组信息
- sql - Symfony 5:带有键“NumberProjects,日期”的数组的键“DATE”不存在
- postgresql - PostgreSQL报错函数width_bucket(timestamp with time zone, timestamp without time zone[])不存在