Inductive Gamma := emb (x : Gamma') | StartG.Inductive Gamma := emb (x : Gamma') | StartG.Inductive Gamma := emb (x : Gamma') | StartG.Global Instance eq_dec_gamma : eq_dec Gamma.Global Instance fin_gamma : finTypeC (EqType Gamma).Definition emb_string := map emb.

Lemma G_char (x : list Gamma') : x = rev x <-> L palin_G (emb_string x).