11 lines
138 B
Text
11 lines
138 B
Text
open nat
|
|
|
|
definition pred (a : nat) : nat :=
|
|
nat.cases_on a
|
|
zero
|
|
(fun a₁, a₁)
|
|
|
|
example : pred 1 = 0 :=
|
|
rfl
|
|
|
|
print definition pred
|