blob: ed6d4300e0793aa20c8d972404d6e9fc96de10d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Require Import ProofIrrelevance.
Lemma proof_irrelevance_set : forall (P : Set) (p1 p2 : P), p1 = p2.
Fail exact proof_irrelevance.
(*Qed.
Lemma paradox : False.
assert (H : 0 <> 1) by discriminate.
apply H.
Fail apply proof_irrelevance. (* inlined version is rejected *)
apply proof_irrelevance_set.
Qed.*)
Abort.
|
