Let x0 of type ι be given.
Apply SNoS_E2 with
omega,
x0,
x0 ∈ real leaving 3 subgoals.
The subproof is completed by applying omega_ordinal.
The subproof is completed by applying H0.
Apply real_I with
x0 leaving 4 subgoals.
Apply SNoS_Subq with
omega,
ordsucc omega,
x0 leaving 4 subgoals.
The subproof is completed by applying omega_ordinal.
The subproof is completed by applying ordsucc_omega_ordinal.
The subproof is completed by applying ordsuccI1 with
omega.
The subproof is completed by applying H0.
Apply In_irref with
SNoLev x0.
Apply H5 with
λ x1 x2 . SNoLev x0 ∈ SNoLev x2.
Apply ordinal_SNoLev with
omega,
λ x1 x2 . SNoLev x0 ∈ x2 leaving 2 subgoals.
The subproof is completed by applying omega_ordinal.
The subproof is completed by applying H1.
Apply In_irref with
SNoLev x0.
Apply H5 with
λ x1 x2 . SNoLev x0 ∈ SNoLev x2.
Apply minus_SNo_Lev with
omega,
λ x1 x2 . SNoLev x0 ∈ x2 leaving 2 subgoals.
The subproof is completed by applying SNo_omega.
Apply ordinal_SNoLev with
omega,
λ x1 x2 . SNoLev x0 ∈ x2 leaving 2 subgoals.
The subproof is completed by applying omega_ordinal.
The subproof is completed by applying H1.
Let x1 of type ι be given.
Apply SNoS_E2 with
omega,
x1,
x1 = x0 leaving 3 subgoals.
The subproof is completed by applying omega_ordinal.
The subproof is completed by applying H5.
Apply SNoLt_trichotomy_or_impred with
x1,
x0,
x1 = x0 leaving 5 subgoals.
The subproof is completed by applying H9.
The subproof is completed by applying H3.
Apply FalseE with
x1 = x0.
Apply SNoS_E2 with
omega,
add_SNo x0 (minus_SNo x1),
False leaving 3 subgoals.
The subproof is completed by applying omega_ordinal.
Apply add_SNo_SNoS_omega with
x0,
minus_SNo x1 leaving 2 subgoals.
The subproof is completed by applying H0.
Apply minus_SNo_SNoS_omega with
x1.
The subproof is completed by applying H5.
Apply SNoLt_irref with
add_SNo x0 (minus_SNo x1).
Apply SNoLt_tra with
add_SNo x0 (minus_SNo x1),
eps_ (SNoLev (add_SNo x0 (minus_SNo x1))),
add_SNo x0 (minus_SNo x1) leaving 5 subgoals.
The subproof is completed by applying H14.
The subproof is completed by applying H14.
Apply abs_SNo_dist_swap with
x1,
x0,
λ x2 x3 . x3 = add_SNo x0 (minus_SNo x1),
λ x2 x3 . SNoLt x2 (eps_ (SNoLev (add_SNo x0 (minus_SNo x1)))) leaving 4 subgoals.
The subproof is completed by applying H9.
The subproof is completed by applying H3.
Apply pos_abs_SNo with
add_SNo x0 (minus_SNo x1).
Apply SNoLt_minus_pos with
x1,
x0 leaving 3 subgoals.
The subproof is completed by applying H9.
The subproof is completed by applying H3.
The subproof is completed by applying H11.
Apply SNo_pos_eps_Lt with
SNoLev (add_SNo x0 (minus_SNo x1)),
add_SNo x0 (minus_SNo x1) leaving 3 subgoals.
Apply SNoLt_minus_pos with
x1,
x0 leaving 3 subgoals.
The subproof is completed by applying H9.