2013-12-07 13:09:39 -08:00
|
|
|
|
Set: pp::colors
|
|
|
|
|
Set: pp::unicode
|
2014-01-01 13:52:25 -08:00
|
|
|
|
Imported 'Int'
|
2013-12-07 13:09:39 -08:00
|
|
|
|
Assumed: f
|
|
|
|
|
Proved: T1
|
|
|
|
|
Proved: T2
|
2014-01-05 12:05:08 -08:00
|
|
|
|
theorem T1 (a b c : ℤ) (H1 : a = b) (H2 : a = c) : f (f a a) b = f (f b c) a :=
|
2014-01-05 19:10:21 -08:00
|
|
|
|
congr (congr (refl f) (congr (congr (refl f) H1) H2)) (symm H1)
|
2014-01-05 12:05:08 -08:00
|
|
|
|
theorem T2 (a b c : ℤ) (H1 : a = b) (H2 : a = c) : f (f a c) = f (f b a) :=
|
2014-01-05 19:10:21 -08:00
|
|
|
|
congr (refl f) (congr (congr (refl f) H1) (symm H2))
|