Coq:如何产生强大的多态依赖类型假说

时间:2019-03-05 02:13:31

标签: coq proof coq-tactic induction proof-of-correctness

由于“弱假设”,我一直在依赖归纳方面遇到一些问题。

例如:

我有一个完整的依存可折叠列表:

Inductive list (A : Type) (f : A -> A -> A) : A -> Type :=
  |Acons : forall {x x'' : A} (y' : A) (cons' : list f (f x x'')), list f (f (f x x'') y')
  |Anil : forall (x: A) (y : A), list f (f x y).

还有一个从归纳类型列表中返回应用的折叠值的函数,以及其他通过匹配强制计算这些值的函数。

Definition v'_list {X} {f : X -> X -> X} {y : X} (A : list f y) := y.

Fixpoint fold {A : Type} {Y : A} (z : A -> A -> A) (d' : list z Y) :=
  match d' return A with
    |Acons x y => z x (@fold _ _ z y)
    |Anil _ x y  => z x y
   end.

很明显,如果具有相同的从属类型列表,则该函数将返回相同的值,并证明这不那么难。

Theorem listFold_eq : forall {A : Type} {Y : A} (z : A -> A -> A) (d' : list z Y), fold d' = v'_list d'.
intros.
generalize dependent Y.
dependent induction d'.
(.. so ..)
Qed.

我的问题是依赖定义为我生成了一个较弱的假设。

因为在我使用依赖定义的大多数证明中,我都有类似的东西,所以上面的证明问题:

A : Type
z : A -> A -> A
x, x'', y' : A
d' : list z (z x x'')
IHd' : fold d' = v'_list d'
______________________________________(1/2)
fold (Acons y' d') = v'_list (Acons y' d')

即使我在(z x x'')中有一个多态定义,我也无法在目标中应用IHd'。

我的问题是否可以定义更多“强大的”和多态的归纳方法,而不是使用有时会困扰我的疯狂重写术语。

1 个答案:

答案 0 :(得分:0)

如果愿意

simpl.
unfold v'_list.

您可以看到即将到来(可以完成重写),但是z的参数顺序错误,因为listfold并不相同同意折叠的方式。

在不相关的注释上,Acons可以对单个x进行量化,仅用f x x''代替x