conv at ha => dsimp [Board.pathL]; rw [List.mem_ofFn]
m n : Nat
i : Fin m
j : Fin n
a : Fin ((m + 1) * (n + 1))
ha : a ∈ Board.pathL 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 (Fin.castSucc i) (Fin.castLE (_ : Nat.succ (↑j + (n - ↑j)) ≤ n + 1) (Fin.succ (Fin.natAdd (↑j) i_1))) =
      a
⊢ ↑a < (m + 1) * (n + 1) - 1