have := this.trans_le (evr.valtn.v_add_ge_min_v (evr.pth_root r ^ evr.residue_char - r) r)
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 : min (v evr.valtn (pth_root evr r ^ evr.residue_char - r)) (v evr.valtn r) > 0
⊢ 0 < v evr.valtn (pth_root evr r ^ evr.residue_char)
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✝ : min (v evr.valtn (pth_root evr r ^ evr.residue_char - r)) (v evr.valtn r) > 0
this : 0 < v evr.valtn (pth_root evr r ^ evr.residue_char - r + r)
⊢ 0 < v evr.valtn (pth_root evr r ^ evr.residue_char)