Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  unblem2 Structured version   Visualization version   GIF version

Theorem unblem2 8164
 Description: Lemma for unbnn 8167. The value of the function 𝐹 belongs to the unbounded set of natural numbers 𝐴. (Contributed by NM, 3-Dec-2003.)
Hypothesis
Ref Expression
unblem.2 𝐹 = (rec((𝑥 ∈ V ↦ (𝐴 ∖ suc 𝑥)), 𝐴) ↾ ω)
Assertion
Ref Expression
unblem2 ((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) → (𝑧 ∈ ω → (𝐹𝑧) ∈ 𝐴))
Distinct variable groups:   𝑤,𝑣,𝑥,𝑧,𝐴   𝑣,𝐹,𝑤,𝑧
Allowed substitution hint:   𝐹(𝑥)

Proof of Theorem unblem2
Dummy variables 𝑢 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fveq2 6153 . . . 4 (𝑧 = ∅ → (𝐹𝑧) = (𝐹‘∅))
21eleq1d 2683 . . 3 (𝑧 = ∅ → ((𝐹𝑧) ∈ 𝐴 ↔ (𝐹‘∅) ∈ 𝐴))
3 fveq2 6153 . . . 4 (𝑧 = 𝑢 → (𝐹𝑧) = (𝐹𝑢))
43eleq1d 2683 . . 3 (𝑧 = 𝑢 → ((𝐹𝑧) ∈ 𝐴 ↔ (𝐹𝑢) ∈ 𝐴))
5 fveq2 6153 . . . 4 (𝑧 = suc 𝑢 → (𝐹𝑧) = (𝐹‘suc 𝑢))
65eleq1d 2683 . . 3 (𝑧 = suc 𝑢 → ((𝐹𝑧) ∈ 𝐴 ↔ (𝐹‘suc 𝑢) ∈ 𝐴))
7 omsson 7023 . . . . . 6 ω ⊆ On
8 sstr 3595 . . . . . 6 ((𝐴 ⊆ ω ∧ ω ⊆ On) → 𝐴 ⊆ On)
97, 8mpan2 706 . . . . 5 (𝐴 ⊆ ω → 𝐴 ⊆ On)
10 peano1 7039 . . . . . . . . 9 ∅ ∈ ω
11 eleq1 2686 . . . . . . . . . . 11 (𝑤 = ∅ → (𝑤𝑣 ↔ ∅ ∈ 𝑣))
1211rexbidv 3046 . . . . . . . . . 10 (𝑤 = ∅ → (∃𝑣𝐴 𝑤𝑣 ↔ ∃𝑣𝐴 ∅ ∈ 𝑣))
1312rspcv 3294 . . . . . . . . 9 (∅ ∈ ω → (∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣 → ∃𝑣𝐴 ∅ ∈ 𝑣))
1410, 13ax-mp 5 . . . . . . . 8 (∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣 → ∃𝑣𝐴 ∅ ∈ 𝑣)
15 df-rex 2913 . . . . . . . 8 (∃𝑣𝐴 ∅ ∈ 𝑣 ↔ ∃𝑣(𝑣𝐴 ∧ ∅ ∈ 𝑣))
1614, 15sylib 208 . . . . . . 7 (∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣 → ∃𝑣(𝑣𝐴 ∧ ∅ ∈ 𝑣))
17 exsimpl 1792 . . . . . . 7 (∃𝑣(𝑣𝐴 ∧ ∅ ∈ 𝑣) → ∃𝑣 𝑣𝐴)
1816, 17syl 17 . . . . . 6 (∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣 → ∃𝑣 𝑣𝐴)
19 n0 3912 . . . . . 6 (𝐴 ≠ ∅ ↔ ∃𝑣 𝑣𝐴)
2018, 19sylibr 224 . . . . 5 (∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣𝐴 ≠ ∅)
21 onint 6949 . . . . 5 ((𝐴 ⊆ On ∧ 𝐴 ≠ ∅) → 𝐴𝐴)
229, 20, 21syl2an 494 . . . 4 ((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) → 𝐴𝐴)
23 unblem.2 . . . . . . . 8 𝐹 = (rec((𝑥 ∈ V ↦ (𝐴 ∖ suc 𝑥)), 𝐴) ↾ ω)
2423fveq1i 6154 . . . . . . 7 (𝐹‘∅) = ((rec((𝑥 ∈ V ↦ (𝐴 ∖ suc 𝑥)), 𝐴) ↾ ω)‘∅)
25 fr0g 7483 . . . . . . 7 ( 𝐴𝐴 → ((rec((𝑥 ∈ V ↦ (𝐴 ∖ suc 𝑥)), 𝐴) ↾ ω)‘∅) = 𝐴)
2624, 25syl5req 2668 . . . . . 6 ( 𝐴𝐴 𝐴 = (𝐹‘∅))
2726eleq1d 2683 . . . . 5 ( 𝐴𝐴 → ( 𝐴𝐴 ↔ (𝐹‘∅) ∈ 𝐴))
2827ibi 256 . . . 4 ( 𝐴𝐴 → (𝐹‘∅) ∈ 𝐴)
2922, 28syl 17 . . 3 ((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) → (𝐹‘∅) ∈ 𝐴)
30 unblem1 8163 . . . . 5 (((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) ∧ (𝐹𝑢) ∈ 𝐴) → (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴)
31 suceq 5754 . . . . . . . . . . . 12 (𝑦 = 𝑥 → suc 𝑦 = suc 𝑥)
3231difeq2d 3711 . . . . . . . . . . 11 (𝑦 = 𝑥 → (𝐴 ∖ suc 𝑦) = (𝐴 ∖ suc 𝑥))
3332inteqd 4450 . . . . . . . . . 10 (𝑦 = 𝑥 (𝐴 ∖ suc 𝑦) = (𝐴 ∖ suc 𝑥))
34 suceq 5754 . . . . . . . . . . . 12 (𝑦 = (𝐹𝑢) → suc 𝑦 = suc (𝐹𝑢))
3534difeq2d 3711 . . . . . . . . . . 11 (𝑦 = (𝐹𝑢) → (𝐴 ∖ suc 𝑦) = (𝐴 ∖ suc (𝐹𝑢)))
3635inteqd 4450 . . . . . . . . . 10 (𝑦 = (𝐹𝑢) → (𝐴 ∖ suc 𝑦) = (𝐴 ∖ suc (𝐹𝑢)))
3723, 33, 36frsucmpt2 7487 . . . . . . . . 9 ((𝑢 ∈ ω ∧ (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴) → (𝐹‘suc 𝑢) = (𝐴 ∖ suc (𝐹𝑢)))
3837eqcomd 2627 . . . . . . . 8 ((𝑢 ∈ ω ∧ (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴) → (𝐴 ∖ suc (𝐹𝑢)) = (𝐹‘suc 𝑢))
3938eleq1d 2683 . . . . . . 7 ((𝑢 ∈ ω ∧ (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴) → ( (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴 ↔ (𝐹‘suc 𝑢) ∈ 𝐴))
4039ex 450 . . . . . 6 (𝑢 ∈ ω → ( (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴 → ( (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴 ↔ (𝐹‘suc 𝑢) ∈ 𝐴)))
4140ibd 258 . . . . 5 (𝑢 ∈ ω → ( (𝐴 ∖ suc (𝐹𝑢)) ∈ 𝐴 → (𝐹‘suc 𝑢) ∈ 𝐴))
4230, 41syl5 34 . . . 4 (𝑢 ∈ ω → (((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) ∧ (𝐹𝑢) ∈ 𝐴) → (𝐹‘suc 𝑢) ∈ 𝐴))
4342expd 452 . . 3 (𝑢 ∈ ω → ((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) → ((𝐹𝑢) ∈ 𝐴 → (𝐹‘suc 𝑢) ∈ 𝐴)))
442, 4, 6, 29, 43finds2 7048 . 2 (𝑧 ∈ ω → ((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) → (𝐹𝑧) ∈ 𝐴))
4544com12 32 1 ((𝐴 ⊆ ω ∧ ∀𝑤 ∈ ω ∃𝑣𝐴 𝑤𝑣) → (𝑧 ∈ ω → (𝐹𝑧) ∈ 𝐴))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 196   ∧ wa 384   = wceq 1480  ∃wex 1701   ∈ wcel 1987   ≠ wne 2790  ∀wral 2907  ∃wrex 2908  Vcvv 3189   ∖ cdif 3556   ⊆ wss 3559  ∅c0 3896  ∩ cint 4445   ↦ cmpt 4678   ↾ cres 5081  Oncon0 5687  suc csuc 5689  ‘cfv 5852  ωcom 7019  reccrdg 7457 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-sep 4746  ax-nul 4754  ax-pow 4808  ax-pr 4872  ax-un 6909 This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-ral 2912  df-rex 2913  df-reu 2914  df-rab 2916  df-v 3191  df-sbc 3422  df-csb 3519  df-dif 3562  df-un 3564  df-in 3566  df-ss 3573  df-pss 3575  df-nul 3897  df-if 4064  df-pw 4137  df-sn 4154  df-pr 4156  df-tp 4158  df-op 4160  df-uni 4408  df-int 4446  df-iun 4492  df-br 4619  df-opab 4679  df-mpt 4680  df-tr 4718  df-eprel 4990  df-id 4994  df-po 5000  df-so 5001  df-fr 5038  df-we 5040  df-xp 5085  df-rel 5086  df-cnv 5087  df-co 5088  df-dm 5089  df-rn 5090  df-res 5091  df-ima 5092  df-pred 5644  df-ord 5690  df-on 5691  df-lim 5692  df-suc 5693  df-iota 5815  df-fun 5854  df-fn 5855  df-f 5856  df-f1 5857  df-fo 5858  df-f1o 5859  df-fv 5860  df-om 7020  df-wrecs 7359  df-recs 7420  df-rdg 7458 This theorem is referenced by:  unblem3  8165  unblem4  8166
 Copyright terms: Public domain W3C validator