2014-08-24 19:58:48 -07:00
|
|
|
import logic
|
2014-09-03 16:00:38 -07:00
|
|
|
open tactic
|
2014-07-03 10:50:08 -07:00
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant A : Type.{1}
|
|
|
|
constant f : A → A → A
|
2014-07-03 10:50:08 -07:00
|
|
|
|
2014-10-14 17:12:57 -07:00
|
|
|
theorem tst {a b c : A} (H1 : a = b) (H2 : b = c) : f a b = f b c :=
|
|
|
|
begin
|
2015-05-02 13:01:37 -07:00
|
|
|
apply (@congr A A (f a) (f b)),
|
2014-10-14 17:12:57 -07:00
|
|
|
apply (congr_arg f),
|
2015-05-02 17:32:03 -07:00
|
|
|
repeat assumption
|
2014-10-14 17:12:57 -07:00
|
|
|
end
|