intros a x y; elim x; simpl.
- intros; contradiction.
- intros a0 l Hrec.
apply set_mem_ind2; auto.
intros H1 H2; case (set_add_elim _ _ _ H2); intros; auto.
rewrite H; trivial.
Qed.

Lemma set_diff_iff a l l' : In a (set_diff l l') <-> In a l /\ ~In a l'.