fact: Definition er_combine_production n str st1 st2 (it : ensemble_result (take n str) st1) (its : ensemble_result (drop n str) st2) : ensemble_result str (combine_production st1 st2) := {| er_ensemble := ensemble_combine_production it its; er_state := combine_production (T := T) (it : state) (its : state); er_related := combine_production_correct it it (er_related it) its its (er_related its); er_correct := ex_intro _ n (conj (er_correct it) (er_correct its)); er_state_le := combine_production_Proper_le (er_state_le it) (er_state_le its) |}.
imports: Coq.Sets.Ensembles 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.FromAbstractInterpretationDefinitions Fiat.Parsers.ContextFreeGrammar.Fix.Fix Fiat.Parsers.ContextFreeGrammar.Fix.Properties Fiat.Common