precedence levels
This commit is contained in:
parent
7fcd27aafd
commit
4d940fb59b
1
test.hm
1
test.hm
|
@ -6,7 +6,6 @@ type Nat
|
||||||
-- which will bring a recursor for the type into scope
|
-- which will bring a recursor for the type into scope
|
||||||
-- rec[Nat] : A → (A → A) → Nat → A
|
-- rec[Nat] : A → (A → A) → Nat → A
|
||||||
|
|
||||||
|
|
||||||
-- defining addition as
|
-- defining addition as
|
||||||
add : Nat → Nat → Nat
|
add : Nat → Nat → Nat
|
||||||
:= rec[Nat] (λx. x) (λf n. succ (f n))
|
:= rec[Nat] (λx. x) (λf n. succ (f n))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user