rw [hI.er_eq_encard, hJ.er_eq_encard] at 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
hr : M.er Y ≤ M.er X
I : Set α
hI : M.Basis' I X
J : Set α
hJ : M.Basis' J Y
hIJ : I ⊆ J
⊢ M.cl X = M.cl Y
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