lean2/tests/lean/run/331.lean

21 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