| Step | Hyp | Ref
| Expression |
| 1 | | lrcut 28299 |
. . . 4
⊢ (𝐴 ∈ No → ((L‘𝐴) |s (R‘𝐴)) = 𝐴) |
| 2 | 1 | fveq2d 6894 |
. . 3
⊢ (𝐴 ∈ No → (bday‘((L‘𝐴) |s (R‘𝐴))) = (bday‘𝐴)) |
| 3 | | lltr 28257 |
. . . 4
⊢
(L‘𝐴)
<<s (R‘𝐴) |
| 4 | | fvex 6903 |
. . . . 5
⊢
(O‘(bday‘𝐴)) ∈ V |
| 5 | | bdayon 28147 |
. . . . . . 7
⊢ (bday‘𝑥) ∈ On |
| 6 | 5 | onsuci 7854 |
. . . . . 6
⊢ suc
(bday‘𝑥) ∈ On |
| 7 | 6 | rgenw 3080 |
. . . . 5
⊢
∀𝑥 ∈
(O‘(bday‘𝐴))suc (bday‘𝑥) ∈ On |
| 8 | | iunon 8354 |
. . . . 5
⊢
(((O‘(bday‘𝐴)) ∈ V ∧ ∀𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥) ∈ On) → ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥) ∈ On) |
| 9 | 4, 7, 8 | mp2an 705 |
. . . 4
⊢ ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥) ∈ On |
| 10 | | lrold 28292 |
. . . . . 6
⊢
((L‘𝐴) ∪
(R‘𝐴)) =
(O‘(bday‘𝐴)) |
| 11 | 10 | imaeq2i 6052 |
. . . . 5
⊢ (bday “ ((L‘𝐴) ∪ (R‘𝐴))) = (bday
“ (O‘(bday‘𝐴))) |
| 12 | | nfv 1946 |
. . . . . 6
⊢
Ⅎ𝑦 𝐴 ∈ No |
| 13 | | bdayfun 28142 |
. . . . . . 7
⊢ Fun bday |
| 14 | 13 | a1i 11 |
. . . . . 6
⊢ (𝐴 ∈ No → Fun bday) |
| 15 | | fvex 6903 |
. . . . . . . . . 10
⊢ (bday‘𝑦) ∈ V |
| 16 | 15 | sucid 6450 |
. . . . . . . . 9
⊢ (bday‘𝑦) ∈ suc (bday‘𝑦) |
| 17 | | fveq2 6890 |
. . . . . . . . . . . 12
⊢ (𝑥 = 𝑦 → (bday‘𝑥) = (bday‘𝑦)) |
| 18 | 17 | suceqd 6433 |
. . . . . . . . . . 11
⊢ (𝑥 = 𝑦 → suc (bday‘𝑥) = suc (bday‘𝑦)) |
| 19 | 18 | eleq2d 2846 |
. . . . . . . . . 10
⊢ (𝑥 = 𝑦 → ((bday‘𝑦) ∈ suc (bday‘𝑥) ↔ (bday‘𝑦) ∈ suc (bday‘𝑦))) |
| 20 | 19 | rspcev 3576 |
. . . . . . . . 9
⊢ ((𝑦 ∈ (O‘(bday‘𝐴)) ∧ (bday‘𝑦) ∈ suc (bday‘𝑦)) → ∃𝑥 ∈ (O‘(bday‘𝐴))(bday‘𝑦) ∈ suc (bday‘𝑥)) |
| 21 | 16, 20 | mpan2 704 |
. . . . . . . 8
⊢ (𝑦 ∈ (O‘(bday‘𝐴)) → ∃𝑥 ∈ (O‘(bday‘𝐴))(bday‘𝑦) ∈ suc (bday‘𝑥)) |
| 22 | 21 | adantl 487 |
. . . . . . 7
⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ (O‘(bday‘𝐴))) → ∃𝑥 ∈ (O‘(bday‘𝐴))(bday‘𝑦) ∈ suc (bday‘𝑥)) |
| 23 | 22 | eliund 4957 |
. . . . . 6
⊢ ((𝐴 ∈ No ∧ 𝑦 ∈ (O‘(bday‘𝐴))) → (bday‘𝑦) ∈ ∪
𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) |
| 24 | 12, 14, 23 | funimassd 6956 |
. . . . 5
⊢ (𝐴 ∈ No → (bday “
(O‘(bday‘𝐴))) ⊆ ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) |
| 25 | 11, 24 | eqsstrid 3947 |
. . . 4
⊢ (𝐴 ∈ No → (bday “
((L‘𝐴) ∪
(R‘𝐴))) ⊆
∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) |
| 26 | | cutbdaybnd 28190 |
. . . 4
⊢
(((L‘𝐴)
<<s (R‘𝐴) ∧
∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥) ∈ On ∧ (bday “ ((L‘𝐴) ∪ (R‘𝐴))) ⊆ ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) → (bday‘((L‘𝐴) |s (R‘𝐴))) ⊆ ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) |
| 27 | 3, 9, 25, 26 | mp3an12i 1494 |
. . 3
⊢ (𝐴 ∈ No → (bday‘((L‘𝐴) |s (R‘𝐴))) ⊆ ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) |
| 28 | 2, 27 | eqsstrrd 3944 |
. 2
⊢ (𝐴 ∈ No → (bday‘𝐴) ⊆ ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) |
| 29 | | oldbdayim 28284 |
. . . . 5
⊢ (𝑥 ∈ (O‘(bday‘𝐴)) → (bday‘𝑥) ∈ (bday‘𝐴)) |
| 30 | 29 | adantl 487 |
. . . 4
⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ (O‘(bday‘𝐴))) → (bday‘𝑥) ∈ (bday‘𝐴)) |
| 31 | | bdayon 28147 |
. . . . 5
⊢ (bday‘𝐴) ∈ On |
| 32 | 5, 31 | onsucssi 7856 |
. . . 4
⊢ ((bday‘𝑥) ∈ (bday‘𝐴) ↔ suc (bday‘𝑥) ⊆ (bday‘𝐴)) |
| 33 | 30, 32 | sylib 221 |
. . 3
⊢ ((𝐴 ∈ No ∧ 𝑥 ∈ (O‘(bday‘𝐴))) → suc (bday‘𝑥) ⊆ (bday‘𝐴)) |
| 34 | 33 | iunssd 5008 |
. 2
⊢ (𝐴 ∈ No → ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥) ⊆ (bday‘𝐴)) |
| 35 | 28, 34 | eqssd 3926 |
1
⊢ (𝐴 ∈ No → (bday‘𝐴) = ∪ 𝑥 ∈ (O‘(bday‘𝐴))suc (bday‘𝑥)) |