induction s.
simpl in |- *.
tauto.
simpl in |- *.
intros x z.
elim (eq_dart_dec d x).
intro.
apply IHs.
simpl in |- *.
intros.
elim H.
intro.
rewrite <- H0.
intro.
rewrite H1 in b.
tauto.
apply IHs.
Qed.

(* Specifications: *)
Lemma Ds_s:forall(s:set)(z:dart),
~exds s z <-> Ds s z = s.
Lemma not_exds_Ds_bis:forall(s:set)(x z:dart),
~exds s z -> ~exds (Ds s x) z.
Lemma exds_Ds_exds:forall(s:set)(x z:dart),
exds (Ds s x) z -> exds s z.