refine hIB.eq_or_ssubset.elim (fun h ↦ Or.inr (by rwa [h])) (fun hss ↦ Or.inl ?_)
α : Type u_1
M : Matroid α
E I H B✝ X : Set α
e f : α
Hs : Set (Set α)
h : ∀ H ∈ Hs, M.Circuit H ∧ M.Hyperplane H
x✝ : ∃ B, (M.Base B ∨ B ∈ Hs) ∧ I ⊆ B
B : Set α
hB : M.Base B ∨ B ∈ Hs
hIB : I ⊆ B
hB' : B ∈ Hs
⊢ (∃ B, M.Base B ∧ I ⊆ B) ∨ I ∈ Hs
α : Type u_1
M : Matroid α
E I H B✝ X : Set α
e f : α
Hs : Set (Set α)
h : ∀ H ∈ Hs, M.Circuit H ∧ M.Hyperplane H
x✝ : ∃ B, (M.Base B ∨ B ∈ Hs) ∧ I ⊆ B
B : Set α
hB : M.Base B ∨ B ∈ Hs
hIB : I ⊆ B
hB' : B ∈ Hs
hss : I ⊂ B
⊢ ∃ B, M.Base B ∧ I ⊆ B