8 lines
156 B
Text
8 lines
156 B
Text
open nat
|
|
|
|
#reduce [whnf] (fun x, x + 1) (2:nat)
|
|
#reduce (fun x, x + 1) (2:nat)
|
|
|
|
variable a : nat
|
|
#reduce [whnf] a + succ nat.zero
|
|
#reduce a + succ nat.zero
|