law drop_succ
import bend-mathlib@0.8.1.0/list.bend as Listimport Base
2114# Dropping n + 1 elements of a cons drops its head and n from its tail.
2115law drop_succ:
2116 for -a: Quant
2117 for -A: Kind(a)
2118 for -x: A
2119 for -xs: List<a, A>
2120 for -n: Nat
2121 {List.drop(a, A, x <> xs, 1n+n) == List.drop(a, A, xs, n) : List<a, A>}