2014-12-01 05:16:01 +00:00
|
|
|
prelude
|
2014-06-16 16:50:34 +00:00
|
|
|
precedence `+` : 65
|
|
|
|
precedence `++` : 100
|
2014-10-02 23:20:52 +00:00
|
|
|
constant N : Type.{1}
|
|
|
|
constant f : N → N → N
|
|
|
|
constant a : N
|
2014-07-10 01:47:10 +00:00
|
|
|
check
|
2014-06-16 16:50:34 +00:00
|
|
|
let g x y := f x y,
|
|
|
|
infix + := g,
|
|
|
|
b : N := a+a,
|
|
|
|
c := b+a,
|
|
|
|
h (x : N) := x+x,
|
|
|
|
postfix ++ := h,
|
|
|
|
d := c++,
|
|
|
|
r (x : N) : N := x++++
|
|
|
|
in f b (r c)
|