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