∀ {R : Type u_1} [inst : CommRing R] {k : ℕ} {μ : R} (motive : (n : ℕ) → k < n → IsPrimitiveRoot μ n → Prop) (n : ℕ)
  (hn : k < n) (hμ : IsPrimitiveRoot μ n),
  (∀ (n' : ℕ) (hn : k < n' + 1) (hμ : IsPrimitiveRoot μ (n' + 1)), motive n'.succ hn hμ) → motive n hn hμ