fact: Definition Build_fold_grammar_data' {Char T} {fpdata : grammar_fixedpoint_lattice_data T} {aidata : AbstractInterpretation} (G : pregrammar' Char) (fgd_fold_grammar : FMapPositive.PositiveMap.t (lattice_for T)) (correctness : fgd_fold_grammar = fold_grammar_retyped G) : @fold_grammar_data Char T fpdata aidata G := @Build_fold_grammar_data Char T fpdata aidata G fgd_fold_grammar (fun nt => f_equal (fun g => @lookup_state (@fixedpoint_by_abstract_interpretation Char T fpdata aidata G (compiled_productions G)) g nt) correctness).
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