lean2/tests/lean/run/ns2.lean

35 lines
510 B
Text
Raw Permalink Normal View History

definition foo.id {A : Type} (a : A) := a
constant foo.T : Type.{1}
check foo.id
check foo.T
inductive foo.v.I := unit : foo.v.I
check foo.v.I
check foo.v.I.unit
namespace foo
check id
check T
check v.I
end foo
namespace bla
definition vvv.pr {A : Type} (a b : A) := a
check vvv.pr
end bla
check bla.vvv.pr
namespace bla
namespace vvv
check pr
inductive my.empty : Type
end vvv
end bla
check bla.vvv.my.empty
namespace foo.bla
structure vvv.xyz := mk
end foo.bla
check foo.bla.vvv.xyz.mk