proposition: Lemma first_char_in__take n (str : String) ls : first_char_in str ls <-> first_char_in (take (S n) str) ls.
proof: Proof. unfold first_char_in; apply for_first_char__take. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Parsers.StringLike.Core Fiat.Parsers.StringLike.Properties Fiat.Parsers.StringLike.ForallChars Fiat.Common