2015-08-07 18:25:54 +01:00
|
|
|
import data.nat
|
2015-10-14 12:27:09 -07:00
|
|
|
open nat algebra
|
2015-08-07 18:25:54 +01:00
|
|
|
|
2015-10-13 15:39:03 -07:00
|
|
|
example : ∀ a b : nat, a + b = b + a :=
|
2015-08-07 18:25:54 +01:00
|
|
|
show ∀ a b : nat, a + b = b + a
|
|
|
|
| 0 0 := rfl
|
|
|
|
| 0 (succ b) := by rewrite zero_add
|
|
|
|
| (succ a) 0 := by rewrite zero_add
|
|
|
|
| (succ a) (succ b) := by rewrite [succ_add, this]
|