fact: Definition production_code_invert_app {Char} {x y z : production Char} : production_code (x ++ y)%list z <-> (exists x' y', x' ++ y' = z /\ production_code x x' /\ production_code y y')%list := eqlistA_app_iff _ _ _ _.
imports: Fiat.Parsers.ContextFreeGrammar.Core Fiat.Common Fiat.Common.Equality Fiat.Common.Enumerable Fiat.Common.List.ListFacts