conv at ha => dsimp [Board.pathB]; rw [List.mem_ofFn]
m n : Nat
i : Fin m
a : Fin ((m + 1) * (n + 1))
ha : a ∈ Board.pathB n i
⊢ ↑a < (m + 1) * (n + 1) - 1
m n : Nat
i : Fin m
a : Fin ((m + 1) * (n + 1))
ha :
  ∃ i_1,
    Fin.rlexProd (Fin.castLT (Fin.succ (Fin.eadd i i_1)) (_ : ↑(Fin.succ (Fin.eadd i i_1)) < m + 1)) (Fin.last n) = a
⊢ ↑a < (m + 1) * (n + 1) - 1