∀ {R : Type u_1} [inst : CommRing R] (K : Type u_2) [inst_1 : Field K] [inst_2 : Algebra R K] {V : Type u_3}
  [inst_3 : AddCommGroup V] [inst_4 : Module K V] [inst_5 : Module R V] [inst_6 : IsScalarTower R K V] [IsDomain R]
  [Module.Finite K V] [IsFractionRing R K] {M : Submodule R V},
  M.FG → Module.rank K V ≤ Module.rank R ↥M → Submodule.IsLattice K M