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

Theorem tfrcllemres 6388
Description: Lemma for tfr1on 6376. 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
tfrcl.f 𝐹 = recs(𝐺)
tfrcl.g (𝜑 → Fun 𝐺)
tfrcl.x (𝜑 → Ord 𝑋)
tfrcl.ex ((𝜑𝑥𝑋𝑓:𝑥𝑆) → (𝐺𝑓) ∈ 𝑆)
tfrcllemsucfn.1 𝐴 = {𝑓 ∣ ∃𝑥𝑋 (𝑓:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)))}
tfrcllemres.u ((𝜑𝑥 𝑋) → suc 𝑥𝑋)
tfrcllemres.yx (𝜑𝑌𝑋)
Assertion
Ref Expression
tfrcllemres (𝜑𝑌 ⊆ dom 𝐹)
Distinct variable groups:   𝑥,𝐴,𝑦   𝑓,𝐺,𝑥,𝑦   𝑆,𝑓,𝑥,𝑦   𝑓,𝑋,𝑥,𝑦   𝑓,𝑌,𝑥,𝑦   𝜑,𝑓,𝑥,𝑦
Allowed substitution hints:   𝐴(𝑓)   𝐹(𝑥,𝑦,𝑓)

Proof of Theorem tfrcllemres
Dummy variables 𝑔 𝑧 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tfrcl.x . . . . . . . . . 10 (𝜑 → Ord 𝑋)
21adantr 276 . . . . . . . . 9 ((𝜑𝑧𝑌) → Ord 𝑋)
3 simpr 110 . . . . . . . . . 10 ((𝜑𝑧𝑌) → 𝑧𝑌)
4 tfrcllemres.yx . . . . . . . . . . 11 (𝜑𝑌𝑋)
54adantr 276 . . . . . . . . . 10 ((𝜑𝑧𝑌) → 𝑌𝑋)
63, 5jca 306 . . . . . . . . 9 ((𝜑𝑧𝑌) → (𝑧𝑌𝑌𝑋))
7 ordtr1 4406 . . . . . . . . 9 (Ord 𝑋 → ((𝑧𝑌𝑌𝑋) → 𝑧𝑋))
82, 6, 7sylc 62 . . . . . . . 8 ((𝜑𝑧𝑌) → 𝑧𝑋)
9 tfrcl.f . . . . . . . . 9 𝐹 = recs(𝐺)
10 tfrcl.g . . . . . . . . 9 (𝜑 → Fun 𝐺)
11 tfrcl.ex . . . . . . . . 9 ((𝜑𝑥𝑋𝑓:𝑥𝑆) → (𝐺𝑓) ∈ 𝑆)
12 tfrcllemsucfn.1 . . . . . . . . 9 𝐴 = {𝑓 ∣ ∃𝑥𝑋 (𝑓:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)))}
13 tfrcllemres.u . . . . . . . . 9 ((𝜑𝑥 𝑋) → suc 𝑥𝑋)
149, 10, 1, 11, 12, 13tfrcllemaccex 6387 . . . . . . . 8 ((𝜑𝑧𝑋) → ∃𝑔(𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
158, 14syldan 282 . . . . . . 7 ((𝜑𝑧𝑌) → ∃𝑔(𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
1610ad2antrr 488 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Fun 𝐺)
171ad2antrr 488 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Ord 𝑋)
18113adant1r 1233 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥𝑋𝑓:𝑥𝑆) → (𝐺𝑓) ∈ 𝑆)
19183adant1r 1233 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥𝑋𝑓:𝑥𝑆) → (𝐺𝑓) ∈ 𝑆)
204ad2antrr 488 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑌𝑋)
213adantr 276 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧𝑌)
2213adantlr 477 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
2322adantlr 477 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
24 simprl 529 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔:𝑧𝑆)
25 feq2 5368 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (𝑔:𝑥𝑆𝑔:𝑧𝑆))
26 raleq 2686 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦)) ↔ ∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
2725, 26anbi12d 473 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → ((𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))) ↔ (𝑔:𝑧𝑆 ∧ ∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦)))))
28 fveq2 5534 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑢 → (𝑔𝑦) = (𝑔𝑢))
29 reseq2 4920 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑢 → (𝑔𝑦) = (𝑔𝑢))
3029fveq2d 5538 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑢 → (𝐺‘(𝑔𝑦)) = (𝐺‘(𝑔𝑢)))
3128, 30eqeq12d 2204 . . . . . . . . . . . . . . 15 (𝑦 = 𝑢 → ((𝑔𝑦) = (𝐺‘(𝑔𝑦)) ↔ (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
3231cbvralv 2718 . . . . . . . . . . . . . 14 (∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦)) ↔ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))
3332anbi2i 457 . . . . . . . . . . . . 13 ((𝑔:𝑧𝑆 ∧ ∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦))) ↔ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
3427, 33bitrdi 196 . . . . . . . . . . . 12 (𝑥 = 𝑧 → ((𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))) ↔ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
3534rspcev 2856 . . . . . . . . . . 11 ((𝑧𝑋 ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
368, 35sylan 283 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
37 vex 2755 . . . . . . . . . . 11 𝑔 ∈ V
38 feq1 5367 . . . . . . . . . . . . 13 (𝑓 = 𝑔 → (𝑓:𝑥𝑆𝑔:𝑥𝑆))
39 fveq1 5533 . . . . . . . . . . . . . . 15 (𝑓 = 𝑔 → (𝑓𝑦) = (𝑔𝑦))
40 reseq1 4919 . . . . . . . . . . . . . . . 16 (𝑓 = 𝑔 → (𝑓𝑦) = (𝑔𝑦))
4140fveq2d 5538 . . . . . . . . . . . . . . 15 (𝑓 = 𝑔 → (𝐺‘(𝑓𝑦)) = (𝐺‘(𝑔𝑦)))
4239, 41eqeq12d 2204 . . . . . . . . . . . . . 14 (𝑓 = 𝑔 → ((𝑓𝑦) = (𝐺‘(𝑓𝑦)) ↔ (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
4342ralbidv 2490 . . . . . . . . . . . . 13 (𝑓 = 𝑔 → (∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)) ↔ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
4438, 43anbi12d 473 . . . . . . . . . . . 12 (𝑓 = 𝑔 → ((𝑓:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦))) ↔ (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦)))))
4544rexbidv 2491 . . . . . . . . . . 11 (𝑓 = 𝑔 → (∃𝑥𝑋 (𝑓:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦))) ↔ ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦)))))
4637, 45, 12elab2 2900 . . . . . . . . . 10 (𝑔𝐴 ↔ ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
4736, 46sylibr 134 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔𝐴)
489, 16, 17, 19, 12, 20, 21, 23, 24, 47tfrcllemsucaccv 6380 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴)
49 vex 2755 . . . . . . . . . . 11 𝑧 ∈ V
5025imbi1d 231 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → ((𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆) ↔ (𝑔:𝑧𝑆 → (𝐺𝑔) ∈ 𝑆)))
51113expia 1207 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥𝑋) → (𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆))
5251alrimiv 1885 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝑋) → ∀𝑓(𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆))
53 fveq2 5534 . . . . . . . . . . . . . . . . . . . 20 (𝑓 = 𝑔 → (𝐺𝑓) = (𝐺𝑔))
5453eleq1d 2258 . . . . . . . . . . . . . . . . . . 19 (𝑓 = 𝑔 → ((𝐺𝑓) ∈ 𝑆 ↔ (𝐺𝑔) ∈ 𝑆))
5538, 54imbi12d 234 . . . . . . . . . . . . . . . . . 18 (𝑓 = 𝑔 → ((𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆) ↔ (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆)))
5655spv 1871 . . . . . . . . . . . . . . . . 17 (∀𝑓(𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆) → (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
5752, 56syl 14 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑋) → (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
5857ralrimiva 2563 . . . . . . . . . . . . . . 15 (𝜑 → ∀𝑥𝑋 (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
5958adantr 276 . . . . . . . . . . . . . 14 ((𝜑𝑧𝑌) → ∀𝑥𝑋 (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
6050, 59, 8rspcdva 2861 . . . . . . . . . . . . 13 ((𝜑𝑧𝑌) → (𝑔:𝑧𝑆 → (𝐺𝑔) ∈ 𝑆))
6160imp 124 . . . . . . . . . . . 12 (((𝜑𝑧𝑌) ∧ 𝑔:𝑧𝑆) → (𝐺𝑔) ∈ 𝑆)
6224, 61syldan 282 . . . . . . . . . . 11 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝐺𝑔) ∈ 𝑆)
63 opexg 4246 . . . . . . . . . . 11 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ 𝑆) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
6449, 62, 63sylancr 414 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
65 snidg 3636 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ V → ⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩})
66 elun2 3318 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩} → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
6764, 65, 663syl 17 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
68 opeldmg 4850 . . . . . . . . . 10 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ 𝑆) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
6949, 62, 68sylancr 414 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
7067, 69mpd 13 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
71 dmeq 4845 . . . . . . . . . 10 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → dom = dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
7271eleq2d 2259 . . . . . . . . 9 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → (𝑧 ∈ dom 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
7372rspcev 2856 . . . . . . . 8 (((𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})) → ∃𝐴 𝑧 ∈ dom )
7448, 70, 73syl2anc 411 . . . . . . 7 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝐴 𝑧 ∈ dom )
7515, 74exlimddv 1910 . . . . . 6 ((𝜑𝑧𝑌) → ∃𝐴 𝑧 ∈ dom )
76 eliun 3905 . . . . . 6 (𝑧 𝐴 dom ↔ ∃𝐴 𝑧 ∈ dom )
7775, 76sylibr 134 . . . . 5 ((𝜑𝑧𝑌) → 𝑧 𝐴 dom )
7877ex 115 . . . 4 (𝜑 → (𝑧𝑌𝑧 𝐴 dom ))
7978ssrdv 3176 . . 3 (𝜑𝑌 𝐴 dom )
80 dmuni 4855 . . . 4 dom 𝐴 = 𝐴 dom
8112, 1tfrcllemssrecs 6378 . . . . 5 (𝜑 𝐴 ⊆ recs(𝐺))
82 dmss 4844 . . . . 5 ( 𝐴 ⊆ recs(𝐺) → dom 𝐴 ⊆ dom recs(𝐺))
8381, 82syl 14 . . . 4 (𝜑 → dom 𝐴 ⊆ dom recs(𝐺))
8480, 83eqsstrrid 3217 . . 3 (𝜑 𝐴 dom ⊆ dom recs(𝐺))
8579, 84sstrd 3180 . 2 (𝜑𝑌 ⊆ dom recs(𝐺))
869dmeqi 4846 . 2 dom 𝐹 = dom recs(𝐺)
8785, 86sseqtrrdi 3219 1 (𝜑𝑌 ⊆ dom 𝐹)
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  w3a 980  wal 1362   = wceq 1364  wex 1503  wcel 2160  {cab 2175  wral 2468  wrex 2469  Vcvv 2752  cun 3142  wss 3144  {csn 3607  cop 3610   cuni 3824   ciun 3901  Ord word 4380  suc csuc 4383  dom cdm 4644  cres 4646  Fun wfun 5229  wf 5231  cfv 5235  recscrecs 6330
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2162  ax-14 2163  ax-ext 2171  ax-coll 4133  ax-sep 4136  ax-pow 4192  ax-pr 4227  ax-un 4451  ax-setind 4554
This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2041  df-mo 2042  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-ne 2361  df-ral 2473  df-rex 2474  df-reu 2475  df-rab 2477  df-v 2754  df-sbc 2978  df-csb 3073  df-dif 3146  df-un 3148  df-in 3150  df-ss 3157  df-nul 3438  df-pw 3592  df-sn 3613  df-pr 3614  df-op 3616  df-uni 3825  df-iun 3903  df-br 4019  df-opab 4080  df-mpt 4081  df-tr 4117  df-id 4311  df-iord 4384  df-on 4386  df-suc 4389  df-xp 4650  df-rel 4651  df-cnv 4652  df-co 4653  df-dm 4654  df-rn 4655  df-res 4656  df-ima 4657  df-iota 5196  df-fun 5237  df-fn 5238  df-f 5239  df-f1 5240  df-fo 5241  df-f1o 5242  df-fv 5243  df-recs 6331
This theorem is referenced by:  tfrcldm  6389
  Copyright terms: Public domain W3C validator