rw [ha2] at h2
case intro.intro
p : ℕ+
L : Type u
inst✝³ : Field L
inst✝² : CharZero L
inst✝¹ : IsCyclotomicExtension {p} ℚ L
inst✝ : Fact (↑p).Prime
η : 𝓞 (CyclotomicField p ℚ)
hne1 : η ≠ 1
hζ' : IsPrimitiveRoot ↑⋯.unit' ↑p
a : ℕ
ha : a ∈ (↑p).divisors
h2 : η ∈ primitiveRoots a (𝓞 (CyclotomicField p ℚ))
ha2 : a = ↑p
⊢ IsPrimitiveRoot η ↑p
case intro.intro
p : ℕ+
L : Type u
inst✝³ : Field L
inst✝² : CharZero L
inst✝¹ : IsCyclotomicExtension {p} ℚ L
inst✝ : Fact (↑p).Prime
η : 𝓞 (CyclotomicField p ℚ)
hne1 : η ≠ 1
hζ' : IsPrimitiveRoot ↑⋯.unit' ↑p
a : ℕ
ha : a ∈ (↑p).divisors
h2 : η ∈ primitiveRoots (↑p) (𝓞 (CyclotomicField p ℚ))
ha2 : a = ↑p
⊢ IsPrimitiveRoot η ↑p