rw [basis'_iff_basis_inter_ground, basis_restrict_iff', restrict_ground_eq] at hI
case intro
α : Type u_1
ι : Type u_2
M✝ N : Matroid α
I✝ B X✝ X' Y Y' Z R✝ : Set α
n : ℕ∞
e f : α
M : Matroid α
R X I : Set α
hI : (M ↾ R).Basis' I X
⊢ I.encard = M.er (X ∩ R)
case intro
α : Type u_1
ι : Type u_2
M✝ N : Matroid α
I✝ B X✝ X' Y Y' Z R✝ : Set α
n : ℕ∞
e f : α
M : Matroid α
R X I : Set α
hI : M.Basis I (X ∩ R ∩ M.E) ∧ X ∩ R ⊆ R
⊢ I.encard = M.er (X ∩ R)