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

Theorem tfr1onlemres 6246
Description: Lemma for tfr1on 6247. 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 4310 . . . . . . . . 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 6245 . . . . . . . 8 ((𝜑𝑧𝑋) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
158, 14syldan 280 . . . . . . 7 ((𝜑𝑧𝑌) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
1610ad2antrr 479 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Fun 𝐺)
171ad2antrr 479 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Ord 𝑋)
18113adant1r 1209 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
19183adant1r 1209 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
204ad2antrr 479 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑌𝑋)
213adantr 274 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧𝑌)
2213adantlr 468 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
2322adantlr 468 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
24 simprl 520 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔 Fn 𝑧)
25 fneq2 5212 . . . . . . . . . . . . 13 (𝑤 = 𝑧 → (𝑔 Fn 𝑤𝑔 Fn 𝑧))
26 raleq 2626 . . . . . . . . . . . . 13 (𝑤 = 𝑧 → (∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)) ↔ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
2725, 26anbi12d 464 . . . . . . . . . . . 12 (𝑤 = 𝑧 → ((𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
2827rspcev 2789 . . . . . . . . . . 11 ((𝑧𝑋 ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
298, 28sylan 281 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
30 vex 2689 . . . . . . . . . . 11 𝑔 ∈ V
3112tfr1onlem3ag 6234 . . . . . . . . . . 11 (𝑔 ∈ V → (𝑔𝐴 ↔ ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
3230, 31ax-mp 5 . . . . . . . . . 10 (𝑔𝐴 ↔ ∃𝑤𝑋 (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
3329, 32sylibr 133 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔𝐴)
349, 16, 17, 19, 12, 20, 21, 23, 24, 33tfr1onlemsucaccv 6238 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴)
35 vex 2689 . . . . . . . . . . 11 𝑧 ∈ V
36 fneq2 5212 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (𝑔 Fn 𝑥𝑔 Fn 𝑧))
3736imbi1d 230 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → ((𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V) ↔ (𝑔 Fn 𝑧 → (𝐺𝑔) ∈ V)))
38113expia 1183 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥𝑋) → (𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V))
3938alrimiv 1846 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝑋) → ∀𝑓(𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V))
40 fneq1 5211 . . . . . . . . . . . . . . . . . . 19 (𝑓 = 𝑔 → (𝑓 Fn 𝑥𝑔 Fn 𝑥))
41 fveq2 5421 . . . . . . . . . . . . . . . . . . . 20 (𝑓 = 𝑔 → (𝐺𝑓) = (𝐺𝑔))
4241eleq1d 2208 . . . . . . . . . . . . . . . . . . 19 (𝑓 = 𝑔 → ((𝐺𝑓) ∈ V ↔ (𝐺𝑔) ∈ V))
4340, 42imbi12d 233 . . . . . . . . . . . . . . . . . 18 (𝑓 = 𝑔 → ((𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V) ↔ (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V)))
4443spv 1832 . . . . . . . . . . . . . . . . 17 (∀𝑓(𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V) → (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4539, 44syl 14 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑋) → (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4645ralrimiva 2505 . . . . . . . . . . . . . . 15 (𝜑 → ∀𝑥𝑋 (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4746adantr 274 . . . . . . . . . . . . . 14 ((𝜑𝑧𝑌) → ∀𝑥𝑋 (𝑔 Fn 𝑥 → (𝐺𝑔) ∈ V))
4837, 47, 8rspcdva 2794 . . . . . . . . . . . . 13 ((𝜑𝑧𝑌) → (𝑔 Fn 𝑧 → (𝐺𝑔) ∈ V))
4948imp 123 . . . . . . . . . . . 12 (((𝜑𝑧𝑌) ∧ 𝑔 Fn 𝑧) → (𝐺𝑔) ∈ V)
5024, 49syldan 280 . . . . . . . . . . 11 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝐺𝑔) ∈ V)
51 opexg 4150 . . . . . . . . . . 11 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ V) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
5235, 50, 51sylancr 410 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
53 snidg 3554 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ V → ⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩})
54 elun2 3244 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩} → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
5552, 53, 543syl 17 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
56 opeldmg 4744 . . . . . . . . . 10 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ V) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
5735, 50, 56sylancr 410 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
5855, 57mpd 13 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
59 dmeq 4739 . . . . . . . . . 10 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → dom = dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
6059eleq2d 2209 . . . . . . . . 9 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → (𝑧 ∈ dom 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
6160rspcev 2789 . . . . . . . 8 (((𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})) → ∃𝐴 𝑧 ∈ dom )
6234, 58, 61syl2anc 408 . . . . . . 7 (((𝜑𝑧𝑌) ∧ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝐴 𝑧 ∈ dom )
6315, 62exlimddv 1870 . . . . . 6 ((𝜑𝑧𝑌) → ∃𝐴 𝑧 ∈ dom )
64 eliun 3817 . . . . . 6 (𝑧 𝐴 dom ↔ ∃𝐴 𝑧 ∈ dom )
6563, 64sylibr 133 . . . . 5 ((𝜑𝑧𝑌) → 𝑧 𝐴 dom )
6665ex 114 . . . 4 (𝜑 → (𝑧𝑌𝑧 𝐴 dom ))
6766ssrdv 3103 . . 3 (𝜑𝑌 𝐴 dom )
68 dmuni 4749 . . . 4 dom 𝐴 = 𝐴 dom
6912, 1tfr1onlemssrecs 6236 . . . . 5 (𝜑 𝐴 ⊆ recs(𝐺))
70 dmss 4738 . . . . 5 ( 𝐴 ⊆ recs(𝐺) → dom 𝐴 ⊆ dom recs(𝐺))
7169, 70syl 14 . . . 4 (𝜑 → dom 𝐴 ⊆ dom recs(𝐺))
7268, 71eqsstrrid 3144 . . 3 (𝜑 𝐴 dom ⊆ dom recs(𝐺))
7367, 72sstrd 3107 . 2 (𝜑𝑌 ⊆ dom recs(𝐺))
749dmeqi 4740 . 2 dom 𝐹 = dom recs(𝐺)
7573, 74sseqtrrdi 3146 1 (𝜑𝑌 ⊆ dom 𝐹)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  wb 104  w3a 962  wal 1329   = wceq 1331  wex 1468  wcel 1480  {cab 2125  wral 2416  wrex 2417  Vcvv 2686  cun 3069  wss 3071  {csn 3527  cop 3530   cuni 3736   ciun 3813  Ord word 4284  suc csuc 4287  dom cdm 4539  cres 4541  Fun wfun 5117   Fn wfn 5118  cfv 5123  recscrecs 6201
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 603  ax-in2 604  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-coll 4043  ax-sep 4046  ax-pow 4098  ax-pr 4131  ax-un 4355  ax-setind 4452
This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-fal 1337  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ne 2309  df-ral 2421  df-rex 2422  df-reu 2423  df-rab 2425  df-v 2688  df-sbc 2910  df-csb 3004  df-dif 3073  df-un 3075  df-in 3077  df-ss 3084  df-nul 3364  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-iun 3815  df-br 3930  df-opab 3990  df-mpt 3991  df-tr 4027  df-id 4215  df-iord 4288  df-on 4290  df-suc 4293  df-xp 4545  df-rel 4546  df-cnv 4547  df-co 4548  df-dm 4549  df-rn 4550  df-res 4551  df-ima 4552  df-iota 5088  df-fun 5125  df-fn 5126  df-f 5127  df-f1 5128  df-fo 5129  df-f1o 5130  df-fv 5131  df-recs 6202
This theorem is referenced by:  tfr1on  6247
  Copyright terms: Public domain W3C validator