lean2/tests/lean/acc.lean

namespace play
inductive acc (A : Type) (R : A → A → Prop) :  A → Prop :=
intro : ∀ (x : A), (∀ (y : A), R y x → acc A R y) → acc A R x

check @acc.rec
end play
fix(tests/lean): adjust tests to modifications to standard library 2014-12-01 05:16:01 +00:00			`namespace play`
feat(kernel/inductive): relax conditions for an inductive datatype in Prop to be able to eliminate into Type The new relaxed version allows us to define the "accessability" proposition and have an eliminator into Type. See justification in the new comments at inductive.cpp 2014-11-06 17:36:54 +00:00			`inductive acc (A : Type) (R : A → A → Prop) : A → Prop :=`
			`intro : ∀ (x : A), (∀ (y : A), R y x → acc A R y) → acc A R x`

			`check @acc.rec`
fix(tests/lean): adjust tests to modifications to standard library 2014-12-01 05:16:01 +00:00			`end play`