Theorem unblem1 9236

Description: Lemma for unbnn 9240. 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 7850	. . . . . 6 ⊢ ω ⊆ On
2		sstr 3944	. . . . . 6 ⊢ ((𝐵 ⊆ ω ∧ ω ⊆ On) → 𝐵 ⊆ On)
3	1, 2	mpan2 701	. . . . 5 ⊢ (𝐵 ⊆ ω → 𝐵 ⊆ On)
4	3	ssdifssd 4100	. . . 4 ⊢ (𝐵 ⊆ ω → (𝐵 ∖ suc 𝐴) ⊆ On)
5	4	ad2antrr 736	. . 3 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ⊆ On)
6		ssel 3930	. . . . . 6 ⊢ (𝐵 ⊆ ω → (𝐴 ∈ 𝐵 → 𝐴 ∈ ω))
7		peano2b 7863	. . . . . 6 ⊢ (𝐴 ∈ ω ↔ suc 𝐴 ∈ ω)
8	6, 7	imbitrdi 253	. . . . 5 ⊢ (𝐵 ⊆ ω → (𝐴 ∈ 𝐵 → suc 𝐴 ∈ ω))
9		eleq1 2850	. . . . . . . 8 ⊢ (𝑥 = suc 𝐴 → (𝑥 ∈ 𝑦 ↔ suc 𝐴 ∈ 𝑦))
10	9	rexbidv 3186	. . . . . . 7 ⊢ (𝑥 = suc 𝐴 → (∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ↔ ∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦))
11	10	rspccva 3580	. . . . . 6 ⊢ ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ suc 𝐴 ∈ ω) → ∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦)
12		ssel 3930	. . . . . . . . . . 11 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → 𝑦 ∈ ω))
13		nnord 7854	. . . . . . . . . . . 12 ⊢ (𝑦 ∈ ω → Ord 𝑦)
14		ordn2lp 6366	. . . . . . . . . . . . . 14 ⊢ (Ord 𝑦 → ¬ (𝑦 ∈ suc 𝐴 ∧ suc 𝐴 ∈ 𝑦))
15		imnan 403	. . . . . . . . . . . . . 14 ⊢ ((𝑦 ∈ suc 𝐴 → ¬ suc 𝐴 ∈ 𝑦) ↔ ¬ (𝑦 ∈ suc 𝐴 ∧ suc 𝐴 ∈ 𝑦))
16	14, 15	sylibr 236	. . . . . . . . . . . . 13 ⊢ (Ord 𝑦 → (𝑦 ∈ suc 𝐴 → ¬ suc 𝐴 ∈ 𝑦))
17	16	con2d 134	. . . . . . . . . . . 12 ⊢ (Ord 𝑦 → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴))
18	13, 17	syl 17	. . . . . . . . . . 11 ⊢ (𝑦 ∈ ω → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴))
19	12, 18	syl6 35	. . . . . . . . . 10 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → (suc 𝐴 ∈ 𝑦 → ¬ 𝑦 ∈ suc 𝐴)))
20	19	imdistand 578	. . . . . . . . 9 ⊢ (𝐵 ⊆ ω → ((𝑦 ∈ 𝐵 ∧ suc 𝐴 ∈ 𝑦) → (𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴)))
21		eldif 3914	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐵 ∖ suc 𝐴) ↔ (𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴))
22		ne0i 4293	. . . . . . . . . 10 ⊢ (𝑦 ∈ (𝐵 ∖ suc 𝐴) → (𝐵 ∖ suc 𝐴) ≠ ∅)
23	21, 22	sylbir 237	. . . . . . . . 9 ⊢ ((𝑦 ∈ 𝐵 ∧ ¬ 𝑦 ∈ suc 𝐴) → (𝐵 ∖ suc 𝐴) ≠ ∅)
24	20, 23	syl6 35	. . . . . . . 8 ⊢ (𝐵 ⊆ ω → ((𝑦 ∈ 𝐵 ∧ suc 𝐴 ∈ 𝑦) → (𝐵 ∖ suc 𝐴) ≠ ∅))
25	24	expd 419	. . . . . . 7 ⊢ (𝐵 ⊆ ω → (𝑦 ∈ 𝐵 → (suc 𝐴 ∈ 𝑦 → (𝐵 ∖ suc 𝐴) ≠ ∅)))
26	25	rexlimdv 3161	. . . . . 6 ⊢ (𝐵 ⊆ ω → (∃𝑦 ∈ 𝐵 suc 𝐴 ∈ 𝑦 → (𝐵 ∖ suc 𝐴) ≠ ∅))
27	11, 26	syl5 34	. . . . 5 ⊢ (𝐵 ⊆ ω → ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ suc 𝐴 ∈ ω) → (𝐵 ∖ suc 𝐴) ≠ ∅))
28	8, 27	sylan2d 614	. . . 4 ⊢ (𝐵 ⊆ ω → ((∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦 ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ≠ ∅))
29	28	impl 459	. . 3 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → (𝐵 ∖ suc 𝐴) ≠ ∅)
30		onint 7773	. . 3 ⊢ (((𝐵 ∖ suc 𝐴) ⊆ On ∧ (𝐵 ∖ suc 𝐴) ≠ ∅) → ∩ (𝐵 ∖ suc 𝐴) ∈ (𝐵 ∖ suc 𝐴))
31	5, 29, 30	syl2anc 593	. 2 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → ∩ (𝐵 ∖ suc 𝐴) ∈ (𝐵 ∖ suc 𝐴))
32	31	eldifad 3916	1 ⊢ (((𝐵 ⊆ ω ∧ ∀𝑥 ∈ ω ∃𝑦 ∈ 𝐵 𝑥 ∈ 𝑦) ∧ 𝐴 ∈ 𝐵) → ∩ (𝐵 ∖ suc 𝐴) ∈ 𝐵)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   = wceq 1560   ∈ wcel 2142   ≠ wne 2957  ∀wral 3076  ∃wrex 3086   ∖ cdif 3901   ⊆ wss 3904  ∅c0 4285  ∩ cint 4905  Ord word 6345  Oncon0 6346  suc csuc 6348  ωcom 7846

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-ext 2734  ax-sep 5246  ax-nul 5256  ax-pr 5390  ax-un 7718

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-sb 2091  df-clab 2741  df-cleq 2754  df-clel 2837  df-ne 2958  df-ral 3077  df-rex 3087  df-rab 3415  df-v 3456  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-int 4906  df-br 5101  df-opab 5163  df-tr 5208  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-we 5602  df-ord 6349  df-on 6350  df-lim 6351  df-suc 6352  df-om 7847

This theorem is referenced by:  unblem2  9237  unblem3  9238