trans a.im ^ 2 * p.norm - p.im ^ 2 * (p.norm * f)
case h.e'_4
a p : ℤ√(-3)
hpprime : Prime (Zsqrtd.norm p)
f : ℤ
hf : Zsqrtd.norm a = Zsqrtd.norm p * f
⊢ (p.re * a.im - a.re * p.im) * (p.re * a.im + a.re * p.im) = Zsqrtd.norm p * (a.im ^ 2 - p.im ^ 2 * f)
a p : ℤ√(-3)
hpprime : Prime (Zsqrtd.norm p)
f : ℤ
hf : Zsqrtd.norm a = Zsqrtd.norm p * f
⊢ (p.re * a.im - a.re * p.im) * (p.re * a.im + a.re * p.im) = a.im ^ 2 * Zsqrtd.norm p - p.im ^ 2 * (Zsqrtd.norm p * f)

a p : ℤ√(-3)
hpprime : Prime (Zsqrtd.norm p)
f : ℤ
hf : Zsqrtd.norm a = Zsqrtd.norm p * f
⊢ a.im ^ 2 * Zsqrtd.norm p - p.im ^ 2 * (Zsqrtd.norm p * f) = Zsqrtd.norm p * (a.im ^ 2 - p.im ^ 2 * f)