unfold reconnait at 1 in |- *.
split.
apply inmonoid_nil.
exists zero; exists zero.
auto.
Qed.
(* Seul le mot vide est reconnu par l'automate ci-dessus.		*)

(* Specifications: *)
Lemma lwordnil_is_reg2 :
forall w : Word,
reconnait (singleton zero) (singleton zero) (singleton zero)
(prodcart empty (prodcart alph empty)) w -> w = nil :>Word.