通过《Software Foundation》学习Coq语言的基本用法——2.Induction 3.Lists

摘录自《Software Foundation》，旨在交流与学习Coq的基本用法； 强烈建议大家下载源码自己运行一遍

Induction

通过Simplification证明的局限性

前面已经通过simplification证明了0 + n = n，现在尝试证明n = n + 0

Theorem plus_n_O_firsttry : forall n:nat,
  n = n + 0.
Proof.
  intros n.
  simpl. (* Does nothing! *)
Abort.

可以看到，reflexivity在这里无能为力，因为n和n + 0都是未知数，所以plus函数的match无法匹配。如果用destruct呢？

Theorem plus_n_O_secondtry : forall n:nat,
  n = n + 0.
Proof.
  intros n. destruct n as [| n'].
  - (* n = 0 *)
    reflexivity. (* so far so good... *)
  - (* n = S n' *)
    simpl.       (* ...but here we are stuck again *)
Abort.

运行以上代码会发现，destruct将n分为O（也就是0）与S n'（也就是非0）两种情况。n为0时可以证明，但n = S n'时仍然证明不了——即使将n'再destruct。

回忆数学归纳法的使用。Coq中也提供了类似的证明方法。

用induction进行归纳证明

注意这里的induction不是定义类型的inducive

Coq中提供了一个叫induction的tactic，它把上述定理的证明分成两个子目标：

1. 证明P(O)成立
2. 证明P(n')成立可以推导出P(S n')

下面是证明过程

Theorem plus_n_O : forall n:nat, n = n + 0.
Proof.