1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Require Import Setoid.
Parameter A : Set.
Inductive liste : Set :=
| vide : liste
| c : A -> liste -> liste.
Inductive e : A -> liste -> Prop :=
| ec : forall (x : A) (l : liste), e x (c x l)
| ee : forall (x y : A) (l : liste), e x l -> e x (c y l).
Definition same := fun (l m : liste) => forall (x : A), e x l <-> e x m.
Definition same_refl (x:liste) : (same x x).
unfold same; split; intros; trivial.
Qed.
Goal forall (x:liste), (same x x).
intro.
apply (same_refl x).
Qed.
|
