13 lines
243 B
Text
13 lines
243 B
Text
import logic
|
|
open tactic
|
|
|
|
constant A : Type.{1}
|
|
constant f : A → A → A
|
|
|
|
theorem tst {a b c : A} (H1 : a = b) (H2 : b = c) : f a b = f b c :=
|
|
begin
|
|
apply (@congr A A _ _ (f a) (f b)),
|
|
assumption,
|
|
apply (congr_arg f),
|
|
assumption
|
|
end
|