fact: Definition evaluate_item' (evaluate_productions : simple_parse_of Char -> rproductions_with_actions Char T -> option T) (pit : simple_parse_of_item Char) : option match pit with | SimpleParseTerminal _ => Char | SimpleParseNonTerminal _ _ => T end := match pit return option match pit with | SimpleParseTerminal _ => Char | SimpleParseNonTerminal _ _ => T end with | SimpleParseTerminal ch => Some ch | SimpleParseNonTerminal nt p' => evaluate_productions p' (list_to_productions nil (pregrammar_arproductions G) nt) end.
imports: Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.ContextFreeGrammar.PreNotations Fiat.Parsers.BaseTypes Fiat.Parsers.GenericBaseTypes Fiat.Parsers.GenericRecognizer