∀ {R : Type u_1} {M : Type u_2} [inst : CommRing R] [inst_1 : AddCommGroup M] [inst_2 : Module R M] [Module.Finite R M]
  (x : R), Module.support R (QuotSMulTop x M) = Module.support R M ∩ PrimeSpectrum.zeroLocus {x}