rintro ⟨⟨r, rfl⟩, hn⟩
case a.mpr
d n : ℕ
i : Fin d
hd : d ≠ 1
k : ℕ
⊢ k ∣ n ∧ ¬n = 0 → ∃ a, (∏ i : Fin d, a i = n ∧ n ≠ 0) ∧ a i = k
case a.mpr.intro.intro
d : ℕ
i : Fin d
hd : d ≠ 1
k r : ℕ
hn : ¬k * r = 0
⊢ ∃ a, (∏ i : Fin d, a i = k * r ∧ k * r ≠ 0) ∧ a i = k