apply Nat.le_trans l
R : Type u_2
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type u_1
inst✝ : DecidableEq X
norm : X → ℕ
crds : X → R
x : X
h₂ : crds x ≠ 0
a : X
as : List X
th : List.Mem x as
l : norm x + 1 ≤ maxNormSuccOnSupp norm crds as := supp_below_max norm crds as x th h₂
c : crds a ≠ 0
⊢ norm x + 1 ≤ max (norm a + 1) (maxNormSuccOnSupp norm crds as)
R : Type u_2
inst✝² : Ring R
inst✝¹ : DecidableEq R
X : Type u_1
inst✝ : DecidableEq X
norm : X → ℕ
crds : X → R
x : X
h₂ : crds x ≠ 0
a : X
as : List X
th : List.Mem x as
l : norm x + 1 ≤ maxNormSuccOnSupp norm crds as := supp_below_max norm crds as x th h₂
c : crds a ≠ 0
⊢ maxNormSuccOnSupp norm crds as ≤ max (norm a + 1) (maxNormSuccOnSupp norm crds as)