proposition: Lemma singleton_take {str ch} (H' : str ~= [ ch ]) n : take (S n) str =s str.
proof: Proof. eapply bool_eq_char; try eassumption. rewrite take_long; try assumption. apply length_singleton in H'; omega. Qed.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Common Fiat.Common.List.Operations Fiat.Common.List.ListFacts Fiat.Common.Le Fiat.Common.Tactics.SetoidSubst Fiat.Common.Tactics.IsClosed Fiat.Parsers.StringLike.Core Fiat.Common.UIP