11 lines
125 B
Text
11 lines
125 B
Text
|
open nat
|
||
|
|
|
||
|
|
notation `foo` a :=
|
||
|
|
match a with
|
||
|
|
(c, d) := c + d
|
||
|
|
end
|
||
|
|
|
||
|
|
eval foo (2, 3)
|
||
|
|
|
||
|
|
notation `bla` a `with` H := a ↓ H
|