2014-11-30 21:16:01 -08:00
|
|
|
prelude precedence `+` : 65
|
2014-06-14 22:13:25 -07:00
|
|
|
precedence `*` : 75
|
|
|
|
precedence `=` : 50
|
|
|
|
precedence `≃` : 50
|
2014-10-02 16:20:52 -07:00
|
|
|
constant N : Type.{1}
|
|
|
|
constant a : N
|
|
|
|
constant b : N
|
|
|
|
constant add : N → N → N
|
|
|
|
constant mul : N → N → N
|
2014-06-14 22:13:25 -07:00
|
|
|
namespace foo
|
2014-06-15 08:28:49 -07:00
|
|
|
infixl + := add
|
|
|
|
infixl * := mul
|
2014-06-14 22:13:25 -07:00
|
|
|
check a+b*a
|
2014-08-07 16:59:08 -07:00
|
|
|
end foo
|
2014-06-14 22:13:25 -07:00
|
|
|
-- Notation is not avaiable outside the namespace
|
|
|
|
check a+b*a
|
|
|
|
namespace foo
|
|
|
|
-- Notation is restored
|
|
|
|
check a+b*a
|
2014-08-07 16:59:08 -07:00
|
|
|
end foo
|