rw [cl_insert_cl_eq_cl_insert, insert_diff_singleton, insert_eq_of_mem heJ,
  hF₁.eq_cl_of_basis hJ]
case h.e'_4
α : Type u_1
M : Matroid α
I✝ F X Y F' F₀ F₁ F₂ P L H H₁ H₂ H' B C K : Set α
e✝ f : α
hF₀ : M.Flat F₀
hF₁ : M.Flat F₁
hss : F₀ ⊂ F₁
I J : Set α
hI : M.Basis I F₀
hJ : M.Basis J F₁
hIJ : I ⊆ J
hssu : I ⊂ J
e : α
heJ : e ∈ J
heI : e ∉ I
⊢ F₁ = M.cl (insert e (M.cl (J \ {e})))
no goals