refine Fin.rlexProd_lt_iff.mpr (Or.inr ?_)
m n : Nat
i : Fin m
j : Fin n
k : Fin (m - ↑i - 1)
⊢ ↑(Fin.rlexProd (Fin.castSucc i) (Fin.castSucc j)) <
    ↑(Fin.rlexProd { val := m - ↑k - 1, isLt := (_ : m - ↑k - 1 < m + 1) } (Fin.castSucc j))
m n : Nat
i : Fin m
j : Fin n
k : Fin (m - ↑i - 1)
⊢ Fin.castSucc j = Fin.castSucc j ∧ Fin.castSucc i < { val := m - ↑k - 1, isLt := (_ : m - ↑k - 1 < m + 1) }