law reverse_cons
import bend-mathlib@0.8.1.0/list.bend as Listimport Base
2091# Reversing a cons puts its head last: reverse (x :: xs) = reverse xs ++ [x].
2092law reverse_cons:
2093 for -a: Quant
2094 for -A: Kind(a)
2095 for -x: A
2096 for xs: List<a, A>
2097 {List.reverse(a, A, x <> xs) == List.append(a, A, List.reverse(a, A, xs), [x]) : List<a, A>}