在Agda工作Peano Axioms并且有点难以理解

Sch*_*ger 3 haskell axiom agda

PA6 : ?{m n} -> m ? n -> n ? m
Run Code Online (Sandbox Code Playgroud)

是我试图解决和支持的公理,我尝试使用cong(来自核心库)但是我遇到了构造函数的麻烦

PA6 = cong
Run Code Online (Sandbox Code Playgroud)

让我无处可去,我知道我需要提供一个平等和类型的refl,但我不知道我应该提供什么类型.想法?

这是在大学的一个小任务,所以我宁愿有人展示我错过的,而不是写出实际答案,但我会感谢任何程度的支持.

glg*_*guy 6

你的PA6说≡是对称的.

这可以在Relation.Binary.PropositionalEquality模块的标准库中找到.

sym : ? {a} {A : Set a} {x y : A} ? x ? y ? y ? x
sym refl = refl
Run Code Online (Sandbox Code Playgroud)

(这个问题已经很老了,但是我发帖是为了让未来的读者偶然发现它.)