fact: Definition make_algebra' {σ: signature} (A : sUU (sorts σ)) (ops: ∏ nm: names σ, iterfun (vec_map A (arity nm)) (A (sort nm))) : algebra σ := A ,, λ nm, uncurrify (ops nm).
imports: UniMath.Foundations.All UniMath.Algebra.Universal.SortedTypes UniMath.Algebra.Universal.Signatures