∀ {M : Type u_2} [inst : CommMonoidWithZero M] [inst_1 : IsCancelMulZero M] {N : Type u_1}
  [inst_2 : CommMonoidWithZero N] [inst_3 : Subsingleton Mˣ] {m : M} {n : N} {d : { l // l ∣ m } ≃ { l // l ∣ n }}
  (l : ↑(Set.Iic (Associates.mk m))), Associates.mk ↑(d ⟨associatesEquivOfUniqueUnits ↑l, ⋯⟩) ≤ Associates.mk n