fact: Definition list_to_grammar {T} (default : productions T) (ls : list (string * productions T)) : grammar T := {| Start_symbol := hd ""%string (map fst ls); Lookup := list_to_productions default ls; Valid_nonterminals := map fst ls |}.
imports: Coq.Strings.String Coq.Lists.List Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.ContextFreeGrammar.Reflective Fiat.Common.List.Operations Fiat.Common.Equality Fiat.Common.Gensym