intro n hn
a : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
⊢ ∀ (n : ℕ),
    Int.natAbs (Zsqrtd.norm a) = n →
      ∃ f,
        (a = Multiset.prod f ∨ a = -Multiset.prod f) ∧
          ∀ (pq : ℤ√(-3)), pq ∈ f → 0 ≤ pq.re ∧ pq.im ≠ 0 ∧ OddPrimeOrFour (Zsqrtd.norm pq)
a : ℤ√(-3)
hcoprime : IsCoprime a.re a.im
n : ℕ
hn : Int.natAbs (Zsqrtd.norm a) = n
⊢ ∃ f,
    (a = Multiset.prod f ∨ a = -Multiset.prod f) ∧
      ∀ (pq : ℤ√(-3)), pq ∈ f → 0 ≤ pq.re ∧ pq.im ≠ 0 ∧ OddPrimeOrFour (Zsqrtd.norm pq)