Theorem orddif0suc 43995

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.)

Assertion

Ref	Expression
orddif0suc	⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐵 ∖ suc 𝐴) = ∅ → 𝐵 = suc 𝐴))

Proof of Theorem orddif0suc

Dummy variable 𝑐 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 489	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → Ord 𝐵)
2		ordelon 6384	. . . . . . . . 9 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → 𝐴 ∈ On)
3	2	ancoms 463	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → 𝐴 ∈ On)
4		ordeldifsucon 43986	. . . . . . . 8 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ On) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ 𝐵 ∧ 𝐴 ∈ 𝑐)))
5	1, 3, 4	syl2anc 595	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ 𝐵 ∧ 𝐴 ∈ 𝑐)))
6	5	biancomd 468	. . . . . 6 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
7		ordelon 6384	. . . . . . . . . 10 ⊢ ((Ord 𝐵 ∧ 𝑐 ∈ 𝐵) → 𝑐 ∈ On)
8	7	ad2ant2l 758	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝐵 ∧ Ord 𝐵) ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) → 𝑐 ∈ On)
9	8	ex 417	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) → 𝑐 ∈ On))
10	9	pm4.71rd 571	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ (𝑐 ∈ On ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
11		df-an 401	. . . . . . 7 ⊢ ((𝑐 ∈ On ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) ↔ ¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
12	10, 11	bitrdi 290	. . . . . 6 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ ¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
13	6, 12	bitr2d 283	. . . . 5 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) ↔ 𝑐 ∈ (𝐵 ∖ suc 𝐴)))
14	13	con1bid 358	. . . 4 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
15	14	albidv 1950	. . 3 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (∀𝑐 ¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ ∀𝑐(𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
16		eq0 4304	. . 3 ⊢ ((𝐵 ∖ suc 𝐴) = ∅ ↔ ∀𝑐 ¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴))
17		df-ral 3080	. . 3 ⊢ (∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ ∀𝑐(𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
18	15, 16, 17	3bitr4g 317	. 2 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐵 ∖ suc 𝐴) = ∅ ↔ ∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
19		ordnexbtwnsuc 43994	. 2 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) → 𝐵 = suc 𝐴))
20	18, 19	sylbid 243	1 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐵 ∖ suc 𝐴) = ∅ → 𝐵 = suc 𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400  ∀wal 1568   = wceq 1570   ∈ wcel 2143  ∀wral 3079   ∖ cdif 3902  ∅c0 4286  Ord word 6359  Oncon0 6360  suc csuc 6362

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-ext 2735  ax-sep 5257  ax-pr 5404  ax-un 7732

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-sb 2097  df-clab 2742  df-cleq 2755  df-clel 2838  df-ne 2959  df-ral 3080  df-rex 3090  df-rab 3417  df-v 3457  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-br 5110  df-opab 5174  df-tr 5219  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-ord 6363  df-on 6364  df-suc 6366

This theorem is referenced by: (None)