law take_take
import bend-mathlib@0.8.1.0/list.bend as Listimport Base
339# Taking m from the first n is taking min(n, m).
340law take_take:
341 for -a: Quant
342 for -A: Kind(a)
343 for xs: List<a, A>
344 for n: Nat
345 for m: Nat
346 {List.take(a, A, List.take(a, A, xs, n), m) == List.take(a, A, xs, Nat.min(n, m)) : List<a, A>}