Let X, A, B, S, Ts, WF, C and pick be given.
We prove the intermediate
claim HCAUB:
C ∩ (A ∪ B) = Empty.
We prove the intermediate
claim HAub:
A ⊆ (A ∪ B).
We prove the intermediate
claim Hsub:
(C ∩ A) ⊆ Empty.
Let c be given.
We prove the intermediate
claim HcC:
c ∈ C.
An
exact proof term for the current goal is
(binintersectE1 C A c Hc).
We prove the intermediate
claim HcA:
c ∈ A.
An
exact proof term for the current goal is
(binintersectE2 C A c Hc).
We prove the intermediate
claim HcAB:
c ∈ (A ∪ B).
An exact proof term for the current goal is (HAub c HcA).
We prove the intermediate
claim HcCAUB:
c ∈ (C ∩ (A ∪ B)).
An
exact proof term for the current goal is
(binintersectI C (A ∪ B) c HcC HcAB).
We prove the intermediate
claim HcE:
c ∈ Empty.
rewrite the current goal using HCAUB (from right to left).
An exact proof term for the current goal is HcCAUB.
An exact proof term for the current goal is HcE.
An
exact proof term for the current goal is
(Empty_Subq_eq (C ∩ A) Hsub).
∎