Metamath Proof Explorer


Theorem r0maxss

Description: If two ordered pairs are related by _R0 , then the maximum of the first pair is less than or equal to the maximum of the second pair. (The union of two ordinals is proven to be their maximum in ordunmax .) (Contributed by BTernaryTau, 22-Sep-2026)

Ref Expression
Hypotheses r0maxss.1 ⊢ φ → A ∈ On
r0maxss.2 ⊢ φ → B ∈ On
r0maxss.3 ⊢ φ → C ∈ On
r0maxss.4 ⊢ φ → D ∈ On
r0maxss.5 No typesetting found for |- ( ph -> <. A , B >. _R0 <. C , D >. ) with typecode |-
Assertion r0maxss ⊢ φ → A ∪ B ⊆ C ∪ D

Proof

Step Hyp Ref Expression
1 r0maxss.1 ⊢ φ → A ∈ On
2 r0maxss.2 ⊢ φ → B ∈ On
3 r0maxss.3 ⊢ φ → C ∈ On
4 r0maxss.4 ⊢ φ → D ∈ On
5 r0maxss.5 Could not format ( ph -> <. A , B >. _R0 <. C , D >. ) : No typesetting found for |- ( ph -> <. A , B >. _R0 <. C , D >. ) with typecode |-
6 1 2 3 4 brr0d Could not format ( ph -> ( <. A , B >. _R0 <. C , D >. <-> ( ( A u. B ) e. ( C u. D ) \/ ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) ) ) ) : No typesetting found for |- ( ph -> ( <. A , B >. _R0 <. C , D >. <-> ( ( A u. B ) e. ( C u. D ) \/ ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) ) ) ) with typecode |-
7 5 6 mpbid Could not format ( ph -> ( ( A u. B ) e. ( C u. D ) \/ ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) ) ) : No typesetting found for |- ( ph -> ( ( A u. B ) e. ( C u. D ) \/ ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) ) ) with typecode |-
8 simpl Could not format ( ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) -> ( A u. B ) = ( C u. D ) ) : No typesetting found for |- ( ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) -> ( A u. B ) = ( C u. D ) ) with typecode |-
9 8 orim2i Could not format ( ( ( A u. B ) e. ( C u. D ) \/ ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) ) -> ( ( A u. B ) e. ( C u. D ) \/ ( A u. B ) = ( C u. D ) ) ) : No typesetting found for |- ( ( ( A u. B ) e. ( C u. D ) \/ ( ( A u. B ) = ( C u. D ) /\ <. A , B >. LexOrd <. C , D >. ) ) -> ( ( A u. B ) e. ( C u. D ) \/ ( A u. B ) = ( C u. D ) ) ) with typecode |-
10 7 9 syl ⊢ φ → A ∪ B ∈ C ∪ D ∨ A ∪ B = C ∪ D
11 onun2 ⊢ A ∈ On ∧ B ∈ On → A ∪ B ∈ On
12 1 2 11 syl2anc ⊢ φ → A ∪ B ∈ On
13 onun2 ⊢ C ∈ On ∧ D ∈ On → C ∪ D ∈ On
14 3 4 13 syl2anc ⊢ φ → C ∪ D ∈ On
15 onsseleq ⊢ A ∪ B ∈ On ∧ C ∪ D ∈ On → A ∪ B ⊆ C ∪ D ↔ A ∪ B ∈ C ∪ D ∨ A ∪ B = C ∪ D
16 12 14 15 syl2anc ⊢ φ → A ∪ B ⊆ C ∪ D ↔ A ∪ B ∈ C ∪ D ∨ A ∪ B = C ∪ D
17 10 16 mpbird ⊢ φ → A ∪ B ⊆ C ∪ D