22 lines
309 B
Text
22 lines
309 B
Text
|
namespace nat
|
||
|
|
inductive less (a : nat) : nat → Prop :=
|
||
|
|
base : less a (succ a),
|
||
|
|
step : Π {b}, less a b → less a (succ b)
|
||
|
|
|
||
|
|
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
|