{R : Type u_2} →
  [inst : CommRing R] →
    (r : R) →
      {M : Type u_1} →
        {M' : Type u_3} →
          [inst_1 : AddCommGroup M] →
            [inst_2 : Module R M] →
              [inst_3 : AddCommGroup M'] →
                [inst_4 : Module R M'] → (M →ₗ[R] M') →ₗ[R] QuotSMulTop r M →ₗ[R] QuotSMulTop r M'