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.

Lemma not_exds_Ds_bis:forall(s:set)(x z:dart),
~exds s z -> ~exds (Ds s x) z.