We prove the intermediate
claim L1:
∃β, ¬ (β ∈ α → (p β ↔ q β)).
Apply L1 to the current goal.
Let β be given.
We prove the intermediate
claim L2:
β ∈ α ∧ ¬ (p β ↔ q β).
Apply xm (β ∈ α) to the current goal.
Apply xm (p β ↔ q β) to the current goal.
Apply H2 to the current goal.
Assume _.
An exact proof term for the current goal is H4.
Apply andI to the current goal.
An exact proof term for the current goal is H3.
An exact proof term for the current goal is H4.
Apply H2 to the current goal.
Assume H4.
An exact proof term for the current goal is H3 H4.
Apply L2 to the current goal.
Apply IH β H3 to the current goal.
Assume H5.
Apply H5 to the current goal.
Apply orIL to the current goal.
Apply orIL to the current goal.
An
exact proof term for the current goal is
PNoLt_mon_ p q α Ha β H3 H5.
Apply xm (p β) to the current goal.
Assume H6: p β.
Apply xm (q β) to the current goal.
Assume H7: q β.
Apply H4 to the current goal.
Apply iffI to the current goal.
Assume _.
An exact proof term for the current goal is H7.
Assume _.
An exact proof term for the current goal is H6.
Apply orIR to the current goal.
We use β to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is H3.
Apply and3I to the current goal.
An exact proof term for the current goal is H5.
An exact proof term for the current goal is H7.
An exact proof term for the current goal is H6.
Apply xm (q β) to the current goal.
Assume H7: q β.
Apply orIL to the current goal.
Apply orIL to the current goal.
We use β to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is H3.
Apply and3I to the current goal.
An exact proof term for the current goal is H5.
An exact proof term for the current goal is H6.
An exact proof term for the current goal is H7.
Apply H4 to the current goal.
Apply iffI to the current goal.
Assume H8.
An exact proof term for the current goal is H6 H8.
Assume H8.
An exact proof term for the current goal is H7 H8.
Apply orIR to the current goal.
An
exact proof term for the current goal is
PNoLt_mon_ q p α Ha β H3 H5.
∎