Proof of Theorem bdayfinbndcbv
| Step | Hyp | Ref
| Expression |
| 1 | | bdayfinbndlem.2 |
. 2
⊢ (𝜑 → ∀𝑧 ∈ No
((( bday ‘𝑧) ⊆ ( bday
‘𝑁) ∧
0s ≤s 𝑧)
→ (𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s
∃𝑝 ∈
ℕ0s (𝑧 =
(𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁)))) |
| 2 | | fveq2 6833 |
. . . . . 6
⊢ (𝑧 = 𝑤 → ( bday
‘𝑧) = ( bday ‘𝑤)) |
| 3 | 2 | sseq1d 3964 |
. . . . 5
⊢ (𝑧 = 𝑤 → (( bday
‘𝑧) ⊆
( bday ‘𝑁) ↔ ( bday
‘𝑤) ⊆
( bday ‘𝑁))) |
| 4 | | breq2 5101 |
. . . . 5
⊢ (𝑧 = 𝑤 → ( 0s ≤s 𝑧 ↔ 0s ≤s
𝑤)) |
| 5 | 3, 4 | anbi12d 633 |
. . . 4
⊢ (𝑧 = 𝑤 → ((( bday
‘𝑧) ⊆
( bday ‘𝑁) ∧ 0s ≤s 𝑧) ↔ (( bday ‘𝑤) ⊆ ( bday
‘𝑁) ∧
0s ≤s 𝑤))) |
| 6 | | eqeq1 2739 |
. . . . 5
⊢ (𝑧 = 𝑤 → (𝑧 = 𝑁 ↔ 𝑤 = 𝑁)) |
| 7 | | eqeq1 2739 |
. . . . . . . . 9
⊢ (𝑧 = 𝑤 → (𝑧 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ↔ 𝑤 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))))) |
| 8 | 7 | 3anbi1d 1443 |
. . . . . . . 8
⊢ (𝑧 = 𝑤 → ((𝑧 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))) |
| 9 | 8 | rexbidv 3159 |
. . . . . . 7
⊢ (𝑧 = 𝑤 → (∃𝑝 ∈ ℕ0s (𝑧 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑝 ∈ ℕ0s (𝑤 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))) |
| 10 | 9 | 2rexbidv 3200 |
. . . . . 6
⊢ (𝑧 = 𝑤 → (∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s
∃𝑝 ∈
ℕ0s (𝑧 =
(𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s
∃𝑝 ∈
ℕ0s (𝑤 =
(𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))) |
| 11 | | oveq1 7365 |
. . . . . . . . . 10
⊢ (𝑥 = 𝑎 → (𝑥 +s (𝑦 /su
(2s↑s𝑝))) = (𝑎 +s (𝑦 /su
(2s↑s𝑝)))) |
| 12 | 11 | eqeq2d 2746 |
. . . . . . . . 9
⊢ (𝑥 = 𝑎 → (𝑤 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ↔ 𝑤 = (𝑎 +s (𝑦 /su
(2s↑s𝑝))))) |
| 13 | | oveq1 7365 |
. . . . . . . . . 10
⊢ (𝑥 = 𝑎 → (𝑥 +s 𝑝) = (𝑎 +s 𝑝)) |
| 14 | 13 | breq1d 5107 |
. . . . . . . . 9
⊢ (𝑥 = 𝑎 → ((𝑥 +s 𝑝) <s 𝑁 ↔ (𝑎 +s 𝑝) <s 𝑁)) |
| 15 | 12, 14 | 3anbi13d 1441 |
. . . . . . . 8
⊢ (𝑥 = 𝑎 → ((𝑤 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑎 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁))) |
| 16 | 15 | rexbidv 3159 |
. . . . . . 7
⊢ (𝑥 = 𝑎 → (∃𝑝 ∈ ℕ0s (𝑤 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁))) |
| 17 | | oveq1 7365 |
. . . . . . . . . . . 12
⊢ (𝑦 = 𝑏 → (𝑦 /su
(2s↑s𝑝)) = (𝑏 /su
(2s↑s𝑝))) |
| 18 | 17 | oveq2d 7374 |
. . . . . . . . . . 11
⊢ (𝑦 = 𝑏 → (𝑎 +s (𝑦 /su
(2s↑s𝑝))) = (𝑎 +s (𝑏 /su
(2s↑s𝑝)))) |
| 19 | 18 | eqeq2d 2746 |
. . . . . . . . . 10
⊢ (𝑦 = 𝑏 → (𝑤 = (𝑎 +s (𝑦 /su
(2s↑s𝑝))) ↔ 𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑝))))) |
| 20 | | breq1 5100 |
. . . . . . . . . 10
⊢ (𝑦 = 𝑏 → (𝑦 <s (2s↑s𝑝) ↔ 𝑏 <s (2s↑s𝑝))) |
| 21 | 19, 20 | 3anbi12d 1440 |
. . . . . . . . 9
⊢ (𝑦 = 𝑏 → ((𝑤 = (𝑎 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁))) |
| 22 | 21 | rexbidv 3159 |
. . . . . . . 8
⊢ (𝑦 = 𝑏 → (∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ ∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁))) |
| 23 | | oveq2 7366 |
. . . . . . . . . . . . 13
⊢ (𝑝 = 𝑞 → (2s↑s𝑝) =
(2s↑s𝑞)) |
| 24 | | oveq2 7366 |
. . . . . . . . . . . . 13
⊢
((2s↑s𝑝) = (2s↑s𝑞) → (𝑏 /su
(2s↑s𝑝)) = (𝑏 /su
(2s↑s𝑞))) |
| 25 | 23, 24 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝑝 = 𝑞 → (𝑏 /su
(2s↑s𝑝)) = (𝑏 /su
(2s↑s𝑞))) |
| 26 | 25 | oveq2d 7374 |
. . . . . . . . . . 11
⊢ (𝑝 = 𝑞 → (𝑎 +s (𝑏 /su
(2s↑s𝑝))) = (𝑎 +s (𝑏 /su
(2s↑s𝑞)))) |
| 27 | 26 | eqeq2d 2746 |
. . . . . . . . . 10
⊢ (𝑝 = 𝑞 → (𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑝))) ↔ 𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑞))))) |
| 28 | 23 | breq2d 5109 |
. . . . . . . . . 10
⊢ (𝑝 = 𝑞 → (𝑏 <s (2s↑s𝑝) ↔ 𝑏 <s (2s↑s𝑞))) |
| 29 | | oveq2 7366 |
. . . . . . . . . . 11
⊢ (𝑝 = 𝑞 → (𝑎 +s 𝑝) = (𝑎 +s 𝑞)) |
| 30 | 29 | breq1d 5107 |
. . . . . . . . . 10
⊢ (𝑝 = 𝑞 → ((𝑎 +s 𝑝) <s 𝑁 ↔ (𝑎 +s 𝑞) <s 𝑁)) |
| 31 | 27, 28, 30 | 3anbi123d 1439 |
. . . . . . . . 9
⊢ (𝑝 = 𝑞 → ((𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ (𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))) |
| 32 | 31 | cbvrexvw 3214 |
. . . . . . . 8
⊢
(∃𝑝 ∈
ℕ0s (𝑤 =
(𝑎 +s (𝑏 /su
(2s↑s𝑝))) ∧ 𝑏 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)) |
| 33 | 22, 32 | bitrdi 287 |
. . . . . . 7
⊢ (𝑦 = 𝑏 → (∃𝑝 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑎 +s 𝑝) <s 𝑁) ↔ ∃𝑞 ∈ ℕ0s (𝑤 = (𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))) |
| 34 | 16, 33 | cbvrex2vw 3218 |
. . . . . 6
⊢
(∃𝑥 ∈
ℕ0s ∃𝑦 ∈ ℕ0s ∃𝑝 ∈ ℕ0s
(𝑤 = (𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s
∃𝑞 ∈
ℕ0s (𝑤 =
(𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)) |
| 35 | 10, 34 | bitrdi 287 |
. . . . 5
⊢ (𝑧 = 𝑤 → (∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s
∃𝑝 ∈
ℕ0s (𝑧 =
(𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁) ↔ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s
∃𝑞 ∈
ℕ0s (𝑤 =
(𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))) |
| 36 | 6, 35 | orbi12d 919 |
. . . 4
⊢ (𝑧 = 𝑤 → ((𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s
∃𝑝 ∈
ℕ0s (𝑧 =
(𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁)) ↔ (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s
∃𝑞 ∈
ℕ0s (𝑤 =
(𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)))) |
| 37 | 5, 36 | imbi12d 344 |
. . 3
⊢ (𝑧 = 𝑤 → (((( bday
‘𝑧) ⊆
( bday ‘𝑁) ∧ 0s ≤s 𝑧) → (𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s
∃𝑝 ∈
ℕ0s (𝑧 =
(𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))) ↔ ((( bday
‘𝑤) ⊆
( bday ‘𝑁) ∧ 0s ≤s 𝑤) → (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s
∃𝑞 ∈
ℕ0s (𝑤 =
(𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁))))) |
| 38 | 37 | cbvralvw 3213 |
. 2
⊢
(∀𝑧 ∈
No ((( bday
‘𝑧) ⊆
( bday ‘𝑁) ∧ 0s ≤s 𝑧) → (𝑧 = 𝑁 ∨ ∃𝑥 ∈ ℕ0s ∃𝑦 ∈ ℕ0s
∃𝑝 ∈
ℕ0s (𝑧 =
(𝑥 +s (𝑦 /su
(2s↑s𝑝))) ∧ 𝑦 <s (2s↑s𝑝) ∧ (𝑥 +s 𝑝) <s 𝑁))) ↔ ∀𝑤 ∈ No
((( bday ‘𝑤) ⊆ ( bday
‘𝑁) ∧
0s ≤s 𝑤)
→ (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s
∃𝑞 ∈
ℕ0s (𝑤 =
(𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)))) |
| 39 | 1, 38 | sylib 218 |
1
⊢ (𝜑 → ∀𝑤 ∈ No
((( bday ‘𝑤) ⊆ ( bday
‘𝑁) ∧
0s ≤s 𝑤)
→ (𝑤 = 𝑁 ∨ ∃𝑎 ∈ ℕ0s ∃𝑏 ∈ ℕ0s
∃𝑞 ∈
ℕ0s (𝑤 =
(𝑎 +s (𝑏 /su
(2s↑s𝑞))) ∧ 𝑏 <s (2s↑s𝑞) ∧ (𝑎 +s 𝑞) <s 𝑁)))) |