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