obtain ⟨j, hj, ha⟩ := h
n d : ℕ
inst✝ : NeZero d
w a : Weight n d
h : ∃ j, E w < w j ∧ 0 < a j
⊢ E w ≤ pair (trunc w) a
case intro.intro
n d : ℕ
inst✝ : NeZero d
w a : Weight n d
j : Fin (Nat.succ n)
hj : E w < w j
ha : 0 < a j
⊢ E w ≤ pair (trunc w) a