apply ModularFamily.modularFamily_of_forall_subset_cl h
ι : Type u_1
α : Type u_2
M : Matroid α
B I J X X' Y Y' F : Set α
Xs Ys Js Is : ι → Set α
i j : ι
e f : α
h : M.ModularPair X Y
hXX' : X ⊆ X'
hX' : X' ⊆ M.cl X
hYY' : Y ⊆ Y'
hY' : Y' ⊆ M.cl Y
⊢ M.ModularPair X' Y'
case hXY
ι : Type u_1
α : Type u_2
M : Matroid α
B I J X X' Y Y' F : Set α
Xs Ys Js Is : ι → Set α
i j : ι
e f : α
h : M.ModularPair X Y
hXX' : X ⊆ X'
hX' : X' ⊆ M.cl X
hYY' : Y ⊆ Y'
hY' : Y' ⊆ M.cl Y
⊢ ∀ (i : Bool), (bif i then X else Y) ⊆ bif i then X' else Y'

case hYX
ι : Type u_1
α : Type u_2
M : Matroid α
B I J X X' Y Y' F : Set α
Xs Ys Js Is : ι → Set α
i j : ι
e f : α
h : M.ModularPair X Y
hXX' : X ⊆ X'
hX' : X' ⊆ M.cl X
hYY' : Y ⊆ Y'
hY' : Y' ⊆ M.cl Y
⊢ ∀ (i : Bool), (bif i then X' else Y') ⊆ M.cl (bif i then X else Y)