File: bug_1696.v

package info (click to toggle)
coq-doc 8.20.0-2
  • links: PTS, VCS
  • area: non-free
  • in suites: forky, sid, trixie
  • size: 46,708 kB
  • sloc: ml: 234,429; sh: 4,686; python: 3,359; ansic: 2,644; makefile: 842; lisp: 172; javascript: 87; xml: 24; sed: 2
file content (16 lines) | stat: -rw-r--r-- 432 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Require Import Setoid.

Inductive mynat := z : mynat | s : mynat -> mynat.

Parameter E : mynat -> mynat -> Prop.
Axiom E_equiv : equiv mynat E.

Add Relation mynat 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).

Goal z == s z -> s z == z. intros H. setoid_rewrite H at 2. reflexivity. Qed.