proposition: Lemma first_char_such_that_past_end (might_be_empty : Prop) (str : String) (n : nat) P (H : length str <= n) (H' : is_first_char_such_that might_be_empty str n P) : might_be_empty.
proof: Proof. destruct_head_hnf and. destruct_head_hnf or; destruct_head_hnf and; trivial. exfalso; omega. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Arith.PeanoNat Fiat.Parsers.StringLike.Core Fiat.Parsers.StringLike.Properties Fiat.Parsers.StringLike.ForallChars Fiat.Parsers.StringLike.FirstChar Fiat.Common Fiat.Common.NatFacts