{I : Type u} →
  [inst : DecidableEq I] →
    (R : Type v) →
      [inst_1 : CommSemiring R] →
        (A : I → Type w) →
          [inst_2 : (i : I) → Semiring (A i)] →
            [inst_3 : (i : I) → Algebra R (A i)] →
              LinearAlgebra.FreeProduct.FreeTensorAlgebra R A →ₐ[R] LinearAlgebra.FreeProduct R A