proposition: Lemma fold_production'_ext {f g} (ext : forall b b', f b b' = g b b') b : fold_production' f b = fold_production' g b.
proof: Proof. unfold fold_production'. induction b as [ | x ]; try reflexivity; simpl. destruct x; rewrite ?IHb, ?ext; reflexivity. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Lists.List Coq.ZArith.ZArith Fiat.Parsers.ContextFreeGrammar.Carriers Fiat.Parsers.ContextFreeGrammar.PreNotations Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.BaseTypes Fiat.Parsers.BaseTypesLemmas Fiat.Parsers.Splitters.RDPList Fiat.Parsers.ContextFreeGrammar.Precompute Fiat.Common Fiat.Common.List.Operations Fiat.Common.Equality Fiat.Common.OptionFacts