这个问题可能很简单,但是从昨天开始我就一直停留在这个问题上,我找不到要搜索的相关关键字。
请考虑以下内容:
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
“。
您知道该怎么做吗?