∀ {R : Type u_1} {M : Type u_2} [inst : CommRing R] [inst_1 : AddCommGroup M] [inst_2 : Module R M] [Module.Finite R M]
  {M' : Type u_5} [inst_4 : AddCommMonoid M'] [inst_5 : Module R M'] (l : M →ₗ[R] M') (p : Ideal R) [inst_6 : p.IsPrime]
  [IsLocalizedModule p.primeCompl l] [Subsingleton M'], ∃ f ∉ p, Subsingleton (LocalizedModule (Submonoid.powers f) M)