convert (one_mul (M := (𝓞 K)ˣ) _).symm
case h
p : ℕ+
K : Type u_1
inst✝ : Field K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
n : ℕ
h✝ : n ≠ 0
r : ℕ
hr : ↑p = 2 * r + 1
he : 2 * (r + 1) * n = ↑p * n + n
⊢ hζ.unit' ^ n = hζ.unit' ^ (↑p * n) * hζ.unit' ^ n
case h.e'_3.h.e'_5
p : ℕ+
K : Type u_1
inst✝ : Field K
ζ : K
hζ : IsPrimitiveRoot ζ ↑p
n : ℕ
h✝ : n ≠ 0
r : ℕ
hr : ↑p = 2 * r + 1
he : 2 * (r + 1) * n = ↑p * n + n
⊢ hζ.unit' ^ (↑p * n) = 1