Proof of Theorem bdaypw2bnd
| Step | Hyp | Ref
| Expression |
| 1 | | bdaypw2bnd.2 |
. . . 4
⊢ (𝜑 → 𝑋 ∈
ℕ0s) |
| 2 | 1 | n0snod 28304 |
. . 3
⊢ (𝜑 → 𝑋 ∈ No
) |
| 3 | | bdaypw2bnd.3 |
. . . . 5
⊢ (𝜑 → 𝑌 ∈
ℕ0s) |
| 4 | 3 | n0snod 28304 |
. . . 4
⊢ (𝜑 → 𝑌 ∈ No
) |
| 5 | | bdaypw2bnd.4 |
. . . 4
⊢ (𝜑 → 𝑃 ∈
ℕ0s) |
| 6 | 4, 5 | pw2divscld 28416 |
. . 3
⊢ (𝜑 → (𝑌 /su
(2s↑s𝑃)) ∈ No
) |
| 7 | | addsbday 27998 |
. . 3
⊢ ((𝑋 ∈
No ∧ (𝑌
/su (2s↑s𝑃)) ∈ No )
→ ( bday ‘(𝑋 +s (𝑌 /su
(2s↑s𝑃)))) ⊆ (( bday
‘𝑋) +no ( bday ‘(𝑌 /su
(2s↑s𝑃))))) |
| 8 | 2, 6, 7 | syl2anc 585 |
. 2
⊢ (𝜑 → (
bday ‘(𝑋
+s (𝑌
/su (2s↑s𝑃)))) ⊆ (( bday
‘𝑋) +no ( bday ‘(𝑌 /su
(2s↑s𝑃))))) |
| 9 | | bdaypw2bnd.5 |
. . . . 5
⊢ (𝜑 → 𝑌 <s (2s↑s𝑃)) |
| 10 | | bdaypw2n0sbnd 28441 |
. . . . 5
⊢ ((𝑌 ∈ ℕ0s
∧ 𝑃 ∈
ℕ0s ∧ 𝑌 <s (2s↑s𝑃)) → ( bday ‘(𝑌 /su
(2s↑s𝑃))) ⊆ suc ( bday
‘𝑃)) |
| 11 | 3, 5, 9, 10 | syl3anc 1374 |
. . . 4
⊢ (𝜑 → (
bday ‘(𝑌
/su (2s↑s𝑃))) ⊆ suc ( bday
‘𝑃)) |
| 12 | | bdayelon 27750 |
. . . . 5
⊢ ( bday ‘(𝑌 /su
(2s↑s𝑃))) ∈ On |
| 13 | | bdayelon 27750 |
. . . . . 6
⊢ ( bday ‘𝑃) ∈ On |
| 14 | 13 | onsuci 7781 |
. . . . 5
⊢ suc
( bday ‘𝑃) ∈ On |
| 15 | | bdayelon 27750 |
. . . . 5
⊢ ( bday ‘𝑋) ∈ On |
| 16 | | naddss2 8618 |
. . . . 5
⊢ ((( bday ‘(𝑌 /su
(2s↑s𝑃))) ∈ On ∧ suc ( bday ‘𝑃) ∈ On ∧ (
bday ‘𝑋)
∈ On) → (( bday ‘(𝑌 /su
(2s↑s𝑃))) ⊆ suc ( bday
‘𝑃) ↔
(( bday ‘𝑋) +no ( bday
‘(𝑌
/su (2s↑s𝑃)))) ⊆ (( bday
‘𝑋) +no suc
( bday ‘𝑃)))) |
| 17 | 12, 14, 15, 16 | mp3an 1464 |
. . . 4
⊢ (( bday ‘(𝑌 /su
(2s↑s𝑃))) ⊆ suc ( bday
‘𝑃) ↔
(( bday ‘𝑋) +no ( bday
‘(𝑌
/su (2s↑s𝑃)))) ⊆ (( bday
‘𝑋) +no suc
( bday ‘𝑃))) |
| 18 | 11, 17 | sylib 218 |
. . 3
⊢ (𝜑 → ((
bday ‘𝑋) +no
( bday ‘(𝑌 /su
(2s↑s𝑃)))) ⊆ (( bday
‘𝑋) +no suc
( bday ‘𝑃))) |
| 19 | | bdayn0p1 28346 |
. . . . . 6
⊢ (𝑃 ∈ ℕ0s
→ ( bday ‘(𝑃 +s 1s )) = suc ( bday ‘𝑃)) |
| 20 | 5, 19 | syl 17 |
. . . . 5
⊢ (𝜑 → (
bday ‘(𝑃
+s 1s )) = suc ( bday
‘𝑃)) |
| 21 | 20 | oveq2d 7374 |
. . . 4
⊢ (𝜑 → ((
bday ‘𝑋) +no
( bday ‘(𝑃 +s 1s ))) = (( bday ‘𝑋) +no suc ( bday
‘𝑃))) |
| 22 | | n0ons 28314 |
. . . . . . 7
⊢ (𝑋 ∈ ℕ0s
→ 𝑋 ∈
Ons) |
| 23 | 1, 22 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝑋 ∈ Ons) |
| 24 | | peano2n0s 28309 |
. . . . . . . 8
⊢ (𝑃 ∈ ℕ0s
→ (𝑃 +s
1s ) ∈ ℕ0s) |
| 25 | 5, 24 | syl 17 |
. . . . . . 7
⊢ (𝜑 → (𝑃 +s 1s ) ∈
ℕ0s) |
| 26 | | n0ons 28314 |
. . . . . . 7
⊢ ((𝑃 +s 1s )
∈ ℕ0s → (𝑃 +s 1s ) ∈
Ons) |
| 27 | 25, 26 | syl 17 |
. . . . . 6
⊢ (𝜑 → (𝑃 +s 1s ) ∈
Ons) |
| 28 | | addsonbday 28258 |
. . . . . 6
⊢ ((𝑋 ∈ Ons ∧
(𝑃 +s
1s ) ∈ Ons) → ( bday
‘(𝑋
+s (𝑃
+s 1s ))) = (( bday
‘𝑋) +no ( bday ‘(𝑃 +s 1s
)))) |
| 29 | 23, 27, 28 | syl2anc 585 |
. . . . 5
⊢ (𝜑 → (
bday ‘(𝑋
+s (𝑃
+s 1s ))) = (( bday
‘𝑋) +no ( bday ‘(𝑃 +s 1s
)))) |
| 30 | | bdaypw2bnd.6 |
. . . . . 6
⊢ (𝜑 → (𝑋 +s 𝑃) <s 𝑁) |
| 31 | | bdaypw2bnd.1 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑁 ∈
ℕ0s) |
| 32 | | n0ons 28314 |
. . . . . . . . . 10
⊢ (𝑁 ∈ ℕ0s
→ 𝑁 ∈
Ons) |
| 33 | 31, 32 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → 𝑁 ∈ Ons) |
| 34 | | n0addscl 28322 |
. . . . . . . . . . 11
⊢ ((𝑋 ∈ ℕ0s
∧ (𝑃 +s
1s ) ∈ ℕ0s) → (𝑋 +s (𝑃 +s 1s )) ∈
ℕ0s) |
| 35 | 1, 25, 34 | syl2anc 585 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑋 +s (𝑃 +s 1s )) ∈
ℕ0s) |
| 36 | | n0ons 28314 |
. . . . . . . . . 10
⊢ ((𝑋 +s (𝑃 +s 1s ))
∈ ℕ0s → (𝑋 +s (𝑃 +s 1s )) ∈
Ons) |
| 37 | 35, 36 | syl 17 |
. . . . . . . . 9
⊢ (𝜑 → (𝑋 +s (𝑃 +s 1s )) ∈
Ons) |
| 38 | | onslt 28246 |
. . . . . . . . 9
⊢ ((𝑁 ∈ Ons ∧
(𝑋 +s (𝑃 +s 1s ))
∈ Ons) → (𝑁 <s (𝑋 +s (𝑃 +s 1s )) ↔
( bday ‘𝑁) ∈ ( bday
‘(𝑋
+s (𝑃
+s 1s ))))) |
| 39 | 33, 37, 38 | syl2anc 585 |
. . . . . . . 8
⊢ (𝜑 → (𝑁 <s (𝑋 +s (𝑃 +s 1s )) ↔
( bday ‘𝑁) ∈ ( bday
‘(𝑋
+s (𝑃
+s 1s ))))) |
| 40 | 39 | notbid 318 |
. . . . . . 7
⊢ (𝜑 → (¬ 𝑁 <s (𝑋 +s (𝑃 +s 1s )) ↔ ¬
( bday ‘𝑁) ∈ ( bday
‘(𝑋
+s (𝑃
+s 1s ))))) |
| 41 | | n0addscl 28322 |
. . . . . . . . . 10
⊢ ((𝑋 ∈ ℕ0s
∧ 𝑃 ∈
ℕ0s) → (𝑋 +s 𝑃) ∈
ℕ0s) |
| 42 | 1, 5, 41 | syl2anc 585 |
. . . . . . . . 9
⊢ (𝜑 → (𝑋 +s 𝑃) ∈
ℕ0s) |
| 43 | | n0sltp1le 28342 |
. . . . . . . . 9
⊢ (((𝑋 +s 𝑃) ∈ ℕ0s ∧ 𝑁 ∈ ℕ0s)
→ ((𝑋 +s
𝑃) <s 𝑁 ↔ ((𝑋 +s 𝑃) +s 1s ) ≤s 𝑁)) |
| 44 | 42, 31, 43 | syl2anc 585 |
. . . . . . . 8
⊢ (𝜑 → ((𝑋 +s 𝑃) <s 𝑁 ↔ ((𝑋 +s 𝑃) +s 1s ) ≤s 𝑁)) |
| 45 | 5 | n0snod 28304 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑃 ∈ No
) |
| 46 | | 1sno 27806 |
. . . . . . . . . . 11
⊢
1s ∈ No |
| 47 | 46 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → 1s ∈ No ) |
| 48 | 2, 45, 47 | addsassd 27986 |
. . . . . . . . 9
⊢ (𝜑 → ((𝑋 +s 𝑃) +s 1s ) = (𝑋 +s (𝑃 +s 1s
))) |
| 49 | 48 | breq1d 5107 |
. . . . . . . 8
⊢ (𝜑 → (((𝑋 +s 𝑃) +s 1s ) ≤s 𝑁 ↔ (𝑋 +s (𝑃 +s 1s )) ≤s 𝑁)) |
| 50 | 35 | n0snod 28304 |
. . . . . . . . 9
⊢ (𝜑 → (𝑋 +s (𝑃 +s 1s )) ∈ No ) |
| 51 | 31 | n0snod 28304 |
. . . . . . . . 9
⊢ (𝜑 → 𝑁 ∈ No
) |
| 52 | | slenlt 27722 |
. . . . . . . . 9
⊢ (((𝑋 +s (𝑃 +s 1s ))
∈ No ∧ 𝑁 ∈ No )
→ ((𝑋 +s
(𝑃 +s
1s )) ≤s 𝑁
↔ ¬ 𝑁 <s (𝑋 +s (𝑃 +s 1s
)))) |
| 53 | 50, 51, 52 | syl2anc 585 |
. . . . . . . 8
⊢ (𝜑 → ((𝑋 +s (𝑃 +s 1s )) ≤s 𝑁 ↔ ¬ 𝑁 <s (𝑋 +s (𝑃 +s 1s
)))) |
| 54 | 44, 49, 53 | 3bitrd 305 |
. . . . . . 7
⊢ (𝜑 → ((𝑋 +s 𝑃) <s 𝑁 ↔ ¬ 𝑁 <s (𝑋 +s (𝑃 +s 1s
)))) |
| 55 | | bdayelon 27750 |
. . . . . . . . 9
⊢ ( bday ‘(𝑋 +s (𝑃 +s 1s ))) ∈
On |
| 56 | | bdayelon 27750 |
. . . . . . . . 9
⊢ ( bday ‘𝑁) ∈ On |
| 57 | | ontri1 6350 |
. . . . . . . . 9
⊢ ((( bday ‘(𝑋 +s (𝑃 +s 1s ))) ∈ On
∧ ( bday ‘𝑁) ∈ On) → ((
bday ‘(𝑋
+s (𝑃
+s 1s ))) ⊆ ( bday
‘𝑁) ↔
¬ ( bday ‘𝑁) ∈ ( bday
‘(𝑋
+s (𝑃
+s 1s ))))) |
| 58 | 55, 56, 57 | mp2an 693 |
. . . . . . . 8
⊢ (( bday ‘(𝑋 +s (𝑃 +s 1s ))) ⊆
( bday ‘𝑁) ↔ ¬ ( bday
‘𝑁) ∈
( bday ‘(𝑋 +s (𝑃 +s 1s
)))) |
| 59 | 58 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → ((
bday ‘(𝑋
+s (𝑃
+s 1s ))) ⊆ ( bday
‘𝑁) ↔
¬ ( bday ‘𝑁) ∈ ( bday
‘(𝑋
+s (𝑃
+s 1s ))))) |
| 60 | 40, 54, 59 | 3bitr4d 311 |
. . . . . 6
⊢ (𝜑 → ((𝑋 +s 𝑃) <s 𝑁 ↔ ( bday
‘(𝑋
+s (𝑃
+s 1s ))) ⊆ ( bday
‘𝑁))) |
| 61 | 30, 60 | mpbid 232 |
. . . . 5
⊢ (𝜑 → (
bday ‘(𝑋
+s (𝑃
+s 1s ))) ⊆ ( bday
‘𝑁)) |
| 62 | 29, 61 | eqsstrrd 3968 |
. . . 4
⊢ (𝜑 → ((
bday ‘𝑋) +no
( bday ‘(𝑃 +s 1s ))) ⊆
( bday ‘𝑁)) |
| 63 | 21, 62 | eqsstrrd 3968 |
. . 3
⊢ (𝜑 → ((
bday ‘𝑋) +no
suc ( bday ‘𝑃)) ⊆ ( bday
‘𝑁)) |
| 64 | 18, 63 | sstrd 3943 |
. 2
⊢ (𝜑 → ((
bday ‘𝑋) +no
( bday ‘(𝑌 /su
(2s↑s𝑃)))) ⊆ ( bday
‘𝑁)) |
| 65 | 8, 64 | sstrd 3943 |
1
⊢ (𝜑 → (
bday ‘(𝑋
+s (𝑌
/su (2s↑s𝑃)))) ⊆ ( bday
‘𝑁)) |