fact: Definition lift_ensemble_result {str nt} (res : ensemble_result str (fold_productions' (lookup_state fold_grammar) (opt.compile_productions (G nt)))) : ensemble_result str (lookup_state fold_grammar (of_nonterminal nt)) := {| er_ensemble := er_ensemble res; er_state := er_state res; er_related := er_related res; er_correct := er_correct res; er_state_le := fold_le _ _ (er_state_le res) |}.
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