Step |
Hyp |
Ref |
Expression |
1 |
|
elnns |
⊢ ( 𝑁 ∈ ℕs ↔ ( 𝑁 ∈ ℕ0s ∧ 𝑁 ≠ 0s ) ) |
2 |
|
n0s0suc |
⊢ ( 𝑁 ∈ ℕ0s → ( 𝑁 = 0s ∨ ∃ 𝑥 ∈ ℕ0s 𝑁 = ( 𝑥 +s 1s ) ) ) |
3 |
|
neneq |
⊢ ( 𝑁 ≠ 0s → ¬ 𝑁 = 0s ) |
4 |
|
pm2.53 |
⊢ ( ( 𝑁 = 0s ∨ ∃ 𝑥 ∈ ℕ0s 𝑁 = ( 𝑥 +s 1s ) ) → ( ¬ 𝑁 = 0s → ∃ 𝑥 ∈ ℕ0s 𝑁 = ( 𝑥 +s 1s ) ) ) |
5 |
4
|
imp |
⊢ ( ( ( 𝑁 = 0s ∨ ∃ 𝑥 ∈ ℕ0s 𝑁 = ( 𝑥 +s 1s ) ) ∧ ¬ 𝑁 = 0s ) → ∃ 𝑥 ∈ ℕ0s 𝑁 = ( 𝑥 +s 1s ) ) |
6 |
|
1sno |
⊢ 1s ∈ No |
7 |
|
addslid |
⊢ ( 1s ∈ No → ( 0s +s 1s ) = 1s ) |
8 |
6 7
|
ax-mp |
⊢ ( 0s +s 1s ) = 1s |
9 |
|
n0sge0 |
⊢ ( 𝑥 ∈ ℕ0s → 0s ≤s 𝑥 ) |
10 |
|
n0sno |
⊢ ( 𝑥 ∈ ℕ0s → 𝑥 ∈ No ) |
11 |
|
0sno |
⊢ 0s ∈ No |
12 |
|
sleadd1 |
⊢ ( ( 0s ∈ No ∧ 𝑥 ∈ No ∧ 1s ∈ No ) → ( 0s ≤s 𝑥 ↔ ( 0s +s 1s ) ≤s ( 𝑥 +s 1s ) ) ) |
13 |
11 6 12
|
mp3an13 |
⊢ ( 𝑥 ∈ No → ( 0s ≤s 𝑥 ↔ ( 0s +s 1s ) ≤s ( 𝑥 +s 1s ) ) ) |
14 |
10 13
|
syl |
⊢ ( 𝑥 ∈ ℕ0s → ( 0s ≤s 𝑥 ↔ ( 0s +s 1s ) ≤s ( 𝑥 +s 1s ) ) ) |
15 |
9 14
|
mpbid |
⊢ ( 𝑥 ∈ ℕ0s → ( 0s +s 1s ) ≤s ( 𝑥 +s 1s ) ) |
16 |
8 15
|
eqbrtrrid |
⊢ ( 𝑥 ∈ ℕ0s → 1s ≤s ( 𝑥 +s 1s ) ) |
17 |
|
breq2 |
⊢ ( 𝑁 = ( 𝑥 +s 1s ) → ( 1s ≤s 𝑁 ↔ 1s ≤s ( 𝑥 +s 1s ) ) ) |
18 |
16 17
|
syl5ibrcom |
⊢ ( 𝑥 ∈ ℕ0s → ( 𝑁 = ( 𝑥 +s 1s ) → 1s ≤s 𝑁 ) ) |
19 |
18
|
rexlimiv |
⊢ ( ∃ 𝑥 ∈ ℕ0s 𝑁 = ( 𝑥 +s 1s ) → 1s ≤s 𝑁 ) |
20 |
5 19
|
syl |
⊢ ( ( ( 𝑁 = 0s ∨ ∃ 𝑥 ∈ ℕ0s 𝑁 = ( 𝑥 +s 1s ) ) ∧ ¬ 𝑁 = 0s ) → 1s ≤s 𝑁 ) |
21 |
2 3 20
|
syl2an |
⊢ ( ( 𝑁 ∈ ℕ0s ∧ 𝑁 ≠ 0s ) → 1s ≤s 𝑁 ) |
22 |
1 21
|
sylbi |
⊢ ( 𝑁 ∈ ℕs → 1s ≤s 𝑁 ) |