(R : Type u_2) →
  (A : Type u_3) →
    [inst : CommSemiring R] →
      [inst_1 : NonUnitalSemiring A] →
        [inst_2 : Module R A] →
          [inst_3 : IsScalarTower R A A] → [inst_4 : SMulCommClass R A A] → Unitization R A →ₐ[R] R