如何在 Coq 中證明 ~~(P \/ ~P)

Question

我想在 Coq 中證明~~(P \/ ~P) ，這聽起來有點微不足道......但是我不知道 go 在哪里，因為沒有任何單一的假設。 我編寫了以下不起作用的代碼，因為它在[ltac_use_default] expected after [tactic] (in [tactic_command]).

Parameter P: Prop.

Section r20.
Lemma regra1: ~~(P \/ ~P).
Proof.
  intro.
   - cut P.
   - cut ~P
Qed.
End r20.

Answer 1

這是一個有點棘手的問題。 這是證明它的一種方法。

Parameter P : Prop.

Section r20.
Lemma regra1: ~~(P \/ ~P).
Proof.
  unfold not. intros H1.
  apply H1. right.
  intros H2.
  apply H1. left.
  exact H2.
Qed.
End r20.