refine Fin.ne_of_val_ne (Nat.ne_of_gt ?_)
m n : Nat
i : Fin m
j : Fin n
k : Fin (n - ↑j)
⊢ ¬Fin.rlexProd (Fin.last m) { val := n - ↑k - 1, isLt := (_ : n - ↑k - 1 < n + 1) } =
      Fin.rlexProd (Fin.castSucc i) (Fin.castSucc j)
m n : Nat
i : Fin m
j : Fin n
k : Fin (n - ↑j)
⊢ ↑(Fin.rlexProd (Fin.castSucc i) (Fin.castSucc j)) <
    ↑(Fin.rlexProd (Fin.last m) { val := n - ↑k - 1, isLt := (_ : n - ↑k - 1 < n + 1) })