12 lines
189 B
Text
12 lines
189 B
Text
|
import algebra.group
|
||
|
|
|
||
|
|
open eq path_algebra
|
||
|
|
|
||
|
|
definition foo {A : Type} (a b c : A) (H₁ : a = c) (H₂ : c = b) : a = b :=
|
||
|
|
begin
|
||
|
|
apply concat,
|
||
|
|
rotate 1,
|
||
|
|
apply H₂,
|
||
|
|
apply H₁
|
||
|
|
end
|