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 HBub:
B ⊆ (A ∪ B).
We prove the intermediate
claim Hsub:
(C ∩ B) ⊆ Empty.
Let c be given.
We prove the intermediate
claim HcC:
c ∈ C.
An
exact proof term for the current goal is
(binintersectE1 C B c Hc).
We prove the intermediate
claim HcB:
c ∈ B.
An
exact proof term for the current goal is
(binintersectE2 C B c Hc).
We prove the intermediate
claim HcAB:
c ∈ (A ∪ B).
An exact proof term for the current goal is (HBub c HcB).
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 ∩ B) Hsub).
∎