lean2/tests/lean/t12.lean
2014-10-02 17:55:34 -07:00

7 lines
247 B
Text

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