law length_cons
import bend-mathlib@0.8.1.0/list.bend as Listimport Base
469# A cons is one longer than its tail.
470law length_cons:
471 for -a: Quant
472 for -A: Kind(a)
473 for -x: A
474 for -xs: List<a, A>
475 {List.length(a, A, x <> xs) == 1n+List.length(a, A, xs) : Nat}