lean2/tests/lean/run/tactic19.lean

9 lines
202 B
Text
Raw Normal View History

import logic
using tactic
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;
apply (subst H2);
apply refl;
assumption