Apply Hpq1 to the current goal.
Let δ be given.
Assume Hpq2.
Apply Hpq2 to the current goal.
Assume Hd1 Hd2.
Assume Hpq3.
Apply Hpq3 to the current goal.
Assume Hpq3.
Apply Hpq3 to the current goal.
Assume Hpq5: q δ.
We prove the intermediate
claim Ld:
ordinal δ.
An
exact proof term for the current goal is
ordinal_Hered β Hb δ Hd2.
Apply PNoLtE β γ q r Hqr to the current goal.
Apply Hqr1 to the current goal.
Let eps be given.
Assume Hqr2.
Apply Hqr2 to the current goal.
Assume He1 He2.
Assume Hqr3.
Apply Hqr3 to the current goal.
Assume Hqr3.
Apply Hqr3 to the current goal.
Assume Hqr5: r eps.
We prove the intermediate
claim Le:
ordinal eps.
An
exact proof term for the current goal is
ordinal_Hered β Hb eps He1.
We will
prove PNoLt α p γ r.
Assume H1.
Apply H1 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 Hd1.
An exact proof term for the current goal is Hc1 eps He2 δ H1.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq3.
An exact proof term for the current goal is Hqr3.
An exact proof term for the current goal is Hpq4.
We will prove r δ.
An
exact proof term for the current goal is
iffEL (q δ) (r δ) (Hqr3 δ H1) Hpq5.
We use δ to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is Hd1.
rewrite the current goal using H1 (from left to right).
An exact proof term for the current goal is He2.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq3.
rewrite the current goal using H1 (from left to right).
An exact proof term for the current goal is Hqr3.
An exact proof term for the current goal is Hpq4.
We will prove r δ.
rewrite the current goal using H1 (from left to right).
An exact proof term for the current goal is Hqr5.
We use eps to witness the existential quantifier.
Apply andI to the current goal.
We will
prove eps ∈ α ∩ γ.
An exact proof term for the current goal is Ha1 δ Hd1 eps H1.
An exact proof term for the current goal is He2.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq3.
An exact proof term for the current goal is Hqr3.
Assume H2: p eps.
Apply Hqr4 to the current goal.
An
exact proof term for the current goal is
iffEL (p eps) (q eps) (Hpq3 eps H1) H2.
We will prove r eps.
An exact proof term for the current goal is Hqr5.
Assume Hqr3: r β.
We use δ to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is Hd1.
An exact proof term for the current goal is Hc1 β Hqr1 δ Hd2.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq3.
An exact proof term for the current goal is Hqr2.
An exact proof term for the current goal is Hpq4.
We will prove r δ.
An
exact proof term for the current goal is
iffEL (q δ) (r δ) (Hqr2 δ Hd2) Hpq5.
Assume H1.
Apply H1 to the current goal.
We will
prove PNoLt α p γ r.
We use δ to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is Hd1.
An exact proof term for the current goal is H1.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq3.
An exact proof term for the current goal is Hqr2.
An exact proof term for the current goal is Hpq4.
We will prove r δ.
An
exact proof term for the current goal is
iffEL (q δ) (r δ) (Hqr2 δ H1) Hpq5.
rewrite the current goal using H1 (from right to left).
An exact proof term for the current goal is Hd1.
rewrite the current goal using H1 (from right to left).
An exact proof term for the current goal is Hpq3.
An exact proof term for the current goal is Hqr2.
rewrite the current goal using H1 (from right to left).
An exact proof term for the current goal is Hpq4.
An exact proof term for the current goal is Ha1 δ Hd1 γ H1.
An exact proof term for the current goal is Hpq3.
An exact proof term for the current goal is Hqr2.
Assume H2: p γ.
Apply Hqr3 to the current goal.
We will prove q γ.
An
exact proof term for the current goal is
iffEL (p γ) (q γ) (Hpq3 γ H1) H2.
Assume Hpq3: q α.
Apply PNoLtE β γ q r Hqr to the current goal.
Apply Hqr1 to the current goal.
Let eps be given.
Assume Hqr2.
Apply Hqr2 to the current goal.
Assume He1 He2.
Assume Hqr3.
Apply Hqr3 to the current goal.
Assume Hqr3.
Apply Hqr3 to the current goal.
Assume Hqr5: r eps.
We prove the intermediate
claim Le:
ordinal eps.
An
exact proof term for the current goal is
ordinal_Hered β Hb eps He1.
Assume H1.
Apply H1 to the current goal.
We will
prove PNoLt α p γ r.
An exact proof term for the current goal is Hc1 eps He2 α H1.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr3.
We will prove r α.
An
exact proof term for the current goal is
iffEL (q α) (r α) (Hqr3 α H1) Hpq3.
We will
prove PNoLt α p γ r.
rewrite the current goal using H1 (from left to right).
An exact proof term for the current goal is He2.
An exact proof term for the current goal is Hpq2.
rewrite the current goal using H1 (from left to right).
An exact proof term for the current goal is Hqr3.
We will prove r α.
rewrite the current goal using H1 (from left to right).
An exact proof term for the current goal is Hqr5.
We will
prove PNoLt α p γ r.
We use eps to witness the existential quantifier.
Apply andI to the current goal.
We will
prove eps ∈ α ∩ γ.
An exact proof term for the current goal is H1.
An exact proof term for the current goal is He2.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr3.
Assume H2: p eps.
Apply Hqr4 to the current goal.
We will prove q eps.
An
exact proof term for the current goal is
iffEL (p eps) (q eps) (Hpq2 eps H1) H2.
We will prove r eps.
An exact proof term for the current goal is Hqr5.
Assume Hqr3: r β.
An exact proof term for the current goal is Hc1 β Hqr1 α Hpq1.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr2.
We will prove r α.
An
exact proof term for the current goal is
iffEL (q α) (r α) (Hqr2 α Hpq1) Hpq3.
We will
prove PNoLt α p γ r.
Assume H1.
Apply H1 to the current goal.
An exact proof term for the current goal is H1.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr2.
We will prove r α.
An
exact proof term for the current goal is
iffEL (q α) (r α) (Hqr2 α H1) Hpq3.
Apply Hqr3 to the current goal.
rewrite the current goal using H1 (from right to left).
An exact proof term for the current goal is Hpq3.
An exact proof term for the current goal is H1.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr2.
Assume H2: p γ.
Apply Hqr3 to the current goal.
We will prove q γ.
An
exact proof term for the current goal is
iffEL (p γ) (q γ) (Hpq2 γ H1) H2.
Apply PNoLtE β γ q r Hqr to the current goal.
Apply Hqr1 to the current goal.
Let eps be given.
Assume Hqr2.
Apply Hqr2 to the current goal.
Assume He1 He2.
Assume Hqr3.
Apply Hqr3 to the current goal.
Assume Hqr3.
Apply Hqr3 to the current goal.
Assume Hqr5: r eps.
We will
prove PNoLt α p γ r.
We use eps to witness the existential quantifier.
Apply andI to the current goal.
We will
prove eps ∈ α ∩ γ.
An exact proof term for the current goal is Ha1 β Hpq1 eps He1.
An exact proof term for the current goal is He2.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr3.
Assume H1: p eps.
Apply Hqr4 to the current goal.
We will prove q eps.
An
exact proof term for the current goal is
iffEL (p eps) (q eps) (Hpq2 eps He1) H1.
We will prove r eps.
An exact proof term for the current goal is Hqr5.
Assume Hqr3: r β.
We use β to witness the existential quantifier.
Apply andI to the current goal.
An exact proof term for the current goal is Hpq1.
An exact proof term for the current goal is Hqr1.
Apply and3I to the current goal.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr2.
An exact proof term for the current goal is Hpq3.
We will prove r β.
An exact proof term for the current goal is Hqr3.
An exact proof term for the current goal is Ha1 β Hpq1 γ Hqr1.
An exact proof term for the current goal is Hpq2.
An exact proof term for the current goal is Hqr2.
Assume H1: p γ.
Apply Hqr3 to the current goal.
We will prove q γ.
An
exact proof term for the current goal is
iffEL (p γ) (q γ) (Hpq2 γ Hqr1) H1.
∎