Apply dneg to the current goal.
We prove the intermediate
claim L1:
∀beta, ordinal beta → beta ∈ alpha → beta ∈ z.
Apply ordinal_ind to the current goal.
Let beta be given.
Assume Hb: ordinal beta.
Apply dneg to the current goal.
Assume H2: beta ∉ z.
Apply H1 to the current goal.
We prove the intermediate
claim Lb1:
SNo beta.
An
exact proof term for the current goal is
ordinal_SNo beta Hb.
We prove the intermediate
claim Lb2:
SNoLev beta = beta.
Apply SNoLt_tra z beta alpha Hz Lb1 La1 to the current goal.
rewrite the current goal using Lb2 (from left to right).
rewrite the current goal using Hz3 (from left to right).
We will
prove beta ∈ alpha.
An exact proof term for the current goal is Hb2.
rewrite the current goal using Lb2 (from left to right).
Let gamma be given.
We will
prove gamma ∈ z ↔ gamma ∈ beta.
Apply iffI to the current goal.
Assume _.
An exact proof term for the current goal is Hc.
Assume _.
Apply IH gamma Hc to the current goal.
We will
prove gamma ∈ alpha.
An exact proof term for the current goal is Ha1 beta Hb2 gamma Hc.
We will
prove SNoLev beta ∉ z.
rewrite the current goal using Lb2 (from left to right).
We will prove beta ∉ z.
An exact proof term for the current goal is H2.
We will
prove beta < alpha.
We prove the intermediate
claim L2:
alpha ⊆ z.
Let beta be given.
An exact proof term for the current goal is L1 beta (ordinal_Hered alpha Ha beta Hb) Hb.
We prove the intermediate claim L3: z = alpha.
Apply SNo_eq z alpha Hz La1 to the current goal.
rewrite the current goal using La2 (from left to right).
An exact proof term for the current goal is Hz3.
rewrite the current goal using Hz3 (from left to right).
Let beta be given.
We will
prove beta ∈ z ↔ beta ∈ alpha.
Apply iffI to the current goal.
Assume _.
An exact proof term for the current goal is Hb.
Assume _.
An exact proof term for the current goal is L2 beta Hb.
Apply H1 to the current goal.
rewrite the current goal using L3 (from left to right).
We will
prove alpha ≤ alpha.
∎