lean2/tests/lean/hott/457.hlean

10 lines
173 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,
apply H₁,
apply H₂,
end