data List a = Nil | Cons a (List a)
append xs ys = case xs of Nil -> Cons x xs' ->
append
reverse xs = case xs of Nil -> Cons x xs' ->
forall xs . reverse (reverse xs) == xs