fact: Definition state_of_parse' str pats (p : parse_of G str pats) : ensemble_result str (fold_productions' (lookup_state fold_grammar) (opt.compile_productions pats)) := match p in parse_of _ _ pats return ensemble_result _ (fold_productions' _ (opt.compile_productions pats)) with | ParseHead pat pats p' => er_lift (state_of_parse_production p') (least_upper_bound_correct_l _ _) | ParseTail pat pats p' => er_lift (state_of_parse p') (least_upper_bound_correct_r _ _) 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