2014-06-17 01:42:39 +00:00
|
|
|
namespace foo
|
|
|
|
variable A : Type.{1}
|
|
|
|
variable a : A
|
|
|
|
variable x : A
|
|
|
|
variable c : A
|
2014-08-07 23:59:08 +00:00
|
|
|
end foo
|
2014-06-17 01:42:39 +00:00
|
|
|
|
2014-08-23 22:44:28 +00:00
|
|
|
context
|
2014-09-03 23:00:38 +00:00
|
|
|
open foo (renaming a->b x->y) (hiding c)
|
2014-06-17 01:42:39 +00:00
|
|
|
check b
|
|
|
|
check y
|
|
|
|
check c -- Error
|
|
|
|
end
|
|
|
|
|
2014-08-23 22:44:28 +00:00
|
|
|
context
|
2014-09-03 23:00:38 +00:00
|
|
|
open foo (a x)
|
2014-06-17 01:42:39 +00:00
|
|
|
check a
|
|
|
|
check x
|
|
|
|
check c -- Error
|
|
|
|
end
|
|
|
|
|
2014-08-23 22:44:28 +00:00
|
|
|
context
|
2014-09-03 23:00:38 +00:00
|
|
|
open foo (a x) (hiding c) -- Error
|
2014-06-17 01:42:39 +00:00
|
|
|
end
|
|
|
|
|
2014-08-23 22:44:28 +00:00
|
|
|
context
|
2014-09-03 23:00:38 +00:00
|
|
|
open foo
|
2014-06-17 01:42:39 +00:00
|
|
|
check a
|
|
|
|
check c
|
|
|
|
check A
|
|
|
|
end
|
|
|
|
|
|
|
|
namespace foo
|
|
|
|
variable f : A → A → A
|
2014-07-01 23:55:41 +00:00
|
|
|
infix `*`:75 := f
|
2014-08-07 23:59:08 +00:00
|
|
|
end foo
|
2014-06-17 01:42:39 +00:00
|
|
|
|
2014-08-23 22:44:28 +00:00
|
|
|
context
|
2014-09-03 23:00:38 +00:00
|
|
|
open foo
|
2014-06-17 01:42:39 +00:00
|
|
|
check a * c
|
|
|
|
end
|
|
|
|
|
2014-08-23 22:44:28 +00:00
|
|
|
context
|
2014-09-03 23:00:38 +00:00
|
|
|
open [notation] foo -- use only the notation
|
2014-06-17 01:42:39 +00:00
|
|
|
check foo.a * foo.c
|
|
|
|
check a * c -- Error
|
|
|
|
end
|
|
|
|
|
2014-08-23 22:44:28 +00:00
|
|
|
context
|
2014-09-03 23:00:38 +00:00
|
|
|
open [decls] foo -- use only the declarations
|
2014-06-17 01:42:39 +00:00
|
|
|
check f a c
|
|
|
|
check a*c -- Error
|
|
|
|
end
|