2014-08-24 19:58:48 -07:00
|
|
|
import logic data.string
|
2014-07-03 09:20:01 -07:00
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant A : Type.{1}
|
|
|
|
|
constant f : A → A → A
|
2014-09-04 18:41:06 -07:00
|
|
|
open eq
|
2014-07-03 09:20:01 -07:00
|
|
|
theorem tst {a b c : A} (H1 : a = b) (H2 : b = c) : f a (f b b) = f b (f c c)
|
|
|
|
|
:= by discard (apply (subst H1)) 3; -- discard the first 3 solutions produced by apply
|
|
|
|
|
trace "after subst H1";
|
|
|
|
|
apply (subst H2);
|
2014-09-04 16:36:06 -07:00
|
|
|
apply eq.refl
|
