2014-08-25 02:58:48 +00:00
|
|
|
import logic
|
2014-09-03 23:00:38 +00:00
|
|
|
open tactic
|
2014-07-03 16:07:56 +00:00
|
|
|
|
|
|
|
|
variable A : Type.{1}
|
|
|
|
|
variable f : A → A → A
|
2014-09-05 01:41:06 +00:00
|
|
|
open eq
|
2014-07-03 16:07:56 +00:00
|
|
|
theorem tst {a b c : A} (H1 : a = b) (H2 : b = c) : f a (f b b) = f b (f c c)
|
|
|
|
|
:= by apply (subst H1);
|
|
|
|
|
trace "trying again... ";
|
|
|
|
|
state;
|
|
|
|
|
apply (subst H2);
|
2014-09-04 23:36:06 +00:00
|
|
|
apply eq.refl
|
