fact: Definition state_of_parse_item' str it (p : parse_of_item G str it) : ensemble_result str (fold_item' (lookup_state fold_grammar) (opt.compile_item it)) := match p in parse_of_item _ _ it return ensemble_result _ (fold_item' _ (opt.compile_item it)) with | ParseTerminal ch P Hch Hstr => {| er_state := on_terminal P; er_ensemble := ensemble_on_terminal P; er_related := on_terminal_correct P; er_correct := ex_intro _ ch (conj Hch Hstr); er_state_le := reflexivity (R := state_le) _ |} | ParseNonTerminal nt Hvalid p' => lift_ensemble_result (state_of_parse p') end.
imports: Coq.Sets.Ensembles Fiat.Parsers.ContextFreeGrammar.PreNotations Fiat.Parsers.ContextFreeGrammar.Carriers Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.ContextFreeGrammar.Precompute Fiat.Parsers.BaseTypes Fiat.Parsers.Splitters.RDPList Fiat.Parsers.ContextFreeGrammar.Fix.FromAbstractInterpretationDefinitions Fiat.Parsers.ContextFreeGrammar.Fix.Fix Fiat.Parsers.ContextFreeGrammar.Fix.Properties Fiat.Common