fact: Definition collapse_to_possible_result (x : lattice_for possible_terminals_prestate) : possible_result := let x := norm_lattice_prod x in let x0 := fst x in let x123 := norm_lattice_prod (snd x) in let '(x12, x3) := (fst x123, snd x123) in let x12 := norm_lattice_prod x12 in let '(x1, x2) := (fst x12, snd x12) in {| might_be_empty_of_pr := collapse_might_be_empty x0; possible_first_characters_of_pr := make_all_possible_result x1; possible_last_characters_of_pr := make_all_possible_result x2; all_possible_characters_of_pr := make_all_possible_result x3 |}.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.MSets.MSetPositive Coq.Classes.Morphisms Fiat.Parsers.StringLike.FirstChar Fiat.Parsers.StringLike.LastChar Fiat.Parsers.StringLike.ForallChars Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.ContextFreeGrammar.PreNotations Fiat.Parsers.ContextFreeGrammar.Precompute Fiat.Parsers.StringLike.Properties Fiat.Parsers.Splitters.RDPList Fiat.Parsers.BaseTypes Fiat.Parsers.ContextFreeGrammar.Fix.FromAbstractInterpretationDefinitions Fiat.Parsers.ContextFreeGrammar.Fix.Fix Fiat.Parsers.ContextFreeGrammar.Fix.AsciiLattice Fiat.Parsers.ContextFreeGrammar.Fix.ProdAbstractInterpretationDefinitions Fiat.Parsers.ContextFreeGrammar.Fix.FromAbstractInterpretation Fiat.Parsers.Refinement.EmptyLemmas Fiat.Common.BoolFacts Fiat.Common.LogicFacts Fiat.Common.NatFacts Fiat.Common