2014-10-20 15:31:16 +00:00
|
|
|
VISIT consume_args.lean
|
|
|
|
SYNC 7
|
|
|
|
import logic data.nat.basic
|
2015-10-14 19:27:09 +00:00
|
|
|
open nat eq.ops algebra
|
2014-10-20 15:31:16 +00:00
|
|
|
|
|
|
|
theorem tst (a b c : nat) : a + b + c = a + c + b :=
|
2016-01-01 04:20:39 +00:00
|
|
|
calc a + b + c = a + (b + c) : by rewrite add.assoc
|
|
|
|
... = a + (c + b) : by rewrite (add.comm b c)
|
|
|
|
... = a + c + b : by rewrite add.assoc
|
2014-10-20 15:31:16 +00:00
|
|
|
WAIT
|
|
|
|
INFO 7
|