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
|
|
|
|
|
|
|
|
theorem tst {A : Type} {f : A → A → A} {a b c : A} (H1 : a = b) (H2 : b = c) : f a b = f b c
|
|
|
|
|
:= by apply congr;
|
2014-09-04 18:41:06 -07:00
|
|
|
apply (eq.subst H2);
|
2014-09-04 16:36:06 -07:00
|
|
|
apply eq.refl;
|
2014-07-03 10:50:08 -07:00
|
|
|
assumption
|
