Metamath Proof Explorer


Theorem onsbnd

Description: The surreals of a given birthday are bounded above by that ordinal. (Contributed by Scott Fenton, 22-Feb-2026)

Ref Expression
Assertion onsbnd ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → B ≤ s A

Proof

Step Hyp Ref Expression
1 ral0 Could not format A. xR e. (/) B
2 1 a1i Could not format ( ( A e. On_s /\ B e. ( _Made ` ( bday ` A ) ) ) -> A. xR e. (/) B A. xR e. (/) B
3 leftssold ⊢ L ⁡ B ⊆ Old ⁡ bday ⁡ B
4 bdayon ⊢ bday ⁡ A ∈ On
5 madebdayim ⊢ B ∈ M ⁡ bday ⁡ A → bday ⁡ B ⊆ bday ⁡ A
6 5 adantl ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → bday ⁡ B ⊆ bday ⁡ A
7 oldss ⊢ bday ⁡ A ∈ On ∧ bday ⁡ B ⊆ bday ⁡ A → Old ⁡ bday ⁡ B ⊆ Old ⁡ bday ⁡ A
8 4 6 7 sylancr ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → Old ⁡ bday ⁡ B ⊆ Old ⁡ bday ⁡ A
9 3 8 sstrid ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → L ⁡ B ⊆ Old ⁡ bday ⁡ A
10 onleft ⊢ A ∈ On s → Old ⁡ bday ⁡ A = L ⁡ A
11 10 adantr ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → Old ⁡ bday ⁡ A = L ⁡ A
12 9 11 sseqtrd ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → L ⁡ B ⊆ L ⁡ A
13 12 sselda Could not format ( ( ( A e. On_s /\ B e. ( _Made ` ( bday ` A ) ) ) /\ yL e. ( _Left ` B ) ) -> yL e. ( _Left ` A ) ) : No typesetting found for |- ( ( ( A e. On_s /\ B e. ( _Made ` ( bday ` A ) ) ) /\ yL e. ( _Left ` B ) ) -> yL e. ( _Left ` A ) ) with typecode |-
14 leftlt Could not format ( yL e. ( _Left ` A ) -> yL yL
15 13 14 syl Could not format ( ( ( A e. On_s /\ B e. ( _Made ` ( bday ` A ) ) ) /\ yL e. ( _Left ` B ) ) -> yL yL
16 15 ralrimiva Could not format ( ( A e. On_s /\ B e. ( _Made ` ( bday ` A ) ) ) -> A. yL e. ( _Left ` B ) yL A. yL e. ( _Left ` B ) yL
17 lltr ⊢ L ⁡ B ≪ s R ⁡ B
18 17 a1i ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → L ⁡ B ≪ s R ⁡ B
19 leftssno ⊢ L ⁡ A ⊆ No
20 fvex ⊢ L ⁡ A ∈ V
21 20 elpw ⊢ L ⁡ A ∈ 𝒫 No ↔ L ⁡ A ⊆ No
22 19 21 mpbir ⊢ L ⁡ A ∈ 𝒫 No
23 nulsgts ⊢ L ⁡ A ∈ 𝒫 No → L ⁡ A ≪ s ∅
24 22 23 mp1i ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → L ⁡ A ≪ s ∅
25 madeno ⊢ B ∈ M ⁡ bday ⁡ A → B ∈ No
26 25 adantl ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → B ∈ No
27 lrcut ⊢ B ∈ No → L ⁡ B | s R ⁡ B = B
28 26 27 syl ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → L ⁡ B | s R ⁡ B = B
29 28 eqcomd ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → B = L ⁡ B | s R ⁡ B
30 oncutleft ⊢ A ∈ On s → A = L ⁡ A | s ∅
31 30 adantr ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → A = L ⁡ A | s ∅
32 18 24 29 31 lesrecd Could not format ( ( A e. On_s /\ B e. ( _Made ` ( bday ` A ) ) ) -> ( B <_s A <-> ( A. xR e. (/) B ( B <_s A <-> ( A. xR e. (/) B
33 2 16 32 mpbir2and ⊢ A ∈ On s ∧ B ∈ M ⁡ bday ⁡ A → B ≤ s A