2014-09-09 21:13:35 +00:00
|
|
|
import data.int
|
2015-12-28 18:30:23 +00:00
|
|
|
open [coercion] [class] int
|
|
|
|
open [coercion] nat
|
2014-09-09 21:13:35 +00:00
|
|
|
|
2015-10-13 22:39:03 +00:00
|
|
|
definition lt1 (a b : int) := int.le (int.add a 1) b
|
|
|
|
infix `<` := lt1
|
2014-10-21 22:27:45 +00:00
|
|
|
infixl `+` := int.add
|
2014-09-09 21:13:35 +00:00
|
|
|
|
|
|
|
theorem lt_add_succ2 (a : int) (n : nat) : a < a + nat.succ n :=
|
2014-12-26 21:44:43 +00:00
|
|
|
int.le.intro (show a + 1 + n = a + nat.succ n, from sorry)
|