fact: Definition pre_Fix_grammar_helper : aggregate_state -> aggregate_state := Fix (aggregate_state_lt_wf_idx (10 * List.length initial_nonterminals_data)) (fun _ => aggregate_state) (fun st Fix_grammar_internal => let st' := aggregate_step st in match Sumbool.sumbool_of_bool (aggregate_state_eq st st') with | left pf => st | right pf => Fix_grammar_internal st' (step_lt pf) end).
imports: Coq.Init.Wf Coq.Numbers.BinNums Coq.Arith.Arith Coq.FSets.FMapPositive Fiat.Parsers.ContextFreeGrammar.Carriers Fiat.Parsers.ContextFreeGrammar.PreNotations Fiat.Parsers.Splitters.RDPList Fiat.Parsers.BaseTypes Fiat.Parsers.ContextFreeGrammar.Fix.Definitions Fiat.Parsers.ContextFreeGrammar.Fix.Properties Fiat.Common.FMapExtensions.Wf Fiat.Common Fiat.Common.OptionFacts Fiat.Common.SetoidInstances