unfold lstar in |- *.
intros.
elim H0; clear H0.
intros x H0.
apply (H x w); auto.
Qed.
(*									*)
(*  Si w est dans l alors w est dans l*.				*)
(*									*)

Lemma lw_imp_lstarlw : forall (l : wordset) (w : Word), l w -> lstar l w.
intros.