lean2/tests/lean/sec2.lean

structure A : Type := mk
structure B : Type := mk
constant f : A → B
constant g : B → B
constant a : A

namespace foo
  attribute f [coercion]
  print coercions
  check g a
end foo

check g a -- Error

section boo
  attribute f [coercion]
  print coercions
  check g a
end boo
-- The metaobjects defined in the section persist to the outer level.
-- This is not a bug. The idea is: we can use the scope to define
-- auxiliary variables that are then used to define classes/instances/etc.
-- That is, the whole point of the scope is to define these metaobjects.
check g a -- Ok
test(tests/lean): add new test for scoping rules 2015-01-22 19:41:19 +00:00			`structure A : Type := mk`
			`structure B : Type := mk`
			`constant f : A → B`
			`constant g : B → B`
			`constant a : A`

			`namespace foo`
refactor(frontends/lean): add 'attribute' command The new command provides a uniform way to set declaration attributes. It replaces the commands: class, instance, coercion, multiple_instances, reducible, irreducible 2015-01-25 04:23:21 +00:00			`attribute f [coercion]`
test(tests/lean): add new test for scoping rules 2015-01-22 19:41:19 +00:00			`print coercions`
			`check g a`
			`end foo`

			`check g a -- Error`

			`section boo`
refactor(frontends/lean): add 'attribute' command The new command provides a uniform way to set declaration attributes. It replaces the commands: class, instance, coercion, multiple_instances, reducible, irreducible 2015-01-25 04:23:21 +00:00			`attribute f [coercion]`
test(tests/lean): add new test for scoping rules 2015-01-22 19:41:19 +00:00			`print coercions`
			`check g a`
			`end boo`
			`-- The metaobjects defined in the section persist to the outer level.`
			`-- This is not a bug. The idea is: we can use the scope to define`
			`-- auxiliary variables that are then used to define classes/instances/etc.`
			`-- That is, the whole point of the scope is to define these metaobjects.`
			`check g a -- Ok`