10 lines
147 B
Text
10 lines
147 B
Text
set_option new_elaborator true
|
|
open nat
|
|
|
|
definition mypred (a : nat) : nat :=
|
|
nat.cases_on a
|
|
0
|
|
(fun a₁, a₁)
|
|
|
|
example : mypred 1 = 0 :=
|
|
rfl
|