We prove the intermediate
claim HWopen:
∀w : set, w ∈ W → w ∈ Tx.
An
exact proof term for the current goal is
(andEL (∀w : set, w ∈ W → w ∈ Tx) (covers X W) HWcov).
We prove the intermediate
claim HWcovers:
covers X W.
An
exact proof term for the current goal is
(andER (∀w : set, w ∈ W → w ∈ Tx) (covers X W) HWcov).
We prove the intermediate
claim HWsubPow:
W ⊆ 𝒫 X.
∎