rw [equiv_apply, zeta]
p : ℕ
hpri : Fact p.Prime
p' : ℕ+ := ⟨p, ⋯⟩
this : Fact (↑p').Prime := hpri
⊢ (equiv p) (zeta p) = ⋯.toInteger
p : ℕ
hpri : Fact p.Prime
p' : ℕ+ := ⟨p, ⋯⟩
this : Fact (↑p').Prime := hpri
⊢ (AdjoinRoot.liftHom (cyclotomic p ℤ) ⋯.toInteger ⋯) (AdjoinRoot.root (cyclotomic p ℤ)) = ⋯.toInteger