∀ {R' : Type u'} {R : Type u} {A : Type v} [inst : CommSemiring R] [inst_1 : NonUnitalNonAssocSemiring A]
  [inst_2 : Module R A] {S : NonUnitalSubalgebra R A} [inst_3 : Semiring R'] [inst_4 : SMul R' R] [inst_5 : Module R' A]
  [inst_6 : IsScalarTower R' R A] [SMulCommClass R' R A], SMulCommClass R' R ↥S