2015-06-13 18:32:59 +00:00
|
|
|
|
definition test.foo.prf [irreducible] : ∀ (x : ℕ), 0 < succ (succ x) :=
|
2016-06-01 02:14:42 +00:00
|
|
|
|
λ x, lt.step (zero_lt_succ x)
|
2015-06-13 18:32:59 +00:00
|
|
|
|
definition test.bla : ℕ → ℕ :=
|
2016-06-01 02:14:42 +00:00
|
|
|
|
λ a, foo (succ (succ a)) (foo.prf a)
|
2015-06-13 18:32:59 +00:00
|
|
|
|
definition test.bla : ℕ → ℕ :=
|
2016-06-01 02:14:42 +00:00
|
|
|
|
λ a, test.foo (succ (succ a)) (test.foo.prf a)
|
2015-06-13 18:32:59 +00:00
|
|
|
|
definition test.foo.prf : ∀ (x : ℕ), 0 < succ (succ x) :=
|
2016-06-01 02:14:42 +00:00
|
|
|
|
λ x, lt.step (zero_lt_succ x)
|