2014-11-30 21:16:01 -08:00
|
|
|
prelude
|
2014-06-16 09:50:34 -07:00
|
|
|
precedence `+` : 65
|
|
|
|
precedence `++` : 100
|
2014-10-02 16:20:52 -07:00
|
|
|
constant N : Type.{1}
|
|
|
|
constant f : N → N → N
|
|
|
|
constant a : N
|
2014-07-09 18:47:10 -07:00
|
|
|
check
|
2014-06-16 09:50:34 -07: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)
|