(** * Coq codes *)
(** ** Dependencies *)
Require Export RegExp.Utility.
Require Export RegExp.Definitions.
Require Export RegExp.Boolean.
Require Export RegExp.Concat.
Unset Standard Proposition Elimination Names.
(** ** Lemmas for Star *)

Lemma divide_Star_right : forall s r, (Star r) ~== s -> s <> ""%string ->
{s':string & {s'':string | s = (s' ++ s'')%string /\ s' <> ""%string /\
r ~== s' /\ (Star r) ~== s''}}.