blob: 7d8ba5b8daca006a93873feb867a29c7b5d66880 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Require Import TestSuite.admit.
Require Import Setoid.
Parameter E : nat -> nat -> Prop.
Axiom E_equiv : equiv nat E.
Add Relation nat E
reflexivity proved by (proj1 E_equiv)
symmetry proved by (proj2 (proj2 E_equiv))
transitivity proved by (proj1 (proj2 E_equiv))
as E_rel.
Notation "x == y" := (E x y) (at level 70, no associativity).
Axiom r : False -> 0 == 1.
Goal 0 == 0.
Proof.
rewrite r.
reflexivity.
admit.
Qed.
|
