nth_rw 1 [← one_mul 2] at hp
d p : ℤ
hp✝ : 2 * d - 1 = p ^ 2
q : ℤ
hq : 5 * d - 1 = q ^ 2
r : ℤ
hr : d * 13 - 1 = r ^ 2
k : ℤ
hk : p = 2 * k + 1
h422 : 4 = 2 * 2
hp : 2 + k * 2 * 2 + k ^ 2 * 2 * 2 = d * 2
⊢ d = 2 * (k + k ^ 2) + 1
d p : ℤ
hp✝ : 2 * d - 1 = p ^ 2
q : ℤ
hq : 5 * d - 1 = q ^ 2
r : ℤ
hr : d * 13 - 1 = r ^ 2
k : ℤ
hk : p = 2 * k + 1
h422 : 4 = 2 * 2
hp : 1 * 2 + k * 2 * 2 + k ^ 2 * 2 * 2 = d * 2
⊢ d = 2 * (k + k ^ 2) + 1