2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
open tactic
|
2014-07-03 17:50:08 +00:00
|
|
|
|
2014-10-02 23:20:52 +00:00
|
|
|
constant A : Type.{1}
|
|
|
|
|
constant f : A → A → A
|
2014-07-03 17:50:08 +00:00
|
|
|
|
|
|
|
|
theorem tst {a b c : A} (H1 : a = b) (H2 : b = c) : f a b = f b c
|
2014-10-05 17:50:13 +00:00
|
|
|
:= by apply (@congr A A _ _ (f a) (f b));
|
2014-08-20 22:49:44 +00:00
|
|
|
apply (congr_arg f);
|
2014-07-03 17:50:08 +00:00
|
|
|
!assumption
|
