2015-11-14 23:58:11 +00:00
|
|
|
import data.nat
|
|
|
|
open algebra nat
|
|
|
|
|
|
|
|
definition lemma1 (a b : nat) : a + b + 0 = b + a :=
|
2015-12-07 19:59:21 +00:00
|
|
|
by simp
|
2015-11-14 23:58:11 +00:00
|
|
|
|
|
|
|
print lemma1
|
|
|
|
|
|
|
|
definition lemma2 (a b c : nat) : a + b + 0 + c + a + a + b = 0 + 0 + c + a + b + a + a + b :=
|
2015-12-07 19:59:21 +00:00
|
|
|
by simp
|
2015-11-14 23:58:11 +00:00
|
|
|
|
|
|
|
print lemma2
|