{R : Type u} →
  [inst : Semiring R] →
    {A : Type v} →
      [inst_1 : Semiring A] →
        [inst_2 : Module R A] →
          {M : Type u_1} →
            [inst_3 : AddCommMonoid M] →
              [inst_4 : Module R M] →
                [inst_5 : Module A M] → [IsScalarTower R A M] → SMul (Submodule R A) (Submodule R M)