simp
α : Type u_1
f : α → List α
i : ℕ
IH : ∀ (X Y : List α), X ⊆ Y → (fun X => (List.map f X).join)^[i] X ⊆ (fun X => (List.map f X).join)^[i] Y
X Y : List α
⊢ X ⊆ Y → (fun X => (List.map f X).join)^[i + 1] X ⊆ (fun X => (List.map f X).join)^[i + 1] Y
α : Type u_1
f : α → List α
i : ℕ
IH : ∀ (X Y : List α), X ⊆ Y → (fun X => (List.map f X).join)^[i] X ⊆ (fun X => (List.map f X).join)^[i] Y
X Y : List α
⊢ X ⊆ Y →
    (fun X => (List.map f X).join)^[i] (List.map f X).join ⊆ (fun X => (List.map f X).join)^[i] (List.map f Y).join