proposition: Lemma expand_helper_1 {len0 len0' str str'} (pf : length str <= len0) (Hlen0 : Hlen0T len0 len0' str str') (Hstr : str =s str') : length str' <= len0'.
proof: Proof. setoid_subst_rel beq. destruct_head or; omega. 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