∀ {R : Type u_4} [inst : CommRing R] [inst_1 : IsDomain R] {S : Type u_7} {F : Type u_8} [inst_2 : CommRing S]
  [inst_3 : IsDomain S] [inst_4 : FunLike F R S] [inst_5 : MonoidHomClass F R S] {n : ℕ} [inst_6 : NeZero n] {f : F}
  (hf : Function.Injective ⇑f) (hζ : (primitiveRoots n R).Nonempty) (a : ↥(rootsOfUnity n R)), ⋯ = ⋯