Let X, B and B' be given.
Assume HB HB'.
Apply iffI to the current goal.
Assume Hcond.
An exact proof term for the current goal is (finer_via_basis X B B' HB HB' Hcond).
Assume Hfiner.
Let x be given.
Assume HxX.
Let b be given.
Assume HbB Hxb.
We prove the intermediate claim HbGen: b generated_topology X B.
An exact proof term for the current goal is (generated_topology_contains_basis X B HB b HbB).
We prove the intermediate claim HbGen': b generated_topology X B'.
An exact proof term for the current goal is (Hfiner b HbGen).
We prove the intermediate claim Hbprop: ∀x0b, ∃b'B', x0 b' b' b.
An exact proof term for the current goal is (SepE2 (𝒫 X) (λU0 : set∀x0U0, ∃b0B', x0 b0 b0 U0) b HbGen').
An exact proof term for the current goal is (Hbprop x Hxb).