Let X, Tx and C be given.
We prove the intermediate
claim HexV:
∃V ∈ Tx, C = V ∩ C.
Apply HexV to the current goal.
Let V be given.
Assume HVpair.
We prove the intermediate
claim HVTx:
V ∈ Tx.
An
exact proof term for the current goal is
(andEL (V ∈ Tx) (C = V ∩ C) HVpair).
We prove the intermediate
claim HCeq:
C = V ∩ C.
An
exact proof term for the current goal is
(andER (V ∈ Tx) (C = V ∩ C) HVpair).
We prove the intermediate
claim HCsubV:
C ⊆ V.
rewrite the current goal using HCeq (from left to right).
We prove the intermediate
claim HVsubX:
V ⊆ X.
An
exact proof term for the current goal is
(Subq_tra C V X HCsubV HVsubX).
∎