∀ (R : Type u) (R' : Type u') (M : Type v) [inst : Semiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M]
  [inst_3 : Semiring R'] [inst_4 : Module R' M] [inst_5 : SMulWithZero R R'] [IsScalarTower R R' M] [FaithfulSMul R R']
  [IsScalarTower R R' R'], Module.rank R' M ≤ Module.rank R M