fact: Definition default_to_rproduction {Char} (G : pregrammar Char) (idx : Carriers.default_production_carrierT) : rproduction Char := let nt_idx := fst idx in let nts := RLookup_idx G nt_idx in let ps_idx := List.length nts - S (fst (snd idx)) in let drop_count := snd (snd idx) in let ps := List.nth ps_idx nts nil in Operations.List.drop drop_count ps.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.micromega.Lia Coq.PArith.BinPos Coq.Lists.List Coq.Sorting.Mergesort Coq.Structures.OrdersEx Coq.Strings.Ascii Coq.Strings.String Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.ContextFreeGrammar.Carriers Fiat.Parsers.ContextFreeGrammar.Reflective Fiat.Parsers.ContextFreeGrammar.PreNotations Fiat.Parsers.Refinement.PossibleTerminalsSets