unfold inclus in |- *.
intros.
cut (x = x0 \/ dans x0 a).
2: apply dans_add; auto.
intro H2; elim H2; clear H2.
intro H2; rewrite <- H2; auto.
auto.
Qed.
Hint Resolve add_inclus.

Lemma dans_trans :
forall (x : Elt) (a b : Ensf), dans x a -> inclus a b -> dans x b.