test(tests/lean/attr_at3): add test for 'attribute ... at ...'

This commit is contained in:
Leonardo de Moura 2015-12-05 11:17:42 -08:00
parent e5aab3fd63
commit 9736b8d79c
2 changed files with 25 additions and 0 deletions

17
tests/lean/attr_at3.lean Normal file
View file

@ -0,0 +1,17 @@
namespace bla
definition f (a : nat) := a + 1
attribute f [reducible] at foo
print f
end bla
section
open foo
print bla.f
end
print bla.f
namespace foo
print bla.f
end foo

View file

@ -0,0 +1,8 @@
definition bla.f : :=
λ (a : ), a + 1
definition bla.f [reducible] : :=
λ (a : ), a + 1
definition bla.f : :=
λ (a : ), a + 1
definition bla.f [reducible] : :=
λ (a : ), a + 1