∀ {R : Type u} [inst : Semiring R] {A : Type v} [inst_1 : Semiring A] [inst_2 : Module R A]
  [inst_3 : IsScalarTower R A A] (M N : Submodule R A), (M * N).toAddSubmonoid = M.toAddSubmonoid * N.toAddSubmonoid