Let X and Tx be given.
Assume H: compact_space X Tx.
An exact proof term for the current goal is (andEL (topology_on X Tx) (∀Fam : set, open_cover_of X Tx Famhas_finite_subcover X Tx Fam) H).