∀ {R : Type u_1} [inst : CommRing R] [IsNoetherianRing R] {M : Type u_2} [inst_2 : AddCommGroup M] [inst_3 : Module R M]
  [Module.Finite R M] [IsLocalRing R] (rs : List R),
  RingTheory.Sequence.IsRegular M rs →
    Module.supportDim R (M ⧸ Ideal.ofList rs • ⊤) + ↑rs.length = Module.supportDim R M