12 lines
228 B
Text
12 lines
228 B
Text
import standard
|
|
using tactic
|
|
|
|
variable A : Type.{1}
|
|
variable f : A → A → A
|
|
|
|
theorem tst {a b c : A} (H1 : a = b) (H2 : b = c) : f a b = f b c
|
|
:= by apply (@congr A A (f a) (f b));
|
|
apply (congr2 f);
|
|
!assumption
|
|
|
|
|