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