Proof of Theorem zs12bdaylem2
| Step | Hyp | Ref
| Expression |
| 1 | | zs12bdaylem.1 |
. . . 4
⊢ (𝜑 → 𝑁 ∈
ℕ0s) |
| 2 | 1 | n0snod 28304 |
. . 3
⊢ (𝜑 → 𝑁 ∈ No
) |
| 3 | | 2sno 28396 |
. . . . . . 7
⊢
2s ∈ No |
| 4 | 3 | a1i 11 |
. . . . . 6
⊢ (𝜑 → 2s ∈ No ) |
| 5 | | zs12bdaylem.2 |
. . . . . . 7
⊢ (𝜑 → 𝑀 ∈
ℕ0s) |
| 6 | 5 | n0snod 28304 |
. . . . . 6
⊢ (𝜑 → 𝑀 ∈ No
) |
| 7 | 4, 6 | mulscld 28115 |
. . . . 5
⊢ (𝜑 → (2s
·s 𝑀)
∈ No ) |
| 8 | | 1sno 27806 |
. . . . . 6
⊢
1s ∈ No |
| 9 | 8 | a1i 11 |
. . . . 5
⊢ (𝜑 → 1s ∈ No ) |
| 10 | 7, 9 | addscld 27960 |
. . . 4
⊢ (𝜑 → ((2s
·s 𝑀)
+s 1s ) ∈ No
) |
| 11 | | zs12bdaylem.3 |
. . . 4
⊢ (𝜑 → 𝑃 ∈
ℕ0s) |
| 12 | 10, 11 | pw2divscld 28416 |
. . 3
⊢ (𝜑 → (((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃)) ∈ No
) |
| 13 | | addsbday 27998 |
. . 3
⊢ ((𝑁 ∈
No ∧ (((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃)) ∈ No )
→ ( bday ‘(𝑁 +s (((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃)))) ⊆ (( bday
‘𝑁) +no ( bday ‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))))) |
| 14 | 2, 12, 13 | syl2anc 585 |
. 2
⊢ (𝜑 → (
bday ‘(𝑁
+s (((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃)))) ⊆ (( bday
‘𝑁) +no ( bday ‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))))) |
| 15 | | 2nns 28395 |
. . . . . . . 8
⊢
2s ∈ ℕs |
| 16 | | nnn0s 28306 |
. . . . . . . 8
⊢
(2s ∈ ℕs → 2s ∈
ℕ0s) |
| 17 | 15, 16 | ax-mp 5 |
. . . . . . 7
⊢
2s ∈ ℕ0s |
| 18 | | n0mulscl 28323 |
. . . . . . 7
⊢
((2s ∈ ℕ0s ∧ 𝑀 ∈ ℕ0s) →
(2s ·s 𝑀) ∈
ℕ0s) |
| 19 | 17, 5, 18 | sylancr 588 |
. . . . . 6
⊢ (𝜑 → (2s
·s 𝑀)
∈ ℕ0s) |
| 20 | | 1n0s 28326 |
. . . . . 6
⊢
1s ∈ ℕ0s |
| 21 | | n0addscl 28322 |
. . . . . 6
⊢
(((2s ·s 𝑀) ∈ ℕ0s ∧
1s ∈ ℕ0s) → ((2s
·s 𝑀)
+s 1s ) ∈ ℕ0s) |
| 22 | 19, 20, 21 | sylancl 587 |
. . . . 5
⊢ (𝜑 → ((2s
·s 𝑀)
+s 1s ) ∈ ℕ0s) |
| 23 | | zs12bdaylem.4 |
. . . . 5
⊢ (𝜑 → ((2s
·s 𝑀)
+s 1s ) <s (2s↑s𝑃)) |
| 24 | | bdaypw2n0sbnd 28441 |
. . . . 5
⊢
((((2s ·s 𝑀) +s 1s ) ∈
ℕ0s ∧ 𝑃 ∈ ℕ0s ∧
((2s ·s 𝑀) +s 1s ) <s
(2s↑s𝑃)) → ( bday
‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))) ⊆ suc ( bday
‘𝑃)) |
| 25 | 22, 11, 23, 24 | syl3anc 1374 |
. . . 4
⊢ (𝜑 → (
bday ‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))) ⊆ suc ( bday
‘𝑃)) |
| 26 | | bdayelon 27750 |
. . . . 5
⊢ ( bday ‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))) ∈ On |
| 27 | | bdayelon 27750 |
. . . . . 6
⊢ ( bday ‘𝑃) ∈ On |
| 28 | 27 | onsuci 7781 |
. . . . 5
⊢ suc
( bday ‘𝑃) ∈ On |
| 29 | | bdayelon 27750 |
. . . . 5
⊢ ( bday ‘𝑁) ∈ On |
| 30 | | naddss2 8618 |
. . . . 5
⊢ ((( bday ‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))) ∈ On ∧ suc ( bday ‘𝑃) ∈ On ∧ (
bday ‘𝑁)
∈ On) → (( bday ‘(((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃))) ⊆ suc ( bday
‘𝑃) ↔
(( bday ‘𝑁) +no ( bday
‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃)))) ⊆ (( bday
‘𝑁) +no suc
( bday ‘𝑃)))) |
| 31 | 26, 28, 29, 30 | mp3an 1464 |
. . . 4
⊢ (( bday ‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))) ⊆ suc ( bday
‘𝑃) ↔
(( bday ‘𝑁) +no ( bday
‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃)))) ⊆ (( bday
‘𝑁) +no suc
( bday ‘𝑃))) |
| 32 | 25, 31 | sylib 218 |
. . 3
⊢ (𝜑 → ((
bday ‘𝑁) +no
( bday ‘(((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃)))) ⊆ (( bday
‘𝑁) +no suc
( bday ‘𝑃))) |
| 33 | | n0addscl 28322 |
. . . . . 6
⊢ ((𝑁 ∈ ℕ0s
∧ 𝑃 ∈
ℕ0s) → (𝑁 +s 𝑃) ∈
ℕ0s) |
| 34 | 1, 11, 33 | syl2anc 585 |
. . . . 5
⊢ (𝜑 → (𝑁 +s 𝑃) ∈
ℕ0s) |
| 35 | | bdayn0p1 28346 |
. . . . 5
⊢ ((𝑁 +s 𝑃) ∈ ℕ0s → ( bday ‘((𝑁 +s 𝑃) +s 1s )) = suc
( bday ‘(𝑁 +s 𝑃))) |
| 36 | 34, 35 | syl 17 |
. . . 4
⊢ (𝜑 → (
bday ‘((𝑁
+s 𝑃)
+s 1s )) = suc ( bday
‘(𝑁
+s 𝑃))) |
| 37 | | n0ons 28314 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0s
→ 𝑁 ∈
Ons) |
| 38 | 1, 37 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝑁 ∈ Ons) |
| 39 | | n0ons 28314 |
. . . . . . . 8
⊢ (𝑃 ∈ ℕ0s
→ 𝑃 ∈
Ons) |
| 40 | 11, 39 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝑃 ∈ Ons) |
| 41 | | addsonbday 28258 |
. . . . . . 7
⊢ ((𝑁 ∈ Ons ∧
𝑃 ∈ Ons)
→ ( bday ‘(𝑁 +s 𝑃)) = (( bday
‘𝑁) +no ( bday ‘𝑃))) |
| 42 | 38, 40, 41 | syl2anc 585 |
. . . . . 6
⊢ (𝜑 → (
bday ‘(𝑁
+s 𝑃)) = (( bday ‘𝑁) +no ( bday
‘𝑃))) |
| 43 | 42 | suceqd 6383 |
. . . . 5
⊢ (𝜑 → suc ( bday ‘(𝑁 +s 𝑃)) = suc (( bday
‘𝑁) +no ( bday ‘𝑃))) |
| 44 | | naddsuc2 8629 |
. . . . . 6
⊢ ((( bday ‘𝑁) ∈ On ∧ (
bday ‘𝑃)
∈ On) → (( bday ‘𝑁) +no suc ( bday
‘𝑃)) = suc
(( bday ‘𝑁) +no ( bday
‘𝑃))) |
| 45 | 29, 27, 44 | mp2an 693 |
. . . . 5
⊢ (( bday ‘𝑁) +no suc ( bday
‘𝑃)) = suc
(( bday ‘𝑁) +no ( bday
‘𝑃)) |
| 46 | 43, 45 | eqtr4di 2788 |
. . . 4
⊢ (𝜑 → suc ( bday ‘(𝑁 +s 𝑃)) = (( bday
‘𝑁) +no suc
( bday ‘𝑃))) |
| 47 | 36, 46 | eqtrd 2770 |
. . 3
⊢ (𝜑 → (
bday ‘((𝑁
+s 𝑃)
+s 1s )) = (( bday
‘𝑁) +no suc
( bday ‘𝑃))) |
| 48 | 32, 47 | sseqtrrd 3970 |
. 2
⊢ (𝜑 → ((
bday ‘𝑁) +no
( bday ‘(((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃)))) ⊆ ( bday
‘((𝑁
+s 𝑃)
+s 1s ))) |
| 49 | 14, 48 | sstrd 3943 |
1
⊢ (𝜑 → (
bday ‘(𝑁
+s (((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃)))) ⊆ ( bday
‘((𝑁
+s 𝑃)
+s 1s ))) |