- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在努力学习 Agda。任何人都可以完成此证明(如果它在正确的轨道上)或指出我现有的文章吗?我进行了广泛的搜索。
sum : ℕ → ℕ
sum 0 = 0
sum (suc a) = (suc a) + sum a
prove2*Sumn=n*sucn : (n : ℕ) → ((sum n) * 2) ≡ (n * (suc n))
prove2*Sumn=n*sucn zero = refl
prove2*Sumn=n*sucn (suc a) = {! !}
最佳答案
这需要比预期更多的工作。大多数辅助属性都可以在标准库中找到,但在这里我明确地提供了它们。我正在使用从 Agda 的标准库导入的内容。
open import Relation.Binary.PropositionalEquality
open import Data.Nat
open ≡-Reasoning
open import Function
sum : ℕ → ℕ
sum 0 = 0
sum (suc a) = (suc a) + sum a
rightZero : ∀ a → a + 0 ≡ a
rightZero zero = refl
rightZero (suc a) = cong suc (rightZero a)
times2 : ∀ a → a + a ≡ 2 * a
times2 zero = refl
times2 (suc a) = sym (cong (suc ∘ (a +_) ∘ suc) (rightZero a))
+-asso : ∀ a b c → a + (b + c) ≡ (a + b) + c
+-asso zero b c = refl
+-asso (suc a) b c = cong suc (+-asso a b c)
+-rsucc : ∀ m n → m + suc n ≡ suc (m + n)
+-rsucc zero n = refl
+-rsucc (suc m) n = cong suc (+-rsucc m n)
+-comm : ∀ a b → a + b ≡ b + a
+-comm zero b = sym (rightZero b)
+-comm (suc a) b = trans (cong suc (+-comm a b)) (sym (+-rsucc b a))
distribl* : ∀ m n k → m * (n + k) ≡ m * n + m * k
distribl* zero n k = refl
distribl* (suc m) n k = begin
n + k + m * (n + k) ≡⟨ cong (_+_ (n + k)) (distribl* m n k) ⟩
n + k + (m * n + m * k) ≡⟨ sym (+-asso n k (m * n + m * k)) ⟩
n + (k + (m * n + m * k)) ≡⟨ cong (_+_ n) (+-asso k (m * n) (m * k)) ⟩
n + ((k + m * n) + m * k) ≡⟨ sym (cong (λ z → n + (z + m * k)) (+-comm (m * n) k)) ⟩
n + ((m * n + k) + m * k) ≡⟨ sym (cong (_+_ n) (+-asso (m * n) k (m * k))) ⟩
n + (m * n + (k + m * k)) ≡⟨ +-asso n (m * n) (k + m * k) ⟩
n + m * n + (k + m * k ) ∎
*rid : ∀ a → a * 1 ≡ a
*rid zero = refl
*rid (suc a) = cong suc (*rid a)
*rz : ∀ a → a * 0 ≡ 0
*rz zero = refl
*rz (suc a) = *rz a
*-distribr : ∀ a b c → (a + b) * c ≡ a * c + b * c
*-distribr zero b c = refl
*-distribr (suc a) b c = begin
c + (a + b) * c ≡⟨ cong (_+_ c) (*-distribr a b c) ⟩
c + (a * c + b * c) ≡⟨ +-asso c (a * c) (b * c) ⟩
c + a * c + b * c ∎
*-rsucc : ∀ a b → a * suc b ≡ a + (a * b)
*-rsucc zero b = refl
*-rsucc (suc a) b = begin
suc (b + a * suc b) ≡⟨ cong (λ x → suc (b + x)) (*-rsucc a b) ⟩
suc (b + (a + a * b)) ≡⟨ cong suc (+-asso b a (a * b)) ⟩
suc ((b + a) + a * b) ≡⟨ sym (cong (λ z → suc (z + a * b)) (+-comm a b)) ⟩
suc ((a + b) + a * b) ≡⟨ sym (cong suc (+-asso a b (a * b))) ⟩
suc (a + (b + a * b)) ∎
*-comm : ∀ a b → a * b ≡ b * a
*-comm zero b = sym (*rz b)
*-comm (suc a) b = begin
b + a * b ≡⟨ cong (_+_ b) (*-comm a b) ⟩
b + b * a ≡⟨ sym (*-rsucc b a) ⟩ b * suc a ∎
prove2*Sumn=n*sucn : (n : ℕ) → (sum n * 2) ≡ (n * (1 + n))
prove2*Sumn=n*sucn zero = refl
prove2*Sumn=n*sucn (suc a) = cong (suc ∘ suc) $ begin
(a + sum a) * 2 ≡⟨ *-comm (a + sum a) 2 ⟩
2 * (a + sum a) ≡⟨ sym (times2 (a + sum a)) ⟩
(a + sum a) + (a + sum a) ≡⟨ sym (+-asso a (sum a) (a + sum a)) ⟩
a + (sum a + (a + sum a)) ≡⟨ cong (_+_ a) (+-asso (sum a) a (sum a)) ⟩
a + ((sum a + a) + sum a) ≡⟨ cong (a +_) (sym (cong (λ z → z + sum a) (+-comm a (sum a)))) ⟩
a + ((a + sum a) + sum a) ≡⟨ sym (cong (_+_ a) (+-asso a (sum a) (sum a))) ⟩
a + (a + (sum a + sum a)) ≡⟨ +-asso a a (sum a + sum a) ⟩
(a + a) + (sum a + sum a) ≡⟨ cong ((a + a) +_) (times2 (sum a)) ⟩
(a + a) + (2 * sum a) ≡⟨ sym (cong (_+_ (a + a)) (*-comm (sum a) (suc (suc zero)))) ⟩
(a + a) + (sum a * 2) ≡⟨ cong (_+_ (a + a)) (prove2*Sumn=n*sucn a) ⟩ -- inductive hypothesis
(a + a) + a * (1 + a) ≡⟨ sym (+-asso a a (a * suc a)) ⟩
a + (a + a * (1 + a)) ≡⟨ cong (a +_) (cong (a +_) (distribl* a 1 a)) ⟩
a + (a + ((a * 1) + (a * a))) ≡⟨ cong (λ z → a + (a + (z + a * a))) (*rid a) ⟩
a + (a + (a + (a * a))) ≡⟨ cong (_+_ a) (+-asso a a (a * a)) ⟩
a + (a + a + a * a) ≡⟨ cong (λ z → a + (z + a * a)) (times2 a) ⟩
a + (2 * a + a * a) ≡⟨ sym (cong (λ z → a + (z + a * a)) (*-comm a (suc (suc zero)))) ⟩
a + (a * 2 + a * a) ≡⟨ sym (cong (_+_ a) (distribl* a (suc (suc zero)) a)) ⟩
a + a * (2 + a) ∎
关于proof - n 自然之和的 Agda 证明,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50417117/
(这不是关于定理证明,而是关于实践中的测试,例如 quickCheck) 让f一些通用函数 f :: RESTRICTIONS => GENERICS 具有一些“理想的”属性(即不是 hack,是不可
给定数组 arr 和索引数组 ind,以下算法就地重新排列 arr 以满足给定的索引: function swap(arr, i, k) { var temp = arr[i]; arr[i]
我有兴趣创建一个具有运行时间和空间限制的简单数组问题。看来我找到了解决问题的方法。请阅读以下java代码中问题的初始描述注释: /* * Problem: Given two integer ar
我是 isabelle 的新手,并试图证明以下简单的不等式: lemma ineq: "(a::real) > 0 ⟹ a 0 ⟹ b 0" proof have "1/a + 1/b >
是否有任何理论说缓存应该比文件系统更快? 我认为,由于文件系统也使用缓存,因此没有科学证据表明当文件系统的概念有些松散时,我们应该将内容从文件系统移动到诸如 memcache 之类的缓存中——比如下载
我正在做一个证明,我的一个子目标看起来有点像这样: Goal forall (a b : bool) (p: Prop) (H1: p -> a = b) (H2: p), neg
我有定义的归纳类型: Inductive InL (A:Type) (y:A) : list A -> Prop := | InHead : forall xs:list A, InL y (co
我知道 CRC 是一个线性函数,这意味着 CRC(x xor y) = CRC(x) xor CRC(y),但我不知道如何证明 CRC 的这个属性。 有谁有想法吗? 非常感谢! 最佳答案 这通常不是真
我是 Coq 的初学者。 虽然计算机为我验证了证明令人满意,但众所周知,满足 Coq 的证明对人类来说难以阅读。这是一个简单的例子,假设您没有看到任何评论: Theorem add_comm : fo
我试图了解是什么决定了类型参数是否必须是标称的。 虽然 GADT 和类型家族在某种意义上看起来不同,但它们不是“简单容器”,因为它们的实例定义可以“查看”它们的参数,但简单类型是否可以明显需要名义参数
我想使用 function 关键字定义来证明函数定义的正确性。以下是自然数的通常归纳定义上的加法函数的定义: theory FunctionDefinition imports Main begin
我定义了一个 Sygma-Type,如下所示: { R : nat -> nat -> bool | Reflexive R } 我有两个元素 r1 r2 : { R : nat -> nat ->
我有以下数据: new_pairs x y Freq start.latittude start.longitude start.station end.la
出于教育目的,我一直试图通过使用各种语言扩展和单例类型,在 Haskell 中重建《Type-Driven Development with Idris》(即 RemoveElem.idr )一书中的
我定义了一个 Sygma-Type,如下所示: { R : nat -> nat -> bool | Reflexive R } 我有两个元素 r1 r2 : { R : nat -> nat ->
我正在使用Ax DevTools,并且试图弄清楚如何使用相同的构建信息标记多个扫描。现在,我的测试运行如下: class MyTestCase : XCTestCase { func myTest
我正在尝试证明一个函数的正确性,该函数检查数组是否按递增/递减顺序排序或未排序。行为是返回 -1,如果按降序排序,1,如果按升序排序,大小为 1,或包含相同的值,0,如果没有已排序或为空。运行:Fra
我试图证明 Z3(Microsoft 的 SMT 求解器)中的一个归纳事实。我知道 Z3 通常不提供此功能,如 Z3 guide 中所述。 (第 8 节:数据类型),但是当我们限制要证明事实的域时,这
问题已编辑: 如代码中所述,HashSet 和 HashMap 是快速失败的(但这不是保证): void goHashSet() { Set set = new HashSet();
我试图使导航栏中的链接延伸到导航栏的全长。我环顾四周,发现了一些有用的信息,但无法使其正常工作 HTML: To
我是一名优秀的程序员,十分优秀!