∀ {R : Type u_1} [inst : CommRing R] (K : Type u_2) [inst_1 : Field K] [inst_2 : Algebra R K]
  [inst_3 : IsFractionRing R K] [inst_4 : IsDedekindDomain R] (v : IsDedekindDomain.HeightOneSpectrum R)
  (exps : IsDedekindDomain.HeightOneSpectrum R →₀ ℤ),
  FractionalIdeal.count K v (exps.prod fun x1 x2 => ↑x1.asIdeal ^ x2) = exps v