induction m with
| zero => exact sub_val_x_zero evr x
| succ m ih => simpa [sub_val_eq, zero_valtn_decr _ h] using ih
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
p : R
evr : ENatValRing p
x : R
m : ℕ
h : v evr.valtn x = 0
⊢ sub_val evr m x = x
no goals