have ⟨⟨k,hk⟩,ha⟩ := ha
m n : Nat
j : Fin n
a : Fin ((m + 1) * (n + 1))
ha : ∃ i, Fin.rlexProd (Fin.last m) { val := n - ↑i - 1, isLt := (_ : n - ↑i - 1 < n + 1) } = a
⊢ ↑a < (m + 1) * (n + 1) - 1
m n : Nat
j : Fin n
a : Fin ((m + 1) * (n + 1))
ha✝ : ∃ i, Fin.rlexProd (Fin.last m) { val := n - ↑i - 1, isLt := (_ : n - ↑i - 1 < n + 1) } = a
k : Nat
hk : k < n - ↑j
ha :
  Fin.rlexProd (Fin.last m)
      { val := n - ↑{ val := k, isLt := hk } - 1, isLt := (_ : n - ↑{ val := k, isLt := hk } - 1 < n + 1) } =
    a
⊢ ↑a < (m + 1) * (n + 1) - 1