use f.prod
case intro.intro.inl
a : ℤ√(-3)
r : ℤ
hcoprime : IsCoprime a.re a.im
hcube : r ^ 3 = Zsqrtd.norm a
f : Multiset (ℤ√(-3))
hf : factorization' hcoprime = 3 • f
h1 : a = Multiset.prod (factorization' hcoprime)
⊢ ∃ p, a = p ^ 3
case intro.intro.inl
a : ℤ√(-3)
r : ℤ
hcoprime : IsCoprime a.re a.im
hcube : r ^ 3 = Zsqrtd.norm a
f : Multiset (ℤ√(-3))
hf : factorization' hcoprime = 3 • f
h1 : a = Multiset.prod (factorization' hcoprime)
⊢ a = Multiset.prod f ^ 3