proposition: Lemma take_min_length (str : String) n : take n str =s take (min (length str) n) str.
proof: Proof. apply Nat.min_case_strong; [ | reflexivity ]. intro H. rewrite !take_long by (assumption || reflexivity). reflexivity. 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