2013-10-30 17:45:34 +00:00
|
|
|
|
Set: pp::colors
|
|
|
|
|
|
Set: pp::unicode
|
2014-01-01 21:52:25 +00:00
|
|
|
|
Imported 'Int'
|
2013-10-30 17:45:34 +00:00
|
|
|
|
Assumed: a
|
|
|
|
|
|
Assumed: n
|
|
|
|
|
|
Assumed: H1
|
|
|
|
|
|
Assumed: H2
|
|
|
|
|
|
Proved: T
|
|
|
|
|
|
Set: lean::pp::coercion
|
|
|
|
|
|
Set: lean::pp::notation
|
|
|
|
|
|
Set: lean::pp::implicit
|
2014-01-05 20:05:08 +00:00
|
|
|
|
theorem T : @eq ℤ (Int::add (Int::add a (nat_to_int n)) a) (nat_to_int 10) :=
|
2014-01-01 22:46:19 +00:00
|
|
|
|
@Subst ℤ a (nat_to_int n) (λ x : ℤ, @eq ℤ (Int::add (Int::add a x) a) (nat_to_int 10)) H1 H2
|
