fact: Definition ensemble_fold_productions' (fold_nt : default_nonterminal_carrierT -> Ensemble String) (its : productions Char) := List.fold_right ensemble_least_upper_bound ensemble_bottom (List.map (ensemble_fold_production' fold_nt) its).
imports: Coq.Sets.Ensembles Coq.Classes.Morphisms 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.Definitions Fiat.Common.List.ListMorphisms