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