conv at ha => dsimp [Board.pathT]; rw [List.mem_ofFn]
m n : Nat
i : Fin m
j : Fin n
a : Fin ((m + 1) * (n + 1))
ha : a ∈ Board.pathT i j
⊢ ↑a < (m + 1) * (n + 1) - 1
m n : Nat
i : Fin m
j : Fin n
a : Fin ((m + 1) * (n + 1))
ha : ∃ i_1, Fin.rlexProd { val := m - ↑i_1 - 1, isLt := (_ : m - ↑i_1 - 1 < m + 1) } (Fin.castSucc j) = a
⊢ ↑a < (m + 1) * (n + 1) - 1