cases @eq_zero_or_pos _ _ (evr.valtn y) with
| inl h' => simp [sub_val_val_zero evr y _ h']
| inr h' =>
  rw [sub_val_val_pos_succ evr y m, Nat.succ_add, sub_val_val_pos_succ evr y _]
  exact ih (evr.decr_val y)
case succ
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
p : R
evr : ENatValRing p
x : R
n m : ℕ
ih : ∀ (y : R), sub_val evr n (sub_val evr m y) = sub_val evr (m + n) y
y : R
⊢ sub_val evr n (sub_val evr (Nat.succ m) y) = sub_val evr (Nat.succ m + n) y
no goals