Inductive Sigma := embed (s : Sigma') | Start | hash.Inductive Sigma := embed (s : Sigma') | Start | hash.Inductive Sigma := embed (s : Sigma') | Start | hash.Inductive Sigma := embed (s : Sigma') | Start | hash.Definition embed_string (s : list Sigma') := map embed s.

Lemma Start_embed_string x : ~ Start el embed_string x.