2014-12-03 22:25:02 +00:00
|
|
|
namespace nat
|
|
|
|
|
inductive less (a : nat) : nat → Prop :=
|
2015-02-26 01:00:10 +00:00
|
|
|
| base : less a (succ a)
|
|
|
|
|
| step : Π {b}, less a b → less a (succ b)
|
2014-12-03 22:25:02 +00:00
|
|
|
|
|
|
|
|
end nat
|
|
|
|
|
|
|
|
|
|
open nat
|
|
|
|
|
check less.rec_on
|
|
|
|
|
|
|
|
|
|
namespace foo1
|
|
|
|
|
protected definition foo2.bar := 10
|
|
|
|
|
end foo1
|
|
|
|
|
|
|
|
|
|
example : foo1.foo2.bar = 10 :=
|
|
|
|
|
rfl
|
|
|
|
|
|
|
|
|
|
open foo1
|
|
|
|
|
|
|
|
|
|
example : foo2.bar = 10 :=
|
|
|
|
|
rfl
|
