Apply Hpq1 to the current goal.
Let delta be given.
Assume Hpq2.
Apply Hpq2 to the current goal.
Apply binintersectE alpha beta delta Hd to the current goal.
Assume Hd1 Hd2.
Assume Hpq3.
Apply Hpq3 to the current goal.
Assume Hpq3.
Apply Hpq3 to the current goal.
Assume Hpq4: ¬ p delta.
Assume Hpq5: q delta.
We will
prove PNoLt alpha p beta r.
We will
prove ∃delta ∈ alpha ∩ beta, PNoEq_ delta p r ∧ ¬ p delta ∧ r delta.
We use delta to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is Hd.
Apply and3I to the current goal.
We will
prove PNoEq_ delta p r.
We will
prove PNoEq_ delta p q.
An exact proof term for the current goal is Hpq3.
We will
prove PNoEq_ delta q r.
We will
prove PNoEq_ beta q r.
An exact proof term for the current goal is Hqr.
We will prove ¬ p delta.
An exact proof term for the current goal is Hpq4.
We will prove r delta.
An exact proof term for the current goal is iffEL (q delta) (r delta) (Hqr delta Hd2) Hpq5.