proposition: Lemma parse_of_contract_minimal_parse_of_production_lt {len0} {str : String} {valid valid' : nonterminals_listT} {Hlt : length str < len0} {pat} (p : minimal_parse_of_production (G := G) len0 valid str pat) : parse_of_production__of__minimal_parse_of_production (contract_minimal_parse_of_production_lt (valid' := valid') Hlt p) = parse_of_production__of__minimal_parse_of_production p.
proof: Proof. induction p; simpl; try reflexivity. fold @parse_of_item__of__minimal_parse_of_item in *. rewrite IHp, parse_of_contract_minimal_parse_of_item_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