Step |
Hyp |
Ref |
Expression |
1 |
|
oveq1 |
⊢ ( 𝑥 = 0s → ( 𝑥 +s 1s ) = ( 0s +s 1s ) ) |
2 |
1
|
eleq1d |
⊢ ( 𝑥 = 0s → ( ( 𝑥 +s 1s ) ∈ ℕs ↔ ( 0s +s 1s ) ∈ ℕs ) ) |
3 |
|
oveq1 |
⊢ ( 𝑥 = 𝑦 → ( 𝑥 +s 1s ) = ( 𝑦 +s 1s ) ) |
4 |
3
|
eleq1d |
⊢ ( 𝑥 = 𝑦 → ( ( 𝑥 +s 1s ) ∈ ℕs ↔ ( 𝑦 +s 1s ) ∈ ℕs ) ) |
5 |
|
oveq1 |
⊢ ( 𝑥 = ( 𝑦 +s 1s ) → ( 𝑥 +s 1s ) = ( ( 𝑦 +s 1s ) +s 1s ) ) |
6 |
5
|
eleq1d |
⊢ ( 𝑥 = ( 𝑦 +s 1s ) → ( ( 𝑥 +s 1s ) ∈ ℕs ↔ ( ( 𝑦 +s 1s ) +s 1s ) ∈ ℕs ) ) |
7 |
|
oveq1 |
⊢ ( 𝑥 = 𝐴 → ( 𝑥 +s 1s ) = ( 𝐴 +s 1s ) ) |
8 |
7
|
eleq1d |
⊢ ( 𝑥 = 𝐴 → ( ( 𝑥 +s 1s ) ∈ ℕs ↔ ( 𝐴 +s 1s ) ∈ ℕs ) ) |
9 |
|
1sno |
⊢ 1s ∈ No |
10 |
|
addslid |
⊢ ( 1s ∈ No → ( 0s +s 1s ) = 1s ) |
11 |
9 10
|
ax-mp |
⊢ ( 0s +s 1s ) = 1s |
12 |
|
1nns |
⊢ 1s ∈ ℕs |
13 |
11 12
|
eqeltri |
⊢ ( 0s +s 1s ) ∈ ℕs |
14 |
|
peano2nns |
⊢ ( ( 𝑦 +s 1s ) ∈ ℕs → ( ( 𝑦 +s 1s ) +s 1s ) ∈ ℕs ) |
15 |
14
|
a1i |
⊢ ( 𝑦 ∈ ℕ0s → ( ( 𝑦 +s 1s ) ∈ ℕs → ( ( 𝑦 +s 1s ) +s 1s ) ∈ ℕs ) ) |
16 |
2 4 6 8 13 15
|
n0sind |
⊢ ( 𝐴 ∈ ℕ0s → ( 𝐴 +s 1s ) ∈ ℕs ) |