∀ {A : Type u} {B : Type v} [inst : CommRing A] [inst_1 : CommRing B] [inst_2 : Algebra A B] {n : ℕ} [NeZero n]
  [IsDomain B] [h : IsCyclotomicExtension {n} A B] {ζ : B}, IsPrimitiveRoot ζ n → Algebra.adjoin A {ζ} = ⊤