import data.nat.basic
open nat
eval [whnf] (fun x, x + 1) 2
eval (fun x, x + 1) 2
variable a : nat
eval [whnf] a + succ zero
eval a + succ zero