proposition: Lemma parse_of_contract_minimal_parse_of_lt {len0} {str : String} {valid valid' : nonterminals_listT} {Hlt : length str < len0} {pats} (p : minimal_parse_of (G := G) len0 valid str pats) : parse_of__of__minimal_parse_of (contract_minimal_parse_of_lt (valid' := valid') Hlt p) = parse_of__of__minimal_parse_of p.
proof: Proof. induction p; simpl; progress rewrite ?IHp, ?parse_of_contract_minimal_parse_of_production_lt; reflexivity. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Strings.String Coq.Lists.List Coq.ZArith.ZArith Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.ContextFreeGrammar.Properties Fiat.Parsers.WellFoundedParse Fiat.Parsers.CorrectnessBaseTypes Fiat.Parsers.BaseTypes Fiat.Parsers.StringLike.Properties Fiat.Parsers.BaseTypesLemmas Fiat.Parsers.MinimalParse Fiat.Parsers.WellFoundedParseProperties Fiat.Common