conv at ha => dsimp [Board.pathR]; rw [List.mem_ofFn]
m n : Nat
j : Fin n
a : Fin ((m + 1) * (n + 1))
ha : a ∈ Board.pathR m j
⊢ ↑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
⊢ ↑a < (m + 1) * (n + 1) - 1