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