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