Theorem orddif0suc 41951

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 486	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → Ord 𝐵)
2		ordelon 6385	. . . . . . . . 9 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ 𝐵) → 𝐴 ∈ On)
3	2	ancoms 460	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → 𝐴 ∈ On)
4		ordeldifsucon 41942	. . . . . . . 8 ⊢ ((Ord 𝐵 ∧ 𝐴 ∈ On) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ 𝐵 ∧ 𝐴 ∈ 𝑐)))
5	1, 3, 4	syl2anc 585	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ 𝐵 ∧ 𝐴 ∈ 𝑐)))
6	5	biancomd 465	. . . . . 6 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
7		ordelon 6385	. . . . . . . . . 10 ⊢ ((Ord 𝐵 ∧ 𝑐 ∈ 𝐵) → 𝑐 ∈ On)
8	7	ad2ant2l 745	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝐵 ∧ Ord 𝐵) ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) → 𝑐 ∈ On)
9	8	ex 414	. . . . . . . 8 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) → 𝑐 ∈ On))
10	9	pm4.71rd 564	. . . . . . 7 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ (𝑐 ∈ On ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
11		df-an 398	. . . . . . 7 ⊢ ((𝑐 ∈ On ∧ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) ↔ ¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
12	10, 11	bitrdi 287	. . . . . 6 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ ¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
13	6, 12	bitr2d 280	. . . . 5 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (¬ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)) ↔ 𝑐 ∈ (𝐵 ∖ suc 𝐴)))
14	13	con1bid 356	. . . 4 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
15	14	albidv 1924	. . 3 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (∀𝑐 ¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴) ↔ ∀𝑐(𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵))))
16		eq0 4342	. . 3 ⊢ ((𝐵 ∖ suc 𝐴) = ∅ ↔ ∀𝑐 ¬ 𝑐 ∈ (𝐵 ∖ suc 𝐴))
17		df-ral 3063	. . 3 ⊢ (∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) ↔ ∀𝑐(𝑐 ∈ On → ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
18	15, 16, 17	3bitr4g 314	. 2 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐵 ∖ suc 𝐴) = ∅ ↔ ∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵)))
19		ordnexbtwnsuc 41950	. 2 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → (∀𝑐 ∈ On ¬ (𝐴 ∈ 𝑐 ∧ 𝑐 ∈ 𝐵) → 𝐵 = suc 𝐴))
20	18, 19	sylbid 239	1 ⊢ ((𝐴 ∈ 𝐵 ∧ Ord 𝐵) → ((𝐵 ∖ suc 𝐴) = ∅ → 𝐵 = suc 𝐴))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 397  ∀wal 1540   = wceq 1542   ∈ wcel 2107  ∀wral 3062   ∖ cdif 3944  ∅c0 4321  Ord word 6360  Oncon0 6361  suc csuc 6363

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-ext 2704  ax-sep 5298  ax-nul 5305  ax-pr 5426  ax-un 7720

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-sb 2069  df-clab 2711  df-cleq 2725  df-clel 2811  df-ne 2942  df-ral 3063  df-rex 3072  df-rab 3434  df-v 3477  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-br 5148  df-opab 5210  df-tr 5265  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-we 5632  df-ord 6364  df-on 6365  df-suc 6367

This theorem is referenced by: (None)