fact: Definition er_lift {str st1 st2} (v : ensemble_result str st1) (Hle : st1 <= st2) : ensemble_result str st2 := {| er_ensemble := v; er_state := v; er_related := er_related v; er_correct := er_correct v; er_state_le := transitivity (R := state_le) (er_state_le v) Hle |}.
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