. simp at this
  exact this.2
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
p : R
evr : ENatValRing p
r : R
ha : 0 < v evr.valtn r
hchar : evr.residue_char ≠ 0
this : 0 < v evr.valtn (pth_root evr r ^ evr.residue_char)
⊢ v evr.valtn (pth_root evr r) > 0
no goals