(*									*)
(*  On definit tout d'abord le type wordset, qui est Word->Prop		*)
(*  et qui definit un ensemble de mots par sa fonction caracteristique.	*)
(*  									*)
(*  L'egalite de 2 wordset est definie comme la double implication.	*)
(*									*)


Definition wordset := Word -> Prop.Definition eqwordset (l1 l2 : wordset) : Prop :=
  forall w : Word, (l1 w -> l2 w) /\ (l2 w -> l1 w).

(* Specifications: *)
Lemma eqwordset_refl : forall L : wordset, eqwordset L L.
Lemma eqwordset_sym : forall l1 l2 : wordset, eqwordset l1 l2 -> eqwordset l2 l1.
Lemma eqwordset_trans : forall l1 l2 l3 : wordset, eqwordset l1 l2 -> eqwordset l2 l3 -> eqwordset l1 l3.