Let x0 of type ι be given.
Let x1 of type ι be given.
Assume H4:
x1 ∈ omega.
Let x2 of type ο be given.
Apply H3 with
x1,
x2 leaving 2 subgoals.
The subproof is completed by applying H4.
Let x3 of type ι be given.
Apply H6 with
x2.
Apply H8 with
x2.
Apply SNoS_E2 with
omega,
x3,
x2 leaving 3 subgoals.
The subproof is completed by applying omega_ordinal.
The subproof is completed by applying H7.
Apply SNoLtLe_or with
0,
x3,
x2 leaving 4 subgoals.
The subproof is completed by applying SNo_0.
The subproof is completed by applying H13.
Apply H5 with
x3 leaving 4 subgoals.
The subproof is completed by applying H7.
The subproof is completed by applying H15.
The subproof is completed by applying H9.
The subproof is completed by applying H10.
Apply xm with
∀ x4 . x4 ∈ omega ⟶ SNoLt x0 (eps_ x4),
x2 leaving 2 subgoals.
Apply FalseE with
x2.
Apply SNoLt_irref with
x0.
Apply H2 with
0,
λ x4 x5 . SNoLt x4 x0 leaving 3 subgoals.
Apply omega_SNoS_omega with
0.
Apply nat_p_omega with
0.
The subproof is completed by applying nat_0.
Let x4 of type ι be given.
Assume H17:
x4 ∈ omega.
Apply add_SNo_0L with
minus_SNo x0,
λ x5 x6 . SNoLt (abs_SNo x6) (eps_ x4) leaving 2 subgoals.
Apply SNo_minus_SNo with
x0.
The subproof is completed by applying H0.
Apply abs_SNo_minus with
x0,
λ x5 x6 . SNoLt x6 (eps_ x4) leaving 2 subgoals.
The subproof is completed by applying H0.
Apply pos_abs_SNo with
x0,
λ x5 x6 . SNoLt x6 (eps_ x4) leaving 2 subgoals.
The subproof is completed by applying H1.
Apply H16 with
x4.
The subproof is completed by applying H17.
The subproof is completed by applying H1.
Apply dneg with
x2.
Apply H16.
Let x4 of type ι be given.
Assume H18:
x4 ∈ omega.
Apply SNoLtLe_or with
x0,
eps_ x4,
SNoLt x0 (eps_ x4) leaving 4 subgoals.
The subproof is completed by applying H0.
Apply SNo_eps_ with
x4.
The subproof is completed by applying H18.
The subproof is completed by applying H19.
Apply H17 with
SNoLt x0 (eps_ x4).
Apply H5 with
eps_ (ordsucc x4) leaving 4 subgoals.
Apply SNo_eps_SNoS_omega with
ordsucc x4.
Apply omega_ordsucc with
x4.
The subproof is completed by applying H18.
Apply SNo_eps_pos with
ordsucc x4.
Apply omega_ordsucc with
x4.
The subproof is completed by applying H18.