definition foo : nat -> nat := fun x,
match x with
| bar -> bar
