proposition: Lemma forall_chars__char_in__or_app (str : String) (ls1 ls2 : list Char) : forall_chars__char_in str ls1 \/ forall_chars__char_in str ls2 -> forall_chars__char_in str (ls1 ++ ls2).
proof: Proof. unfold forall_chars__char_in. intros [?|?]; repeat intro; (eapply forall_chars_Proper; [ .. | eassumption ]; [ reflexivity | ]; intros ??); apply List.in_or_app; eauto. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Parsers.StringLike.Core Fiat.Parsers.StringLike.Properties Fiat.Common