lean2/tests/lean/hott/457.hlean

12 lines
189 B
Text
Raw Normal View History

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