fact: Definition equiv_operation_curry `{Funext} {σ} (A : Carriers σ) {n : nat} (ss : FinSeq n (Sort σ)) (t : Sort σ) : FiniteOperation A ss t <~> CurriedOperation A ss t := Build_Equiv _ _ (operation_curry A ss t) _.
imports: HoTT.Algebra.Universal.Algebra HoTT.Types HoTT.Spaces.Finite HoTT.Spaces.Nat.Core