5 lines
206 B
Text
5 lines
206 B
Text
open nat
|
|
|
|
definition lt_of_succ : ∀ {a b : nat}, succ a < b → a < b
|
|
| lt_of_succ (lt.base (succ a)) := lt.trans (lt.base a) (lt.base (succ a))
|
|
| lt_of_succ (lt.step h) := lt.step (lt_of_succ h)
|