7 lines
255 B
Text
7 lines
255 B
Text
prelude precedence `+` : 65
|
|
precedence `*` : 75
|
|
constant N : Type.{1}
|
|
check λ (f : N -> N -> N) (g : N → N → N) (infix + := f) (infix * := g) (x y : N), x+x*y
|
|
constant f : N → N → N
|
|
constant a : N
|
|
check a+a -- + notation is not available anymore
|