rw [basis'_iff_indep_encard_eq_of_finite (hI₁.finite.subset inter_subset_left),
  and_iff_right inter_subset_right, and_iff_right (hI₁.inter_right A),
  basis'_iff_indep_encard_eq_of_finite (hI₁.finite.diff _), and_iff_right (hI₂.diff A),
  and_iff_right (diff_subset_diff_left hI₂.subset_ground), ← (hI₂.diff A).er,
  er_eq_er_iff, ← (hI₁.inter_right A).er, er_eq_er_iff]
α : Type u_1
M M₁ M₂ : Matroid α
A I X E : Set α
inst✝¹ : M₁.FiniteRk
inst✝ : M₂.FiniteRk
hI₁ : M₁.Indep I
hI₂ : M₂.Indep I
h : M₁.r A + M₂.r (M₂.E \ A) ≤ I.ncard
⊢ M₁.Basis' (I ∩ A) A ∧ M₂.Basis' (I \ A) (M₂.E \ A)
α : Type u_1
M M₁ M₂ : Matroid α
A I X E : Set α
inst✝¹ : M₁.FiniteRk
inst✝ : M₂.FiniteRk
hI₁ : M₁.Indep I
hI₂ : M₂.Indep I
h : M₁.r A + M₂.r (M₂.E \ A) ≤ I.ncard
⊢ M₁.r (I ∩ A) = M₁.r A ∧ M₂.r (I \ A) = M₂.r (M₂.E \ A)