rw [hJ.er_eq_encard, ← encard_singleton e]
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 α
e : α
J : Set α
hJ : M.Basis' J {e}
⊢ M.er {e} ≤ 1
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 α
e : α
J : Set α
hJ : M.Basis' J {e}
⊢ J.encard ≤ {e}.encard