proposition: Lemma lwordnil_is_reg1 : reconnait (singleton zero) (singleton zero) (singleton zero) (prodcart empty (prodcart alph empty)) nil.
proof: Proof. unfold reconnait at 1 in |- *. split. apply inmonoid_nil. exists zero; exists zero. auto. Qed.
imports: Ensf Max Words Dec Reg Rat