13 lines
245 B
Text
13 lines
245 B
Text
constant N : Type.{1}
|
|
constant f : N → N
|
|
constant a : N
|
|
definition g (a : N) : N := f a
|
|
check g
|
|
namespace foo
|
|
definition h : N := f a
|
|
check h
|
|
private definition q : N := f a
|
|
check q
|
|
end foo
|
|
check foo.h
|
|
check q -- Error q is now hidden
|