Proof of Theorem z12bdaylem2
| Step | Hyp | Ref
| Expression |
| 1 | | z12bdaylem.1 |
. . . 4
⊢ (𝜑 → 𝑁 ∈
ℕ0s) |
| 2 | 1 | n0nod 28716 |
. . 3
⊢ (𝜑 → 𝑁 ∈ No) |
| 3 | | 2no 28810 |
. . . . . . 7
⊢
2s ∈ No |
| 4 | 3 | a1i 11 |
. . . . . 6
⊢ (𝜑 → 2s ∈ No) |
| 5 | | z12bdaylem.2 |
. . . . . . 7
⊢ (𝜑 → 𝑀 ∈
ℕ0s) |
| 6 | 5 | n0nod 28716 |
. . . . . 6
⊢ (𝜑 → 𝑀 ∈ No) |
| 7 | 4, 6 | mulscld 28526 |
. . . . 5
⊢ (𝜑 → (2s
·s 𝑀)
∈ No) |
| 8 | | 1no 28201 |
. . . . . 6
⊢
1s ∈ No |
| 9 | 8 | a1i 11 |
. . . . 5
⊢ (𝜑 → 1s ∈ No) |
| 10 | 7, 9 | addscld 28371 |
. . . 4
⊢ (𝜑 → ((2s
·s 𝑀)
+s 1s ) ∈ No) |
| 11 | | z12bdaylem.3 |
. . . 4
⊢ (𝜑 → 𝑃 ∈
ℕ0s) |
| 12 | 10, 11 | pw2divscld 28830 |
. . 3
⊢ (𝜑 → (((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃)) ∈ No) |
| 13 | | addbday 28409 |
. . 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 596 |
. 2
⊢ (𝜑 → (bday‘(𝑁 +s (((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃)))) ⊆ ((bday‘𝑁) +no (bday‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))))) |
| 15 | | 2nns 28809 |
. . . . . . . 8
⊢
2s ∈ ℕs |
| 16 | | nnn0s 28718 |
. . . . . . . 8
⊢
(2s ∈ ℕs → 2s ∈
ℕ0s) |
| 17 | 15, 16 | ax-mp 5 |
. . . . . . 7
⊢
2s ∈ ℕ0s |
| 18 | | n0mulscl 28736 |
. . . . . . 7
⊢
((2s ∈ ℕ0s ∧ 𝑀 ∈ ℕ0s) →
(2s ·s 𝑀) ∈
ℕ0s) |
| 19 | 17, 5, 18 | sylancr 599 |
. . . . . 6
⊢ (𝜑 → (2s
·s 𝑀)
∈ ℕ0s) |
| 20 | | 1n0s 28739 |
. . . . . 6
⊢
1s ∈ ℕ0s |
| 21 | | n0addscl 28735 |
. . . . . 6
⊢
(((2s ·s 𝑀) ∈ ℕ0s ∧
1s ∈ ℕ0s) → ((2s
·s 𝑀)
+s 1s ) ∈ ℕ0s) |
| 22 | 19, 20, 21 | sylancl 598 |
. . . . 5
⊢ (𝜑 → ((2s
·s 𝑀)
+s 1s ) ∈ ℕ0s) |
| 23 | | z12bdaylem.4 |
. . . . 5
⊢ (𝜑 → ((2s
·s 𝑀)
+s 1s ) <s (2s↑s𝑃)) |
| 24 | | bdaypw2n0bnd 28855 |
. . . . 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 1398 |
. . . 4
⊢ (𝜑 → (bday‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))) ⊆ suc (bday‘𝑃)) |
| 26 | | bdayon 28143 |
. . . . 5
⊢ (bday‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃))) ∈ On |
| 27 | | bdayon 28143 |
. . . . . 6
⊢ (bday‘𝑃) ∈ On |
| 28 | 27 | onsuci 7850 |
. . . . 5
⊢ suc
(bday‘𝑃) ∈ On |
| 29 | | bdayon 28143 |
. . . . 5
⊢ (bday‘𝑁) ∈ On |
| 30 | | naddss2 8703 |
. . . . 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 1490 |
. . . 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 221 |
. . 3
⊢ (𝜑 → ((bday‘𝑁) +no (bday‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃)))) ⊆ ((bday‘𝑁) +no suc (bday‘𝑃))) |
| 33 | | n0addscl 28735 |
. . . . . 6
⊢ ((𝑁 ∈ ℕ0s
∧ 𝑃 ∈
ℕ0s) → (𝑁 +s 𝑃) ∈
ℕ0s) |
| 34 | 1, 11, 33 | syl2anc 596 |
. . . . 5
⊢ (𝜑 → (𝑁 +s 𝑃) ∈
ℕ0s) |
| 35 | | bdayn0p1 28760 |
. . . . 5
⊢ ((𝑁 +s 𝑃) ∈ ℕ0s → (bday‘((𝑁 +s 𝑃) +s 1s )) = suc
(bday‘(𝑁 +s 𝑃))) |
| 36 | 34, 35 | syl 18 |
. . . 4
⊢ (𝜑 → (bday‘((𝑁 +s 𝑃) +s 1s )) = suc
(bday‘(𝑁 +s 𝑃))) |
| 37 | | n0on 28727 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0s
→ 𝑁 ∈
Ons) |
| 38 | 1, 37 | syl 18 |
. . . . . . 7
⊢ (𝜑 → 𝑁 ∈ Ons) |
| 39 | | n0on 28727 |
. . . . . . . 8
⊢ (𝑃 ∈ ℕ0s
→ 𝑃 ∈
Ons) |
| 40 | 11, 39 | syl 18 |
. . . . . . 7
⊢ (𝜑 → 𝑃 ∈ Ons) |
| 41 | | addonbday 28670 |
. . . . . . 7
⊢ ((𝑁 ∈ Ons ∧
𝑃 ∈ Ons)
→ (bday‘(𝑁 +s 𝑃)) = ((bday‘𝑁) +no (bday‘𝑃))) |
| 42 | 38, 40, 41 | syl2anc 596 |
. . . . . 6
⊢ (𝜑 → (bday‘(𝑁 +s 𝑃)) = ((bday‘𝑁) +no (bday‘𝑃))) |
| 43 | 42 | suceqd 6430 |
. . . . 5
⊢ (𝜑 → suc (bday‘(𝑁 +s 𝑃)) = suc ((bday‘𝑁) +no (bday‘𝑃))) |
| 44 | | naddsuc2 8714 |
. . . . . 6
⊢ (((bday‘𝑁) ∈ On ∧ (bday‘𝑃) ∈ On) → ((bday‘𝑁) +no suc (bday‘𝑃)) = suc ((bday‘𝑁) +no (bday‘𝑃))) |
| 45 | 29, 27, 44 | mp2an 705 |
. . . . 5
⊢ ((bday‘𝑁) +no suc (bday‘𝑃)) = suc ((bday‘𝑁) +no (bday‘𝑃)) |
| 46 | 43, 45 | eqtr4di 2813 |
. . . 4
⊢ (𝜑 → suc (bday‘(𝑁 +s 𝑃)) = ((bday‘𝑁) +no suc (bday‘𝑃))) |
| 47 | 36, 46 | eqtrd 2795 |
. . 3
⊢ (𝜑 → (bday‘((𝑁 +s 𝑃) +s 1s )) = ((bday‘𝑁) +no suc (bday‘𝑃))) |
| 48 | 32, 47 | sseqtrrd 3945 |
. 2
⊢ (𝜑 → ((bday‘𝑁) +no (bday‘(((2s ·s 𝑀) +s 1s )
/su (2s↑s𝑃)))) ⊆ (bday‘((𝑁 +s 𝑃) +s 1s
))) |
| 49 | 14, 48 | sstrd 3918 |
1
⊢ (𝜑 → (bday‘(𝑁 +s (((2s
·s 𝑀)
+s 1s ) /su
(2s↑s𝑃)))) ⊆ (bday‘((𝑁 +s 𝑃) +s 1s
))) |