17 lines
208 B
Text
17 lines
208 B
Text
|
open nat
|
||
|
|
|
||
|
|
context
|
||
|
|
inductive NatA :=
|
||
|
|
| a : NatA
|
||
|
|
| s : NatA → NatA
|
||
|
|
|
||
|
|
open NatA
|
||
|
|
|
||
|
|
definition foo (n : nat) : NatA :=
|
||
|
|
nat.rec_on n a (λ n' r, s r)
|
||
|
|
|
||
|
|
local attribute foo [coercion]
|
||
|
|
|
||
|
|
check s 10
|
||
|
|
end
|