lean2/tests/lean/t14.lean

prelude namespace foo
  constant A : Type.{1}
  constant a : A
  constant x : A
  constant c : A
end foo

context
  open foo (renaming a->b x->y) (hiding c)
  check b
  check y
  check c -- Error
end

context
  open foo (a x)
  check a
  check x
  check c -- Error
end

context
  open foo (a x) (hiding c) -- Error
end

context
  open foo
  check a
  check c
  check A
end

namespace foo
  constant f : A → A → A
  infix `*`:75 := f
end foo

context
  open foo
  check a * c
end

context
  open [notations] foo -- use only the notation
  check foo.a * foo.c
  check a * c -- Error
end

context
  open [decls] foo -- use only the declarations
  check f a c
  check a*c -- Error
end