Let x0 of type ι be given.
Apply and3I with
x0 ∈ int,
x0 ∈ int,
∃ x1 . and (x1 ∈ int) (mul_SNo x0 x1 = x0) leaving 3 subgoals.
The subproof is completed by applying H0.
The subproof is completed by applying H0.
Let x1 of type ο be given.
Assume H1:
∀ x2 . and (x2 ∈ int) (mul_SNo x0 x2 = x0) ⟶ x1.
Apply H1 with
1.
Apply andI with
1 ∈ int,
mul_SNo x0 1 = x0 leaving 2 subgoals.
Apply nat_p_int with
1.
The subproof is completed by applying nat_1.
Apply mul_SNo_oneR with
x0.
Apply int_SNo with
x0.
The subproof is completed by applying H0.