rw [← cl_inter_ground, ← M.cl_inter_ground Y, ← hI.basis_inter_ground.cl_eq_cl,
  ← hJ.basis_inter_ground.cl_eq_cl, Finite.eq_of_subset_of_encard_le'
    (hI.indep.finite_of_subset_rFin hI.subset hX) hIJ hr]
case intro.intro.intro
α : Type u_1
ι : Type u_2
M N : Matroid α
I✝ B X X' Y Y' Z R : Set α
n : ℕ∞
e f : α
hX : M.rFin X
hXY : X ⊆ Y
I : Set α
hI : M.Basis' I X
J : Set α
hr : J.encard ≤ I.encard
hJ : M.Basis' J Y
hIJ : I ⊆ J
⊢ M.cl X = M.cl Y
no goals