(R : Type u_1) →
  {A : Type u_4} →
    (M : Type u_7) →
      [inst : CommSemiring R] →
        [inst_1 : Semiring A] →
          [inst_2 : Algebra R A] → [inst_3 : AddMonoid M] → [Unique M] → AddMonoidAlgebra A M ≃ₐ[R] A