have h : (p * x) = p * decr_val evr (p * x) := by
  apply evr.pos_valtn_decr
  rw [evr.valtn.v_mul_eq_add_v, evr.valtn.v_uniformizer]
  rw [add_comm]
  simp
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
p : R
evr : ENatValRing p
x : R
⊢ decr_val evr (p * x) = x
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
p : R
evr : ENatValRing p
x : R
h : p * x = p * decr_val evr (p * x)
⊢ decr_val evr (p * x) = x