- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在上一个问题 Using the value of a computed function for a proof in agda 中看到了一个检查函数的例子。 ,但我仍然无法解决这个问题。
这是一个简单的例子:
给定函数 crazy
,
crazy : ℕ -> ℕ
crazy 0 = 10
crazy 1 = 0
crazy 2 = 0
crazy 3 = 1
crazy 4 = 0
crazy xxx = xxx
safe
函数使得
safe : {nn : ℕ} -> (id nn) ≢ 0 -> Fin (id nn)
.换句话说,它会返回一个数字 mod 疯狂,如果你给它一个疯狂的证明是 0。(我知道这个例子有点做作,我可能最好在函数签名中使用
suc
)
safebad : {nn : ℕ} -> (crazy nn) ≢ 0 -> Fin (crazy nn)
safebad {1} hh with hh refl
... | ()
safebad {2} hh with hh refl
... | ()
safebad {4} hh with hh refl
... | ()
safebad {0} hh = # 0
safebad {3} hh = # 0
safebad {suc (suc (suc (suc (suc _))))} _ = # 0
safegood : (nn : ℕ) -> (crazy nn) ≢ 0 -> Fin (crazy nn)
safegood nn nez with crazy nn | inspect crazy nn
... | 0 | [ proof ] = ⊥-elim ???
... | _ | _ = # 0
Reveal_is_
似乎持有隐藏的值(value)
f
, Và
x
;以及
x
的结果适用于
f
.
[_]
将导致这种平等的证明。
⊥-elim
取一个矛盾的证明并返回一个矛盾。
???
为了这个工作?
1 Câu trả lời
你让它变得不必要地复杂。 thanh tra
仅当您需要使用模式匹配前的值等于模式匹配后的值的证明时才有用。请注意,您有 nez
在使这变得微不足道的范围内。
我们真正想做的是减少假设crazy nn ≢ 0
ĐẾN 0 ≢ 0
我们可以很容易地用它来构造一个矛盾。我们如何获得crazy nn
减少到 0
?您已经尝试过第一个选项 - 遍历所有可能的 crazy
为那些确实减少的人争论和钓鱼 crazy nn
ĐẾN 0
.另一种选择是简单地抽象 crazy nn
的值。 .
首先,我们使用之前的目标类型với
Đúng Fin (crazy nn)
Và nez
的类型是 crazy nn ≢ 0
.现在,我们抽象了 crazy nn
:
safegood nn nez with crazy nn
... | w = ?
Fin w
Và
nez
的类型是
w ≢ 0
,更容易使用!最后,我们在
w
上进行模式匹配:
safegood nn nez with crazy nn
... | zero = ?
... | suc w = ?
Fin 0
我们有一个
0 ≢ 0
作为我们的假设之一。这显然是废话,结合
nez
Và
refl
给了我们一个可以被
⊥-elim
使用的矛盾:
safegood nn nez with crazy nn
... | zero = ⊥-elim (nez refl)
... | suc w = ?
thanh tra
就在眼前!事实上,使用
thanh tra
这就像往返:你减少
crazy nn
ĐẾN
0
在类型中,得到
crazy nn ≡ 0
的证明现在你需要“减少”
0
trở lại
crazy nn
以便您可以使用
nez proof
.
crazy nn
上进行模式匹配保留证明类型
nez
使用已弃用的
thanh tra
完好无损:
open Deprecated-inspect
renaming (inspect to inspect′)
safegood₂ : (nn : ℕ) → crazy nn ≢ 0 → Fin (crazy nn)
safegood₂ nn nez with inspect′ (crazy nn)
... | zero with-≡ eq = ⊥-elim (nez eq)
... | suc _ with-≡ eq = ?
inspect′ (crazy nn)
, 否
crazy nn
子表达式将被替换并且
nez
将保持其原始类型。
proof
重建
nez
的原始类型;同样,这更像是“了解可能有用”而不是“在此处使用”:
safegood : (nn : ℕ) → crazy nn ≢ 0 → Fin (crazy nn)
safegood nn nez with crazy nn | inspect crazy nn
... | 0 | [ proof ] = ⊥-elim (subst (λ x → x ≢ 0) (sym proof) nez proof)
... | _ | _ = ?
关于proof - agda 的检查功能是如何工作的?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18564669/
所以我试图理解为什么这段代码在 () data sometype : List ℕ → Set where constr : (l1 l2 : List ℕ)(n : ℕ) → sometype
我最近问了这个问题: An agda proposition used in the type -- what does it mean? 并获得了关于如何使类型隐式和获得真正的编译时错误的深思熟虑的
背景:我正在研究 Prabakhar Ragde 的 "Logic and Computation Intertwined" ,对计算直觉逻辑的绝妙介绍。在他的最后一章中,他介绍了使用 Agda 的一
我正在尝试了解 Categories 库,但我对 Agda 还很陌生,所以我正在寻找某种文档来解释在该库的实现中所做的选择。在自述文件中有一个链接到这样的东西,但它坏了。 最佳答案 对于将来登陆这里的
我目前正在 Agda 中实现常规数据结构的衍生物, 如 Conor McBride [5] 的 One-Hole Context 论文中所述。 Löh & Magalhães [3,4] 也在 OHC
阅读 this answer促使我尝试构造并证明多态容器函数的规范形式。构造很简单,但证明让我很困惑。以下是我尝试编写证明的简化版本。 简化版本证明了足够多态的函数,由于参数性,不能仅根据参数的选择来
我正在尝试遵循 McBride 的 How to Keep Your Neighbours in Order 的代码,并且无法理解为什么 Agda(我使用的是 Agda 2.4.2.2)给出以下错误信
在 Agda 中玩证明验证时,我意识到我对某些类型明确使用了归纳原则,而在其他情况下则使用模式匹配。 我终于在维基百科上找到了一些关于模式匹配和归纳原则的文字:“在 Agda 中,依赖类型模式匹配是该
我看到的所有否定,即 A -> Bottom in agda 形式的结论都来自荒谬的模式匹配。还有其他情况可以在agda中获得否定吗?依赖类型理论中是否还有其他可能的情况? 最佳答案 类型理论通常没有
我是 agda 的新手,正在阅读 http://www.cse.chalmers.se/~ulfn/papers/afp08/tutorial.pdf .我的浅薄知识以某种方式发现点阵图案不是很有必要
我有这样一个函数: open import Data.Char open import Data.Nat open import Data.Bool open import Relation.Bina
我是 Agda 的新手,我认为我在那个范式中仍然有问题需要思考。这是我的问题..我有一个类型 monoid 和一个类型 Group 实现如下: record Monoid : Set₁ where
我对类型理论和依赖类型编程还很陌生,最近正在试验 Agda 的各种功能。以下是我编写的记录类型 C 的一个非常简化的示例,它包含多个组件记录和一些我们可以用来证明事物的约束。 open import
我在 Cubical agda 工作,并试图为以后的证明建立一些通用的实用程序。其中之一是,对于任何类型 A,它与 Σ A (\_ -> Top) 类型“相同”,其中 Top是具有一个元素的类型。问题
我在学习 Agda by tutorial ,现在我正在阅读有关依赖对的信息。 所以,这是代码片段: data Σ (A : Set) (B : A → Set) : Set where _,_
我有以下几点: open import Agda.Builtin.Equality open import Agda.Builtin.Nat renaming (Nat to ℕ) open impo
我是 Agda 的新手,对此感到困惑。 open import Data.Vec open import Data.Nat open import Data.Nat.DivMod open impor
为什么函数组合 (∘) 和应用程序 ($) 有可用的实现 https://github.com/agda/agda-stdlib/blob/master/src/Function.agda#L74-L
我是第一次尝试 Agda,我已经定义了 Bool 数据类型及其基本函数,就像所有教程所说的那样: data Bool : Set where true : Bool false : Bool not
在下面的 Agda 程序中,我收到关于 one 定义中缺少大小写的警告,尽管 myList 仅适合 cons 案例。 open import Data.Nat data List (A : Set)
Tôi là một lập trình viên xuất sắc, rất giỏi!