Theorem orddif0suc 43806

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 488	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → Ord 𝐵)
2		ordelon 6365	. . . . . . . . 9 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → 𝐴 ∈ On)
3	2	ancoms 462	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → 𝐴 ∈ On)
4		ordeldifsucon 43797	. . . . . . . 8 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ On) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ 𝐵 ∧ 𝐴 ∈ 𝑐)))
5	1, 3, 4	syl2anc 593	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ 𝐵 ∧ 𝐴 ∈ 𝑐)))
6	5	biancomd 467	. . . . . 6 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
7		ordelon 6365	. . . . . . . . . 10 ⊢ ((Ord 𝐵 ∧ 𝑐 ∈ 𝐵) → 𝑐 ∈ On)
8	7	ad2ant2l 756	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝐵 ∧ Ord 𝐵) ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) → 𝑐 ∈ On)
9	8	ex 416	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) → 𝑐 ∈ On))
10	9	pm4.71rd 570	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ (𝑐 ∈ On ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
11		df-an 400	. . . . . . 7 ⊢ ((𝑐 ∈ On ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) ↔ ¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
12	10, 11	bitrdi 289	. . . . . 6 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ ¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
13	6, 12	bitr2d 282	. . . . 5 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) ↔ 𝑐 ∈ (𝐵 ∖ suc 𝐴)))
14	13	con1bid 357	. . . 4 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
15	14	albidv 1939	. . 3 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (∀𝑐 ¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ ∀𝑐(𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
16		eq0 4300	. . 3 ⊢ ((𝐵 ∖ suc 𝐴) = ∅ ↔ ∀𝑐 ¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴))
17		df-ral 3076	. . 3 ⊢ (∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ ∀𝑐(𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
18	15, 16, 17	3bitr4g 316	. 2 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐵 ∖ suc 𝐴) = ∅ ↔ ∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
19		ordnexbtwnsuc 43805	. 2 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) → 𝐵 = suc 𝐴))
20	18, 19	sylbid 242	1 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐵 ∖ suc 𝐴) = ∅ → 𝐵 = suc 𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399  ∀wal 1557   = wceq 1559   ∈ wcel 2141  ∀wral 3075   ∖ cdif 3899  ∅c0 4283  Ord word 6340  Oncon0 6341  suc csuc 6343

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-ext 2733  ax-sep 5243  ax-pr 5387  ax-un 7713

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1098  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-sb 2090  df-clab 2740  df-cleq 2753  df-clel 2836  df-ne 2957  df-ral 3076  df-rex 3086  df-rab 3414  df-v 3455  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-br 5098  df-opab 5160  df-tr 5205  df-eprel 5543  df-po 5551  df-so 5552  df-fr 5596  df-we 5598  df-ord 6344  df-on 6345  df-suc 6347

This theorem is referenced by: (None)