ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  tfr1onlemres GIF version

Theorem tfr1onlemres 6317
Description: Lemma for tfr1on 6318. Recursion is defined on an ordinal if the characteristic function is defined up to a suitable point. (Contributed by Jim Kingdon, 18-Mar-2022.)
Hypotheses
Ref Expression
tfr1on.f 𝐹 = recs(𝐺)
tfr1on.g (𝜑 → Fun 𝐺)
tfr1on.x (𝜑 → Ord 𝑋)
tfr1on.ex ((𝜑𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
tfr1onlemsucfn.1 𝐴 = {𝑓 ∣ ∃𝑥𝑋 (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)))}
tfr1onlemres.u ((𝜑𝑥 𝑋) → suc 𝑥𝑋)
tfr1onlemres.yx (𝜑𝑌𝑋)
Assertion
Ref Expression
tfr1onlemres (𝜑𝑌 ⊆ dom 𝐹)
Distinct variable groups:   𝑥,𝐴   𝑓,𝐺,𝑥,𝑦   𝑓,𝑋,𝑥   𝑓,𝑌,𝑥   𝜑,𝑓,𝑥
Allowed substitution hints:   𝜑(𝑦)   𝐴(𝑦,𝑓)   𝐹(𝑥,𝑦,𝑓)   𝑋(𝑦)   𝑌(𝑦)

Proof of Theorem tfr1onlemres
Dummy variables 𝑔 𝑧 𝑢 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tfr1on.x . . . . . . . . . 10 (𝜑 → Ord 𝑋)
21adantr 274 . . . . . . . . 9 ((𝜑𝑧𝑌) → Ord 𝑋)
3 simpr 109 . . . . . . . . . 10 ((𝜑𝑧𝑌) → 𝑧𝑌)
4 tfr1onlemres.yx . . . . . . . . . . 11 (𝜑𝑌𝑋)
54adantr 274 . . . . . . . . . 10 ((𝜑𝑧𝑌) → 𝑌𝑋)
63, 5jca 304 . . . . . . . . 9 ((𝜑𝑧𝑌) → (𝑧𝑌𝑌𝑋))
7 ordtr1 4366 . . . . . . . . 9 (Ord 𝑋 → ((𝑧𝑌𝑌𝑋) → 𝑧𝑋))
82, 6, 7sylc 62 . . . . . . . 8 ((𝜑𝑧𝑌) → 𝑧𝑋)
9 tfr1on.f . . . . . . . . 9 𝐹 = recs(𝐺)
10 tfr1on.g . . . . . . . . 9 (𝜑 → Fun 𝐺)
11 tfr1on.ex . . . . . . . . 9 ((𝜑𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
12 tfr1onlemsucfn.1 . . . . . . . . 9 𝐴 = {𝑓 ∣ ∃𝑥𝑋 (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)))}
13 tfr1onlemres.u . . . . . . . . 9 ((𝜑𝑥 𝑋) → suc 𝑥𝑋)
149, 10, 1, 11, 12, 13tfr1onlemaccex 6316 . . . . . . . 8 ((𝜑𝑧𝑋) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
158, 14syldan 280 . . . . . . 7 ((𝜑𝑧𝑌) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
1610ad2antrr 480 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Fun 𝐺)
171ad2antrr 480 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Ord 𝑋)
18113adant1r 1221 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
19183adant1r 1221 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
204ad2antrr 480 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑌𝑋)
213adantr 274 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧𝑌)
2213adantlr 469 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
2322adantlr 469 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
24 simprl 521 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔 Fn 𝑧)
25 fneq2 5277 . . . . . . . . . . . . 13 (𝑤 = 𝑧 → (𝑔 Fn 𝑤𝑔 Fn 𝑧))
26 raleq 2661 . . . . . . . . . . . . 13 (𝑤 = 𝑧 → (∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)) ↔ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
2725, 26anbi12d 465 . . . . . . . . . . . 12 (𝑤 = 𝑧 → ((𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
2827rspcev 2830 . . . . . . . . . . 11 ((𝑧𝑋 ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
298, 28sylan 281 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
30 vex 2729 . . . . . . . . . . 11 𝑔 ∈ V
3112tfr1onlem3ag 6305 . . . . . . . . . . 11 (𝑔 ∈ V → (𝑔𝐴 ↔ ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
3230, 31ax-mp 5 . . . . . . . . . 10 (𝑔𝐴 ↔ ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
3329, 32sylibr 133 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔𝐴)
349, 16, 17, 19, 12, 20, 21, 23, 24, 33tfr1onlemsucaccv 6309 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴)
35 vex 2729 . . . . . . . . . . 11 𝑧 ∈ V
36 fneq2 5277 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (𝑔 Fn 𝑥𝑔 Fn 𝑧))
3736imbi1d 230 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → ((𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V) ↔ (𝑔 Fn 𝑧 → (𝐺𝑔) ∈ V)))
38113expia 1195 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥𝑋) → (𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V))
3938alrimiv 1862 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝑋) → ∀𝑓(𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V))
40 fneq1 5276 . . . . . . . . . . . . . . . . . . 19 (𝑓 = 𝑔 → (𝑓 Fn 𝑥𝑔 Fn 𝑥))
41 fveq2 5486 . . . . . . . . . . . . . . . . . . . 20 (𝑓 = 𝑔 → (𝐺𝑓) = (𝐺𝑔))
4241eleq1d 2235 . . . . . . . . . . . . . . . . . . 19 (𝑓 = 𝑔 → ((𝐺𝑓) ∈ V ↔ (𝐺𝑔) ∈ V))
4340, 42imbi12d 233 . . . . . . . . . . . . . . . . . 18 (𝑓 = 𝑔 → ((𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V) ↔ (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V)))
4443spv 1848 . . . . . . . . . . . . . . . . 17 (∀𝑓(𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V) → (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4539, 44syl 14 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑋) → (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4645ralrimiva 2539 . . . . . . . . . . . . . . 15 (𝜑 → ∀𝑥𝑋 (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4746adantr 274 . . . . . . . . . . . . . 14 ((𝜑𝑧𝑌) → ∀𝑥𝑋 (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4837, 47, 8rspcdva 2835 . . . . . . . . . . . . 13 ((𝜑𝑧𝑌) → (𝑔 Fn 𝑧 → (𝐺𝑔) ∈ V))
4948imp 123 . . . . . . . . . . . 12 (((𝜑𝑧𝑌) ∧ 𝑔 Fn 𝑧) → (𝐺𝑔) ∈ V)
5024, 49syldan 280 . . . . . . . . . . 11 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝐺𝑔) ∈ V)
51 opexg 4206 . . . . . . . . . . 11 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ V) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
5235, 50, 51sylancr 411 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
53 snidg 3605 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ V → ⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩})
54 elun2 3290 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩} → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
5552, 53, 543syl 17 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
56 opeldmg 4809 . . . . . . . . . 10 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ V) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
5735, 50, 56sylancr 411 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
5855, 57mpd 13 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
59 dmeq 4804 . . . . . . . . . 10 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → dom = dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
6059eleq2d 2236 . . . . . . . . 9 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → (𝑧 ∈ dom 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
6160rspcev 2830 . . . . . . . 8 (((𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})) → ∃𝐴 𝑧 ∈ dom )
6234, 58, 61syl2anc 409 . . . . . . 7 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝐴 𝑧 ∈ dom )
6315, 62exlimddv 1886 . . . . . 6 ((𝜑𝑧𝑌) → ∃𝐴 𝑧 ∈ dom )
64 eliun 3870 . . . . . 6 (𝑧 𝐴 dom ↔ ∃𝐴 𝑧 ∈ dom )
6563, 64sylibr 133 . . . . 5 ((𝜑𝑧𝑌) → 𝑧 𝐴 dom )
6665ex 114 . . . 4 (𝜑 → (𝑧𝑌𝑧 𝐴 dom ))
6766ssrdv 3148 . . 3 (𝜑𝑌 𝐴 dom )
68 dmuni 4814 . . . 4 dom 𝐴 = 𝐴 dom
6912, 1tfr1onlemssrecs 6307 . . . . 5 (𝜑 𝐴 ⊆ recs(𝐺))
70 dmss 4803 . . . . 5 ( 𝐴 ⊆ recs(𝐺) → dom 𝐴 ⊆ dom recs(𝐺))
7169, 70syl 14 . . . 4 (𝜑 → dom 𝐴 ⊆ dom recs(𝐺))
7268, 71eqsstrrid 3189 . . 3 (𝜑 𝐴 dom ⊆ dom recs(𝐺))
7367, 72sstrd 3152 . 2 (𝜑𝑌 ⊆ dom recs(𝐺))
749dmeqi 4805 . 2 dom 𝐹 = dom recs(𝐺)
7573, 74sseqtrrdi 3191 1 (𝜑𝑌 ⊆ dom 𝐹)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wb 104  w3a 968  wal 1341   = wceq 1343  wex 1480  wcel 2136  {cab 2151  wral 2444  wrex 2445  Vcvv 2726  cun 3114  wss 3116  {csn 3576  cop 3579   cuni 3789   ciun 3866  Ord word 4340  suc csuc 4343  dom cdm 4604  cres 4606  Fun wfun 5182   Fn wfn 5183  cfv 5188  recscrecs 6272
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 604  ax-in2 605  ax-io 699  ax-5 1435  ax-7 1436  ax-gen 1437  ax-ie1 1481  ax-ie2 1482  ax-8 1492  ax-10 1493  ax-11 1494  ax-i12 1495  ax-bndl 1497  ax-4 1498  ax-17 1514  ax-i9 1518  ax-ial 1522  ax-i5r 1523  ax-13 2138  ax-14 2139  ax-ext 2147  ax-coll 4097  ax-sep 4100  ax-pow 4153  ax-pr 4187  ax-un 4411  ax-setind 4514
This theorem depends on definitions:  df-bi 116  df-3an 970  df-tru 1346  df-fal 1349  df-nf 1449  df-sb 1751  df-eu 2017  df-mo 2018  df-clab 2152  df-cleq 2158  df-clel 2161  df-nfc 2297  df-ne 2337  df-ral 2449  df-rex 2450  df-reu 2451  df-rab 2453  df-v 2728  df-sbc 2952  df-csb 3046  df-dif 3118  df-un 3120  df-in 3122  df-ss 3129  df-nul 3410  df-pw 3561  df-sn 3582  df-pr 3583  df-op 3585  df-uni 3790  df-iun 3868  df-br 3983  df-opab 4044  df-mpt 4045  df-tr 4081  df-id 4271  df-iord 4344  df-on 4346  df-suc 4349  df-xp 4610  df-rel 4611  df-cnv 4612  df-co 4613  df-dm 4614  df-rn 4615  df-res 4616  df-ima 4617  df-iota 5153  df-fun 5190  df-fn 5191  df-f 5192  df-f1 5193  df-fo 5194  df-f1o 5195  df-fv 5196  df-recs 6273
This theorem is referenced by:  tfr1on  6318
  Copyright terms: Public domain W3C validator