代替“ fix”作为证据

时间:2018-09-18 08:25:07

标签: coq coq-tactic

这个问题可能很简单,但是从昨天开始我就一直停留在这个问题上,我找不到要搜索的相关关键字。

请考虑以下内容:

Fixpoint mfp (t: nat*nat) := fst t.

Lemma ml: forall (t: nat*nat), mfp t = fst t.
Proof.
  intros.
  unfold mfp.
  (* substitute t0 with t in lhs *)
  reflexivity.
Qed.

展开mfp后,我必须证明(fix mfp (t0 : nat * nat) : nat := fst t0) t = fst t的确很简单,但我不知道如何告诉Coq“用t0代替t “。

您知道该怎么做吗?

0 个答案:

没有答案