def f : List Nat → List Nat :=
fun x =>
  match x with
  | a :: xs@(b :: bs) => xs
  | x => []