Let x0 of type ι be given.
Assume H0:
x0 ∈ omega.
Let x1 of type ι be given.
Assume H1:
x1 ∈ omega.
Apply H2 with
divides_nat x0 x1.
Apply and3I with
x0 ∈ omega,
x1 ∈ omega,
∃ x2 . and (x2 ∈ omega) (mul_nat x0 x2 = x1) leaving 3 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H1.
Apply H4 with
∃ x2 . and (x2 ∈ omega) (mul_nat x0 x2 = x1).
Let x2 of type ι be given.
Apply H5 with
∃ x3 . and (x3 ∈ omega) (mul_nat x0 x3 = x1).
Apply binunionE with
omega,
{minus_CSNo x3|x3 ∈ omega},
x2,
∃ x3 . and (x3 ∈ omega) (mul_nat x0 x3 = x1) leaving 3 subgoals.
The subproof is completed by applying H6.
Assume H8:
x2 ∈ omega.
Let x3 of type ο be given.
Apply H9 with
x2.
Apply andI with
x2 ∈ omega,
mul_nat x0 x2 = x1 leaving 2 subgoals.
The subproof is completed by applying H8.
Apply mul_nat_mul_SNo with
x0,
x2,
λ x4 x5 . x5 = x1 leaving 3 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H8.
The subproof is completed by applying H7.
Apply xm with
x1 = 0,
∃ x3 . and (x3 ∈ omega) (mul_nat x0 x3 = x1) leaving 2 subgoals.
Assume H9: x1 = 0.
Apply nat_p_omega with
0.
The subproof is completed by applying nat_0.
Let x3 of type ο be given.
Apply H11 with
0.
Apply andI with
0 ∈ omega,
mul_nat x0 0 = x1 leaving 2 subgoals.
The subproof is completed by applying L10.
Apply mul_nat_mul_SNo with
x0,
0,
λ x4 x5 . x5 = x1 leaving 3 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying L10.
Apply H9 with
λ x4 x5 . mul_SNo x0 0 = x5.
Apply mul_nat_mul_SNo with
x0,
0,
λ x4 x5 . x4 = 0 leaving 3 subgoals.
The subproof is completed by applying H0.
Apply nat_p_omega with
0.
The subproof is completed by applying nat_0.
The subproof is completed by applying mul_nat_0R with x0.
Assume H9: x1 = 0 ⟶ ∀ x3 : ο . x3.
Apply FalseE with
∃ x3 . and (x3 ∈ omega) (mul_nat x0 x3 = x1).
Apply ReplE_impred with
omega,
minus_CSNo,
x2,
False leaving 2 subgoals.
The subproof is completed by applying H8.
Let x3 of type ι be given.
Assume H10:
x3 ∈ omega.
Apply minus_SNo_minus_CSNo with
x3,
λ x4 x5 . x2 = x4 ⟶ ∀ x6 : ο . x6 leaving 2 subgoals.
Apply omega_SNo with
x3.
The subproof is completed by applying H10.
Apply H9.
Apply mul_SNo_In_omega with
x0,
x3 leaving 2 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H10.
Apply nonpos_nonneg_0 with
x1,
mul_SNo x0 x3,
x1 = 0 leaving 4 subgoals.
The subproof is completed by applying H1.
The subproof is completed by applying L14.
The subproof is completed by applying L13.
Assume H15: x1 = 0.
The subproof is completed by applying H15.