∀ (R : Type u) (S : Type u_1) (M : Type v) [inst : Semiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M]
  [StrongRankCondition R] [Module.Finite R M] [inst_5 : Semiring S] [inst_6 : Module S M] [inst_7 : Module R S]
  [IsScalarTower R S S] [FaithfulSMul R S] [IsScalarTower R S M], Module.finrank S M ≤ Module.finrank R M