Metamath Proof Explorer

Theorem orddif0suc

Description: For any distinct pair of ordinals, if the set difference between the greater and the successor of the lesser is empty, the greater is the successor of the lesser. Lemma 1.16 of Schloeder p. 2. (Contributed by RP, 17-Jan-2025)

Ref Expression
Assertion orddif0suc 
|- ( ( A e. B /\ Ord B ) -> ( ( B \ suc A ) = (/) -> B = suc A ) )

Proof

Step Hyp Ref Expression
1 simpr 
 |-  ( ( A e. B /\ Ord B ) -> Ord B )
2 ordelon 
 |-  ( ( Ord B /\ A e. B ) -> A e. On )
3 2 ancoms 
 |-  ( ( A e. B /\ Ord B ) -> A e. On )
4 ordeldifsucon 
 |-  ( ( Ord B /\ A e. On ) -> ( c e. ( B \ suc A ) <-> ( c e. B /\ A e. c ) ) )
5 1 3 4 syl2anc 
 |-  ( ( A e. B /\ Ord B ) -> ( c e. ( B \ suc A ) <-> ( c e. B /\ A e. c ) ) )
6 5 biancomd 
 |-  ( ( A e. B /\ Ord B ) -> ( c e. ( B \ suc A ) <-> ( A e. c /\ c e. B ) ) )
7 ordelon 
 |-  ( ( Ord B /\ c e. B ) -> c e. On )
8 7 ad2ant2l 
 |-  ( ( ( A e. B /\ Ord B ) /\ ( A e. c /\ c e. B ) ) -> c e. On )
9 8 ex 
 |-  ( ( A e. B /\ Ord B ) -> ( ( A e. c /\ c e. B ) -> c e. On ) )
10 9 pm4.71rd 
 |-  ( ( A e. B /\ Ord B ) -> ( ( A e. c /\ c e. B ) <-> ( c e. On /\ ( A e. c /\ c e. B ) ) ) )
11 df-an 
 |-  ( ( c e. On /\ ( A e. c /\ c e. B ) ) <-> -. ( c e. On -> -. ( A e. c /\ c e. B ) ) )
12 10 11 bitrdi 
 |-  ( ( A e. B /\ Ord B ) -> ( ( A e. c /\ c e. B ) <-> -. ( c e. On -> -. ( A e. c /\ c e. B ) ) ) )
13 6 12 bitr2d 
 |-  ( ( A e. B /\ Ord B ) -> ( -. ( c e. On -> -. ( A e. c /\ c e. B ) ) <-> c e. ( B \ suc A ) ) )
14 13 con1bid 
 |-  ( ( A e. B /\ Ord B ) -> ( -. c e. ( B \ suc A ) <-> ( c e. On -> -. ( A e. c /\ c e. B ) ) ) )
15 14 albidv 
 |-  ( ( A e. B /\ Ord B ) -> ( A. c -. c e. ( B \ suc A ) <-> A. c ( c e. On -> -. ( A e. c /\ c e. B ) ) ) )
16 eq0 
 |-  ( ( B \ suc A ) = (/) <-> A. c -. c e. ( B \ suc A ) )
17 df-ral 
 |-  ( A. c e. On -. ( A e. c /\ c e. B ) <-> A. c ( c e. On -> -. ( A e. c /\ c e. B ) ) )
18 15 16 17 3bitr4g 
 |-  ( ( A e. B /\ Ord B ) -> ( ( B \ suc A ) = (/) <-> A. c e. On -. ( A e. c /\ c e. B ) ) )
19 ordnexbtwnsuc 
 |-  ( ( A e. B /\ Ord B ) -> ( A. c e. On -. ( A e. c /\ c e. B ) -> B = suc A ) )
20 18 19 sylbid 
 |-  ( ( A e. B /\ Ord B ) -> ( ( B \ suc A ) = (/) -> B = suc A ) )