∀ {α : Type u_1} {l l' : List α} (f : Fin l.length ↪o Fin l'.length) (ix : ℕ),
  ix + 1 ≤ l.length →
    (OrderEmbedding.ofStrictMono (fun i => if h : i + 1 ≤ l.length then ↑(f ⟨i, ⋯⟩) else i + l'.length) ⋯) ix <
      l'.length