Theorem unblem1 9292

Description: Lemma for unbnn 9296. 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 7885	. . . . . 6 ⊢ ω ⊆ On
2		sstr 3917	. . . . . 6 ⊢ ((𝐵 ⊆ ω ∧ ω ⊆ On) → 𝐵 ⊆ On)
3	1, 2	mpan2 704	. . . . 5 ⊢ (𝐵 ⊆ ω → 𝐵 ⊆ On)
4	3	ssdifssd 4082	. . . 4 ⊢ (𝐵 ⊆ ω → (𝐵 ∖ suc 𝐴) ⊆ On)
5	4	ad2antrr 739	. . 3 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ⊆ On)
6		ssel 3903	. . . . . 6 ⊢ (𝐵 ⊆ ω → (𝐴 ∈ 𝐵 → 𝐴 ∈ ω))
7		peano2b 7898	. . . . . 6 ⊢ (𝐴 ∈ ω ↔ suc 𝐴 ∈ ω)
8	6, 7	imbitrdi 254	. . . . 5 ⊢ (𝐵 ⊆ ω → (𝐴 ∈ 𝐵 → suc 𝐴 ∈ ω))
9		eleq1 2848	. . . . . . . 8 ⊢ (𝑥 = suc 𝐴 → (𝑥 ∈ 𝑦 ↔ suc 𝐴 ∈ 𝑦))
10	9	rexbidv 3186	. . . . . . 7 ⊢ (𝑥 = suc 𝐴 → (∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ↔ ∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦))
11	10	rspccva 3575	. . . . . 6 ⊢ ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ suc 𝐴 ∈ ω) → ∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦)
12		ssel 3903	. . . . . . . . . . 11 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → 𝑦 ∈ ω))
13		nnord 7889	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ω → Ord 𝑦)
14		ordn2lp 6385	. . . . . . . . . . . . . 14 ⊢ (Ord 𝑦 → ¬ (𝑦 ∈ suc 𝐴 ∧ suc 𝐴 ∈ 𝑦))
15		imnan 405	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ suc 𝐴 → ¬ suc 𝐴 ∈ 𝑦) ↔ ¬ (𝑦 ∈ suc 𝐴 ∧ suc 𝐴 ∈ 𝑦))
16	14, 15	sylibr 237	. . . . . . . . . . . . 13 ⊢ (Ord 𝑦 → (𝑦 ∈ suc 𝐴 → ¬ suc 𝐴 ∈ 𝑦))
17	16	con2d 135	. . . . . . . . . . . 12 ⊢ (Ord 𝑦 → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴))
18	13, 17	syl 18	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ω → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴))
19	12, 18	syl6 36	. . . . . . . . . 10 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴)))
20	19	imdistand 581	. . . . . . . . 9 ⊢ (𝐵 ⊆ ω → ((𝑦 ∈ 𝐵 ∧ suc 𝐴 ∈ 𝑦) → (𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴)))
21		eldif 4048	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴))
22		ne0i 4286	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐵 ∖ suc 𝐴) → (𝐵 ∖ suc 𝐴) ≠ ∅)
23	21, 22	sylbir 238	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴) → (𝐵 ∖ suc 𝐴) ≠ ∅)
24	20, 23	syl6 36	. . . . . . . 8 ⊢ (𝐵 ⊆ ω → ((𝑦 ∈ 𝐵 ∧ suc 𝐴 ∈ 𝑦) → (𝐵 ∖ suc 𝐴) ≠ ∅))
25	24	expd 421	. . . . . . 7 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → (suc 𝐴 ∈ 𝑦 → (𝐵 ∖ suc 𝐴) ≠ ∅)))
26	25	rexlimdv 3161	. . . . . 6 ⊢ (𝐵 ⊆ ω → (∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦 → (𝐵 ∖ suc 𝐴) ≠ ∅))
27	11, 26	syl5 35	. . . . 5 ⊢ (𝐵 ⊆ ω → ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ suc 𝐴 ∈ ω) → (𝐵 ∖ suc 𝐴) ≠ ∅))
28	8, 27	sylan2d 617	. . . 4 ⊢ (𝐵 ⊆ ω → ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ≠ ∅))
29	28	impl 461	. . 3 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ≠ ∅)
30		onint 7808	. . 3 ⊢ (((𝐵 ∖ suc 𝐴) ⊆ On ∧ (𝐵 ∖ suc 𝐴) ≠ ∅) → ∩ (𝐵 ∖ suc 𝐴) ∈ (𝐵 ∖ suc 𝐴))
31	5, 29, 30	syl2anc 596	. 2 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → ∩ (𝐵 ∖ suc 𝐴) ∈ (𝐵 ∖ suc 𝐴))
32	31	eldifad 4050	1 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → ∩ (𝐵 ∖ suc 𝐴) ∈ 𝐵)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   = wceq 1569   ∈ wcel 2144   ≠ wne 2955  ∀wral 3076  ∃wrex 3086   ⊆ wss 3896   ∖ cdif 4044  ∅c0 4277  ∩ cint 4906  Ord word 6364  Oncon0 6365  suc csuc 6367  ωcom 7881

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-ext 2732  ax-sep 5248  ax-nul 5259  ax-pr 5391  ax-un 7755

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-sb 2099  df-clab 2739  df-cleq 2752  df-clel 2835  df-ne 2956  df-ral 3077  df-rex 3087  df-rab 3413  df-v 3452  df-ss 3897  df-pss 4013  df-dif 4046  df-in 4090  df-un 4150  df-nul 4278  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-int 4907  df-br 5103  df-opab 5167  df-tr 5212  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-we 5606  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-om 7882

This theorem is used by:  unblem2  9293  unblem3  9294