∀ {R : Type u_1} {M : Type u_2} [inst : Ring R] [inst_1 : AddCommGroup M] [inst_2 : Module R M] [IsDomain R]
  [Module.IsTorsionFree R M] [StrongRankCondition R] {S : Submodule R M} [Module.Finite R ↥S],
  Module.finrank R ↥S = 0 ↔ S = ⊥