Theorem unblem1 8773

Description: Lemma for unbnn 8777. After removing the successor of an element from an unbounded set of natural numbers, the intersection of the result belongs to the original unbounded set. (Contributed by NM, 3-Dec-2003.)

Assertion

Ref	Expression
unblem1	⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → ∩ (𝐵 ∖ suc 𝐴) ∈ 𝐵)

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵,𝑦

Proof of Theorem unblem1

Step	Hyp	Ref	Expression
1		omsson 7587	. . . . . 6 ⊢ ω ⊆ On
2		sstr 3978	. . . . . 6 ⊢ ((𝐵 ⊆ ω ∧ ω ⊆ On) → 𝐵 ⊆ On)
3	1, 2	mpan2 689	. . . . 5 ⊢ (𝐵 ⊆ ω → 𝐵 ⊆ On)
4	3	ssdifssd 4122	. . . 4 ⊢ (𝐵 ⊆ ω → (𝐵 ∖ suc 𝐴) ⊆ On)
5	4	ad2antrr 724	. . 3 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ⊆ On)
6		ssel 3964	. . . . . 6 ⊢ (𝐵 ⊆ ω → (𝐴 ∈ 𝐵 → 𝐴 ∈ ω))
7		peano2b 7599	. . . . . 6 ⊢ (𝐴 ∈ ω ↔ suc 𝐴 ∈ ω)
8	6, 7	syl6ib 253	. . . . 5 ⊢ (𝐵 ⊆ ω → (𝐴 ∈ 𝐵 → suc 𝐴 ∈ ω))
9		eleq1 2903	. . . . . . . 8 ⊢ (𝑥 = suc 𝐴 → (𝑥 ∈ 𝑦 ↔ suc 𝐴 ∈ 𝑦))
10	9	rexbidv 3300	. . . . . . 7 ⊢ (𝑥 = suc 𝐴 → (∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ↔ ∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦))
11	10	rspccva 3625	. . . . . 6 ⊢ ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ suc 𝐴 ∈ ω) → ∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦)
12		ssel 3964	. . . . . . . . . . 11 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → 𝑦 ∈ ω))
13		nnord 7591	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ω → Ord 𝑦)
14		ordn2lp 6214	. . . . . . . . . . . . . 14 ⊢ (Ord 𝑦 → ¬ (𝑦 ∈ suc 𝐴 ∧ suc 𝐴 ∈ 𝑦))
15		imnan 402	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ suc 𝐴 → ¬ suc 𝐴 ∈ 𝑦) ↔ ¬ (𝑦 ∈ suc 𝐴 ∧ suc 𝐴 ∈ 𝑦))
16	14, 15	sylibr 236	. . . . . . . . . . . . 13 ⊢ (Ord 𝑦 → (𝑦 ∈ suc 𝐴 → ¬ suc 𝐴 ∈ 𝑦))
17	16	con2d 136	. . . . . . . . . . . 12 ⊢ (Ord 𝑦 → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴))
18	13, 17	syl 17	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ω → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴))
19	12, 18	syl6 35	. . . . . . . . . 10 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴)))
20	19	imdistand 573	. . . . . . . . 9 ⊢ (𝐵 ⊆ ω → ((𝑦 ∈ 𝐵 ∧ suc 𝐴 ∈ 𝑦) → (𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴)))
21		eldif 3949	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴))
22		ne0i 4303	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐵 ∖ suc 𝐴) → (𝐵 ∖ suc 𝐴) ≠ ∅)
23	21, 22	sylbir 237	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴) → (𝐵 ∖ suc 𝐴) ≠ ∅)
24	20, 23	syl6 35	. . . . . . . 8 ⊢ (𝐵 ⊆ ω → ((𝑦 ∈ 𝐵 ∧ suc 𝐴 ∈ 𝑦) → (𝐵 ∖ suc 𝐴) ≠ ∅))
25	24	expd 418	. . . . . . 7 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → (suc 𝐴 ∈ 𝑦 → (𝐵 ∖ suc 𝐴) ≠ ∅)))
26	25	rexlimdv 3286	. . . . . 6 ⊢ (𝐵 ⊆ ω → (∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦 → (𝐵 ∖ suc 𝐴) ≠ ∅))
27	11, 26	syl5 34	. . . . 5 ⊢ (𝐵 ⊆ ω → ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ suc 𝐴 ∈ ω) → (𝐵 ∖ suc 𝐴) ≠ ∅))
28	8, 27	sylan2d 606	. . . 4 ⊢ (𝐵 ⊆ ω → ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ≠ ∅))
29	28	impl 458	. . 3 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ≠ ∅)
30		onint 7513	. . 3 ⊢ (((𝐵 ∖ suc 𝐴) ⊆ On ∧ (𝐵 ∖ suc 𝐴) ≠ ∅) → ∩ (𝐵 ∖ suc 𝐴) ∈ (𝐵 ∖ suc 𝐴))
31	5, 29, 30	syl2anc 586	. 2 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → ∩ (𝐵 ∖ suc 𝐴) ∈ (𝐵 ∖ suc 𝐴))
32	31	eldifad 3951	1 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → ∩ (𝐵 ∖ suc 𝐴) ∈ 𝐵)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 398   = wceq 1536   ∈ wcel 2113   ≠ wne 3019  ∀wral 3141  ∃wrex 3142   ∖ cdif 3936   ⊆ wss 3939  ∅c0 4294  ∩ cint 4879  Ord word 6193  Oncon0 6194  suc csuc 6196  ωcom 7583

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2796  ax-sep 5206  ax-nul 5213  ax-pr 5333  ax-un 7464

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1539  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2966  df-ne 3020  df-ral 3146  df-rex 3147  df-rab 3150  df-v 3499  df-sbc 3776  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-pss 3957  df-nul 4295  df-if 4471  df-pw 4544  df-sn 4571  df-pr 4573  df-tp 4575  df-op 4577  df-uni 4842  df-int 4880  df-br 5070  df-opab 5132  df-tr 5176  df-eprel 5468  df-po 5477  df-so 5478  df-fr 5517  df-we 5519  df-ord 6197  df-on 6198  df-lim 6199  df-suc 6200  df-om 7584

This theorem is referenced by:  unblem2  8774  unblem3  8775