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

Theorem tfrcllemres 6259
 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
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 274 . . . . . . . . 9 ((𝜑𝑧𝑌) → Ord 𝑋)
3 simpr 109 . . . . . . . . . 10 ((𝜑𝑧𝑌) → 𝑧𝑌)
4 tfrcllemres.yx . . . . . . . . . . 11 (𝜑𝑌𝑋)
54adantr 274 . . . . . . . . . 10 ((𝜑𝑧𝑌) → 𝑌𝑋)
63, 5jca 304 . . . . . . . . 9 ((𝜑𝑧𝑌) → (𝑧𝑌𝑌𝑋))
7 ordtr1 4310 . . . . . . . . 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 6258 . . . . . . . 8 ((𝜑𝑧𝑋) → ∃𝑔(𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
158, 14syldan 280 . . . . . . 7 ((𝜑𝑧𝑌) → ∃𝑔(𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
1610ad2antrr 479 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Fun 𝐺)
171ad2antrr 479 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → Ord 𝑋)
18113adant1r 1209 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥𝑋𝑓:𝑥𝑆) → (𝐺𝑓) ∈ 𝑆)
19183adant1r 1209 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥𝑋𝑓:𝑥𝑆) → (𝐺𝑓) ∈ 𝑆)
204ad2antrr 479 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑌𝑋)
213adantr 274 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧𝑌)
2213adantlr 468 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
2322adantlr 468 . . . . . . . . 9 ((((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
24 simprl 520 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔:𝑧𝑆)
25 feq2 5256 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (𝑔:𝑥𝑆𝑔:𝑧𝑆))
26 raleq 2626 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → (∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦)) ↔ ∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
2725, 26anbi12d 464 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → ((𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))) ↔ (𝑔:𝑧𝑆 ∧ ∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦)))))
28 fveq2 5421 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑢 → (𝑔𝑦) = (𝑔𝑢))
29 reseq2 4814 . . . . . . . . . . . . . . . . 17 (𝑦 = 𝑢 → (𝑔𝑦) = (𝑔𝑢))
3029fveq2d 5425 . . . . . . . . . . . . . . . 16 (𝑦 = 𝑢 → (𝐺‘(𝑔𝑦)) = (𝐺‘(𝑔𝑢)))
3128, 30eqeq12d 2154 . . . . . . . . . . . . . . 15 (𝑦 = 𝑢 → ((𝑔𝑦) = (𝐺‘(𝑔𝑦)) ↔ (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
3231cbvralv 2654 . . . . . . . . . . . . . 14 (∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦)) ↔ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))
3332anbi2i 452 . . . . . . . . . . . . 13 ((𝑔:𝑧𝑆 ∧ ∀𝑦𝑧 (𝑔𝑦) = (𝐺‘(𝑔𝑦))) ↔ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
3427, 33syl6bb 195 . . . . . . . . . . . 12 (𝑥 = 𝑧 → ((𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))) ↔ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
3534rspcev 2789 . . . . . . . . . . 11 ((𝑧𝑋 ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
368, 35sylan 281 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
37 vex 2689 . . . . . . . . . . 11 𝑔 ∈ V
38 feq1 5255 . . . . . . . . . . . . 13 (𝑓 = 𝑔 → (𝑓:𝑥𝑆𝑔:𝑥𝑆))
39 fveq1 5420 . . . . . . . . . . . . . . 15 (𝑓 = 𝑔 → (𝑓𝑦) = (𝑔𝑦))
40 reseq1 4813 . . . . . . . . . . . . . . . 16 (𝑓 = 𝑔 → (𝑓𝑦) = (𝑔𝑦))
4140fveq2d 5425 . . . . . . . . . . . . . . 15 (𝑓 = 𝑔 → (𝐺‘(𝑓𝑦)) = (𝐺‘(𝑔𝑦)))
4239, 41eqeq12d 2154 . . . . . . . . . . . . . 14 (𝑓 = 𝑔 → ((𝑓𝑦) = (𝐺‘(𝑓𝑦)) ↔ (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
4342ralbidv 2437 . . . . . . . . . . . . 13 (𝑓 = 𝑔 → (∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)) ↔ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
4438, 43anbi12d 464 . . . . . . . . . . . 12 (𝑓 = 𝑔 → ((𝑓:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦))) ↔ (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦)))))
4544rexbidv 2438 . . . . . . . . . . 11 (𝑓 = 𝑔 → (∃𝑥𝑋 (𝑓:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦))) ↔ ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦)))))
4637, 45, 12elab2 2832 . . . . . . . . . 10 (𝑔𝐴 ↔ ∃𝑥𝑋 (𝑔:𝑥𝑆 ∧ ∀𝑦𝑥 (𝑔𝑦) = (𝐺‘(𝑔𝑦))))
4736, 46sylibr 133 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑔𝐴)
489, 16, 17, 19, 12, 20, 21, 23, 24, 47tfrcllemsucaccv 6251 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴)
49 vex 2689 . . . . . . . . . . 11 𝑧 ∈ V
5025imbi1d 230 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → ((𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆) ↔ (𝑔:𝑧𝑆 → (𝐺𝑔) ∈ 𝑆)))
51113expia 1183 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥𝑋) → (𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆))
5251alrimiv 1846 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝑋) → ∀𝑓(𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆))
53 fveq2 5421 . . . . . . . . . . . . . . . . . . . 20 (𝑓 = 𝑔 → (𝐺𝑓) = (𝐺𝑔))
5453eleq1d 2208 . . . . . . . . . . . . . . . . . . 19 (𝑓 = 𝑔 → ((𝐺𝑓) ∈ 𝑆 ↔ (𝐺𝑔) ∈ 𝑆))
5538, 54imbi12d 233 . . . . . . . . . . . . . . . . . 18 (𝑓 = 𝑔 → ((𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆) ↔ (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆)))
5655spv 1832 . . . . . . . . . . . . . . . . 17 (∀𝑓(𝑓:𝑥𝑆 → (𝐺𝑓) ∈ 𝑆) → (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
5752, 56syl 14 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑋) → (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
5857ralrimiva 2505 . . . . . . . . . . . . . . 15 (𝜑 → ∀𝑥𝑋 (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
5958adantr 274 . . . . . . . . . . . . . 14 ((𝜑𝑧𝑌) → ∀𝑥𝑋 (𝑔:𝑥𝑆 → (𝐺𝑔) ∈ 𝑆))
6050, 59, 8rspcdva 2794 . . . . . . . . . . . . 13 ((𝜑𝑧𝑌) → (𝑔:𝑧𝑆 → (𝐺𝑔) ∈ 𝑆))
6160imp 123 . . . . . . . . . . . 12 (((𝜑𝑧𝑌) ∧ 𝑔:𝑧𝑆) → (𝐺𝑔) ∈ 𝑆)
6224, 61syldan 280 . . . . . . . . . . 11 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝐺𝑔) ∈ 𝑆)
63 opexg 4150 . . . . . . . . . . 11 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ 𝑆) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
6449, 62, 63sylancr 410 . . . . . . . . . 10 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ V)
65 snidg 3554 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ V → ⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩})
66 elun2 3244 . . . . . . . . . 10 (⟨𝑧, (𝐺𝑔)⟩ ∈ {⟨𝑧, (𝐺𝑔)⟩} → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
6764, 65, 663syl 17 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
68 opeldmg 4744 . . . . . . . . . 10 ((𝑧 ∈ V ∧ (𝐺𝑔) ∈ 𝑆) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
6949, 62, 68sylancr 410 . . . . . . . . 9 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (⟨𝑧, (𝐺𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
7067, 69mpd 13 . . . . . . . 8 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
71 dmeq 4739 . . . . . . . . . 10 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → dom = dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}))
7271eleq2d 2209 . . . . . . . . 9 ( = (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) → (𝑧 ∈ dom 𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})))
7372rspcev 2789 . . . . . . . 8 (((𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩}) ∈ 𝐴𝑧 ∈ dom (𝑔 ∪ {⟨𝑧, (𝐺𝑔)⟩})) → ∃𝐴 𝑧 ∈ dom )
7448, 70, 73syl2anc 408 . . . . . . 7 (((𝜑𝑧𝑌) ∧ (𝑔:𝑧𝑆 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ∃𝐴 𝑧 ∈ dom )
7515, 74exlimddv 1870 . . . . . 6 ((𝜑𝑧𝑌) → ∃𝐴 𝑧 ∈ dom )
76 eliun 3817 . . . . . 6 (𝑧 𝐴 dom ↔ ∃𝐴 𝑧 ∈ dom )
7775, 76sylibr 133 . . . . 5 ((𝜑𝑧𝑌) → 𝑧 𝐴 dom )
7877ex 114 . . . 4 (𝜑 → (𝑧𝑌𝑧 𝐴 dom ))
7978ssrdv 3103 . . 3 (𝜑𝑌 𝐴 dom )
80 dmuni 4749 . . . 4 dom 𝐴 = 𝐴 dom
8112, 1tfrcllemssrecs 6249 . . . . 5 (𝜑 𝐴 ⊆ recs(𝐺))
82 dmss 4738 . . . . 5 ( 𝐴 ⊆ recs(𝐺) → dom 𝐴 ⊆ dom recs(𝐺))
8381, 82syl 14 . . . 4 (𝜑 → dom 𝐴 ⊆ dom recs(𝐺))
8480, 83eqsstrrid 3144 . . 3 (𝜑 𝐴 dom ⊆ dom recs(𝐺))
8579, 84sstrd 3107 . 2 (𝜑𝑌 ⊆ dom recs(𝐺))
869dmeqi 4740 . 2 dom 𝐹 = dom recs(𝐺)
8785, 86sseqtrrdi 3146 1 (𝜑𝑌 ⊆ dom 𝐹)
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 103   ∧ 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  ⟶wf 5119  ‘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:  tfrcldm  6260
 Copyright terms: Public domain W3C validator