lean2/tests/lean/hott/457.hlean
2015-05-07 16:39:04 -07:00

11 lines
184 B
Text

import algebra.group
open eq 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