intro ha
case mpr
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
p : ℕ
gt1 : 1 < p
a : ℤ
⊢ a = 0 → int_val p a = ⊤
case mpr
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
p : ℕ
gt1 : 1 < p
a : ℤ
ha : a = 0
⊢ int_val p a = ⊤