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

Theorem tfr1onlemaccex 6592
Description: We can define an acceptable function on any element of 𝑋.

As with many of the transfinite recursion theorems, we have hypotheses that state that 𝐹 is a function and that it is defined up to 𝑋. (Contributed by Jim Kingdon, 16-Mar-2022.)

Hypotheses
Ref Expression
tfr1on.f 𝐹 = recs(𝐺)
tfr1on.g (𝜑 → Fun 𝐺)
tfr1on.x (𝜑 → Ord 𝑋)
tfr1on.ex ((𝜑𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
tfr1onlemsucfn.1 𝐴 = {𝑓 ∣ ∃𝑥𝑋 (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)))}
tfr1onlemaccex.u ((𝜑𝑥 𝑋) → suc 𝑥𝑋)
Assertion
Ref Expression
tfr1onlemaccex ((𝜑𝐶𝑋) → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
Distinct variable groups:   𝑢,𝐴,𝑥   𝐶,𝑔,𝑢   𝑔,𝐺,𝑢,𝑥   𝑓,𝐺,𝑦,𝑥   𝑥,𝑋,𝑓   𝜑,𝑥   𝑦,𝑔   𝜑,𝑓
Allowed substitution hints:   𝜑(𝑦,𝑢,𝑔)   𝐴(𝑦,𝑓,𝑔)   𝐶(𝑥,𝑦,𝑓)   𝐹(𝑥,𝑦,𝑢,𝑓,𝑔)   𝑋(𝑦,𝑢,𝑔)

Proof of Theorem tfr1onlemaccex
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑟 𝑠 𝑡 𝑧 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 tfr1on.x . . 3 (𝜑 → Ord 𝑋)
2 ordelon 4509 . . 3 ((Ord 𝑋𝐶𝑋) → 𝐶 ∈ On)
31, 2sylan 283 . 2 ((𝜑𝐶𝑋) → 𝐶 ∈ On)
4 eleq1 2297 . . . . 5 (𝑧 = 𝑤 → (𝑧𝑋𝑤𝑋))
54anbi2d 464 . . . 4 (𝑧 = 𝑤 → ((𝜑𝑧𝑋) ↔ (𝜑𝑤𝑋)))
6 fneq2 5450 . . . . . 6 (𝑧 = 𝑤 → (𝑔 Fn 𝑧𝑔 Fn 𝑤))
7 raleq 2743 . . . . . 6 (𝑧 = 𝑤 → (∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)) ↔ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
86, 7anbi12d 473 . . . . 5 (𝑧 = 𝑤 → ((𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ (𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
98exbidv 1874 . . . 4 (𝑧 = 𝑤 → (∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
105, 9imbi12d 234 . . 3 (𝑧 = 𝑤 → (((𝜑𝑧𝑋) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ↔ ((𝜑𝑤𝑋) → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
11 eleq1 2297 . . . . 5 (𝑧 = 𝐶 → (𝑧𝑋𝐶𝑋))
1211anbi2d 464 . . . 4 (𝑧 = 𝐶 → ((𝜑𝑧𝑋) ↔ (𝜑𝐶𝑋)))
13 fneq2 5450 . . . . . 6 (𝑧 = 𝐶 → (𝑔 Fn 𝑧𝑔 Fn 𝐶))
14 raleq 2743 . . . . . 6 (𝑧 = 𝐶 → (∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)) ↔ ∀𝑢𝐶 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
1513, 14anbi12d 473 . . . . 5 (𝑧 = 𝐶 → ((𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ (𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
1615exbidv 1874 . . . 4 (𝑧 = 𝐶 → (∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
1712, 16imbi12d 234 . . 3 (𝑧 = 𝐶 → (((𝜑𝑧𝑋) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ↔ ((𝜑𝐶𝑋) → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
18 tfr1on.f . . . . . . . . 9 𝐹 = recs(𝐺)
19 tfr1on.g . . . . . . . . . 10 (𝜑 → Fun 𝐺)
2019ad3antrrr 492 . . . . . . . . 9 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) → Fun 𝐺)
211ad3antrrr 492 . . . . . . . . 9 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) → Ord 𝑋)
22 tfr1on.ex . . . . . . . . . . . . . . . . 17 ((𝜑𝑥𝑋𝑓 Fn 𝑥) → (𝐺𝑓) ∈ V)
23223expia 1232 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝑋) → (𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V))
2423alrimiv 1923 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝑋) → ∀𝑓(𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V))
25 fneq1 5449 . . . . . . . . . . . . . . . . 17 (𝑓 = → (𝑓 Fn 𝑥 Fn 𝑥))
26 fveq2 5675 . . . . . . . . . . . . . . . . . 18 (𝑓 = → (𝐺𝑓) = (𝐺))
2726eleq1d 2303 . . . . . . . . . . . . . . . . 17 (𝑓 = → ((𝐺𝑓) ∈ V ↔ (𝐺) ∈ V))
2825, 27imbi12d 234 . . . . . . . . . . . . . . . 16 (𝑓 = → ((𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V) ↔ ( Fn 𝑥 → (𝐺) ∈ V)))
2928cbvalv 1969 . . . . . . . . . . . . . . 15 (∀𝑓(𝑓 Fn 𝑥 → (𝐺𝑓) ∈ V) ↔ ∀( Fn 𝑥 → (𝐺) ∈ V))
3024, 29sylib 122 . . . . . . . . . . . . . 14 ((𝜑𝑥𝑋) → ∀( Fn 𝑥 → (𝐺) ∈ V))
313019.21bi 1607 . . . . . . . . . . . . 13 ((𝜑𝑥𝑋) → ( Fn 𝑥 → (𝐺) ∈ V))
32313impia 1227 . . . . . . . . . . . 12 ((𝜑𝑥𝑋 Fn 𝑥) → (𝐺) ∈ V)
33323adant1r 1258 . . . . . . . . . . 11 (((𝜑𝑧 ∈ On) ∧ 𝑥𝑋 Fn 𝑥) → (𝐺) ∈ V)
34333adant1r 1258 . . . . . . . . . 10 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑥𝑋 Fn 𝑥) → (𝐺) ∈ V)
35343adant1r 1258 . . . . . . . . 9 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑥𝑋 Fn 𝑥) → (𝐺) ∈ V)
36 tfr1onlemsucfn.1 . . . . . . . . . 10 𝐴 = {𝑓 ∣ ∃𝑥𝑋 (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)))}
37 fveq1 5674 . . . . . . . . . . . . . . 15 (𝑓 = → (𝑓𝑦) = (𝑦))
38 reseq1 5037 . . . . . . . . . . . . . . . 16 (𝑓 = → (𝑓𝑦) = (𝑦))
3938fveq2d 5679 . . . . . . . . . . . . . . 15 (𝑓 = → (𝐺‘(𝑓𝑦)) = (𝐺‘(𝑦)))
4037, 39eqeq12d 2249 . . . . . . . . . . . . . 14 (𝑓 = → ((𝑓𝑦) = (𝐺‘(𝑓𝑦)) ↔ (𝑦) = (𝐺‘(𝑦))))
4140ralbidv 2544 . . . . . . . . . . . . 13 (𝑓 = → (∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)) ↔ ∀𝑦𝑥 (𝑦) = (𝐺‘(𝑦))))
4225, 41anbi12d 473 . . . . . . . . . . . 12 (𝑓 = → ((𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦))) ↔ ( Fn 𝑥 ∧ ∀𝑦𝑥 (𝑦) = (𝐺‘(𝑦)))))
4342rexbidv 2545 . . . . . . . . . . 11 (𝑓 = → (∃𝑥𝑋 (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦))) ↔ ∃𝑥𝑋 ( Fn 𝑥 ∧ ∀𝑦𝑥 (𝑦) = (𝐺‘(𝑦)))))
4443cbvabv 2361 . . . . . . . . . 10 {𝑓 ∣ ∃𝑥𝑋 (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐺‘(𝑓𝑦)))} = { ∣ ∃𝑥𝑋 ( Fn 𝑥 ∧ ∀𝑦𝑥 (𝑦) = (𝐺‘(𝑦)))}
4536, 44eqtri 2255 . . . . . . . . 9 𝐴 = { ∣ ∃𝑥𝑋 ( Fn 𝑥 ∧ ∀𝑦𝑥 (𝑦) = (𝐺‘(𝑦)))}
46 fneq1 5449 . . . . . . . . . . . . . . 15 (𝑟 = 𝑎 → (𝑟 Fn 𝑡𝑎 Fn 𝑡))
47 eleq1 2297 . . . . . . . . . . . . . . 15 (𝑟 = 𝑎 → (𝑟𝐴𝑎𝐴))
48 id 19 . . . . . . . . . . . . . . . . 17 (𝑟 = 𝑎𝑟 = 𝑎)
49 fveq2 5675 . . . . . . . . . . . . . . . . . . 19 (𝑟 = 𝑎 → (𝐺𝑟) = (𝐺𝑎))
5049opeq2d 3895 . . . . . . . . . . . . . . . . . 18 (𝑟 = 𝑎 → ⟨𝑡, (𝐺𝑟)⟩ = ⟨𝑡, (𝐺𝑎)⟩)
5150sneqd 3707 . . . . . . . . . . . . . . . . 17 (𝑟 = 𝑎 → {⟨𝑡, (𝐺𝑟)⟩} = {⟨𝑡, (𝐺𝑎)⟩})
5248, 51uneq12d 3378 . . . . . . . . . . . . . . . 16 (𝑟 = 𝑎 → (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩}) = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩}))
5352eqeq2d 2246 . . . . . . . . . . . . . . 15 (𝑟 = 𝑎 → (𝑠 = (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩}) ↔ 𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩})))
5446, 47, 533anbi123d 1349 . . . . . . . . . . . . . 14 (𝑟 = 𝑎 → ((𝑟 Fn 𝑡𝑟𝐴𝑠 = (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩})) ↔ (𝑎 Fn 𝑡𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩}))))
5554cbvexv 1970 . . . . . . . . . . . . 13 (∃𝑟(𝑟 Fn 𝑡𝑟𝐴𝑠 = (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩})) ↔ ∃𝑎(𝑎 Fn 𝑡𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩})))
5655rexbii 2551 . . . . . . . . . . . 12 (∃𝑡𝑧𝑟(𝑟 Fn 𝑡𝑟𝐴𝑠 = (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩})) ↔ ∃𝑡𝑧𝑎(𝑎 Fn 𝑡𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩})))
57 fneq2 5450 . . . . . . . . . . . . . . 15 (𝑡 = 𝑏 → (𝑎 Fn 𝑡𝑎 Fn 𝑏))
58 opeq1 3888 . . . . . . . . . . . . . . . . . 18 (𝑡 = 𝑏 → ⟨𝑡, (𝐺𝑎)⟩ = ⟨𝑏, (𝐺𝑎)⟩)
5958sneqd 3707 . . . . . . . . . . . . . . . . 17 (𝑡 = 𝑏 → {⟨𝑡, (𝐺𝑎)⟩} = {⟨𝑏, (𝐺𝑎)⟩})
6059uneq2d 3377 . . . . . . . . . . . . . . . 16 (𝑡 = 𝑏 → (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩}) = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))
6160eqeq2d 2246 . . . . . . . . . . . . . . 15 (𝑡 = 𝑏 → (𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩}) ↔ 𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩})))
6257, 613anbi13d 1351 . . . . . . . . . . . . . 14 (𝑡 = 𝑏 → ((𝑎 Fn 𝑡𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩})) ↔ (𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))))
6362exbidv 1874 . . . . . . . . . . . . 13 (𝑡 = 𝑏 → (∃𝑎(𝑎 Fn 𝑡𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩})) ↔ ∃𝑎(𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))))
6463cbvrexv 2781 . . . . . . . . . . . 12 (∃𝑡𝑧𝑎(𝑎 Fn 𝑡𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑡, (𝐺𝑎)⟩})) ↔ ∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩})))
6556, 64bitri 184 . . . . . . . . . . 11 (∃𝑡𝑧𝑟(𝑟 Fn 𝑡𝑟𝐴𝑠 = (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩})) ↔ ∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩})))
6665abbii 2350 . . . . . . . . . 10 {𝑠 ∣ ∃𝑡𝑧𝑟(𝑟 Fn 𝑡𝑟𝐴𝑠 = (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩}))} = {𝑠 ∣ ∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))}
67 eqeq1 2241 . . . . . . . . . . . . . 14 (𝑠 = 𝑑 → (𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}) ↔ 𝑑 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩})))
68673anbi3d 1355 . . . . . . . . . . . . 13 (𝑠 = 𝑑 → ((𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩})) ↔ (𝑎 Fn 𝑏𝑎𝐴𝑑 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))))
6968exbidv 1874 . . . . . . . . . . . 12 (𝑠 = 𝑑 → (∃𝑎(𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩})) ↔ ∃𝑎(𝑎 Fn 𝑏𝑎𝐴𝑑 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))))
7069rexbidv 2545 . . . . . . . . . . 11 (𝑠 = 𝑑 → (∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩})) ↔ ∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑑 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))))
7170cbvabv 2361 . . . . . . . . . 10 {𝑠 ∣ ∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑠 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))} = {𝑑 ∣ ∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑑 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))}
7266, 71eqtri 2255 . . . . . . . . 9 {𝑠 ∣ ∃𝑡𝑧𝑟(𝑟 Fn 𝑡𝑟𝐴𝑠 = (𝑟 ∪ {⟨𝑡, (𝐺𝑟)⟩}))} = {𝑑 ∣ ∃𝑏𝑧𝑎(𝑎 Fn 𝑏𝑎𝐴𝑑 = (𝑎 ∪ {⟨𝑏, (𝐺𝑎)⟩}))}
73 tfr1onlemaccex.u . . . . . . . . . . . 12 ((𝜑𝑥 𝑋) → suc 𝑥𝑋)
7473adantlr 477 . . . . . . . . . . 11 (((𝜑𝑧 ∈ On) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
7574adantlr 477 . . . . . . . . . 10 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
7675adantlr 477 . . . . . . . . 9 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑥 𝑋) → suc 𝑥𝑋)
77 simpr 110 . . . . . . . . 9 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) → 𝑧𝑋)
78 simpr 110 . . . . . . . . . . . 12 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → 𝑏𝑧)
79 simplr 529 . . . . . . . . . . . 12 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → 𝑧𝑋)
80 ordtr1 4514 . . . . . . . . . . . . . 14 (Ord 𝑋 → ((𝑏𝑧𝑧𝑋) → 𝑏𝑋))
811, 80syl 14 . . . . . . . . . . . . 13 (𝜑 → ((𝑏𝑧𝑧𝑋) → 𝑏𝑋))
8281ad4antr 494 . . . . . . . . . . . 12 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → ((𝑏𝑧𝑧𝑋) → 𝑏𝑋))
8378, 79, 82mp2and 433 . . . . . . . . . . 11 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → 𝑏𝑋)
84 eleq1 2297 . . . . . . . . . . . . . 14 (𝑤 = 𝑏 → (𝑤𝑋𝑏𝑋))
85 fneq2 5450 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑏 → (𝑔 Fn 𝑤𝑔 Fn 𝑏))
86 raleq 2743 . . . . . . . . . . . . . . . 16 (𝑤 = 𝑏 → (∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)) ↔ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
8785, 86anbi12d 473 . . . . . . . . . . . . . . 15 (𝑤 = 𝑏 → ((𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ (𝑔 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
8887exbidv 1874 . . . . . . . . . . . . . 14 (𝑤 = 𝑏 → (∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ ∃𝑔(𝑔 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
8984, 88imbi12d 234 . . . . . . . . . . . . 13 (𝑤 = 𝑏 → ((𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ↔ (𝑏𝑋 → ∃𝑔(𝑔 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
90 simpllr 536 . . . . . . . . . . . . 13 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
9189, 90, 78rspcdva 2928 . . . . . . . . . . . 12 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → (𝑏𝑋 → ∃𝑔(𝑔 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
92 fneq1 5449 . . . . . . . . . . . . . . 15 (𝑔 = 𝑎 → (𝑔 Fn 𝑏𝑎 Fn 𝑏))
93 fveq1 5674 . . . . . . . . . . . . . . . . 17 (𝑔 = 𝑎 → (𝑔𝑢) = (𝑎𝑢))
94 reseq1 5037 . . . . . . . . . . . . . . . . . 18 (𝑔 = 𝑎 → (𝑔𝑢) = (𝑎𝑢))
9594fveq2d 5679 . . . . . . . . . . . . . . . . 17 (𝑔 = 𝑎 → (𝐺‘(𝑔𝑢)) = (𝐺‘(𝑎𝑢)))
9693, 95eqeq12d 2249 . . . . . . . . . . . . . . . 16 (𝑔 = 𝑎 → ((𝑔𝑢) = (𝐺‘(𝑔𝑢)) ↔ (𝑎𝑢) = (𝐺‘(𝑎𝑢))))
9796ralbidv 2544 . . . . . . . . . . . . . . 15 (𝑔 = 𝑎 → (∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢)) ↔ ∀𝑢𝑏 (𝑎𝑢) = (𝐺‘(𝑎𝑢))))
9892, 97anbi12d 473 . . . . . . . . . . . . . 14 (𝑔 = 𝑎 → ((𝑔 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ (𝑎 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑎𝑢) = (𝐺‘(𝑎𝑢)))))
9998cbvexv 1970 . . . . . . . . . . . . 13 (∃𝑔(𝑔 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ ∃𝑎(𝑎 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑎𝑢) = (𝐺‘(𝑎𝑢))))
100 fveq2 5675 . . . . . . . . . . . . . . . . 17 (𝑢 = 𝑐 → (𝑎𝑢) = (𝑎𝑐))
101 reseq2 5038 . . . . . . . . . . . . . . . . . 18 (𝑢 = 𝑐 → (𝑎𝑢) = (𝑎𝑐))
102101fveq2d 5679 . . . . . . . . . . . . . . . . 17 (𝑢 = 𝑐 → (𝐺‘(𝑎𝑢)) = (𝐺‘(𝑎𝑐)))
103100, 102eqeq12d 2249 . . . . . . . . . . . . . . . 16 (𝑢 = 𝑐 → ((𝑎𝑢) = (𝐺‘(𝑎𝑢)) ↔ (𝑎𝑐) = (𝐺‘(𝑎𝑐))))
104103cbvralv 2780 . . . . . . . . . . . . . . 15 (∀𝑢𝑏 (𝑎𝑢) = (𝐺‘(𝑎𝑢)) ↔ ∀𝑐𝑏 (𝑎𝑐) = (𝐺‘(𝑎𝑐)))
105104anbi2i 457 . . . . . . . . . . . . . 14 ((𝑎 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑎𝑢) = (𝐺‘(𝑎𝑢))) ↔ (𝑎 Fn 𝑏 ∧ ∀𝑐𝑏 (𝑎𝑐) = (𝐺‘(𝑎𝑐))))
106105exbii 1654 . . . . . . . . . . . . 13 (∃𝑎(𝑎 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑎𝑢) = (𝐺‘(𝑎𝑢))) ↔ ∃𝑎(𝑎 Fn 𝑏 ∧ ∀𝑐𝑏 (𝑎𝑐) = (𝐺‘(𝑎𝑐))))
10799, 106bitri 184 . . . . . . . . . . . 12 (∃𝑔(𝑔 Fn 𝑏 ∧ ∀𝑢𝑏 (𝑔𝑢) = (𝐺‘(𝑔𝑢))) ↔ ∃𝑎(𝑎 Fn 𝑏 ∧ ∀𝑐𝑏 (𝑎𝑐) = (𝐺‘(𝑎𝑐))))
10891, 107imbitrdi 161 . . . . . . . . . . 11 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → (𝑏𝑋 → ∃𝑎(𝑎 Fn 𝑏 ∧ ∀𝑐𝑏 (𝑎𝑐) = (𝐺‘(𝑎𝑐)))))
10983, 108mpd 13 . . . . . . . . . 10 (((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) ∧ 𝑏𝑧) → ∃𝑎(𝑎 Fn 𝑏 ∧ ∀𝑐𝑏 (𝑎𝑐) = (𝐺‘(𝑎𝑐))))
110109ralrimiva 2617 . . . . . . . . 9 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) → ∀𝑏𝑧𝑎(𝑎 Fn 𝑏 ∧ ∀𝑐𝑏 (𝑎𝑐) = (𝐺‘(𝑎𝑐))))
11118, 20, 21, 35, 45, 72, 76, 77, 110tfr1onlemex 6591 . . . . . . . 8 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) → ∃( Fn 𝑧 ∧ ∀𝑢𝑧 (𝑢) = (𝐺‘(𝑢))))
112 fneq1 5449 . . . . . . . . . 10 ( = 𝑔 → ( Fn 𝑧𝑔 Fn 𝑧))
113 fveq1 5674 . . . . . . . . . . . 12 ( = 𝑔 → (𝑢) = (𝑔𝑢))
114 reseq1 5037 . . . . . . . . . . . . 13 ( = 𝑔 → (𝑢) = (𝑔𝑢))
115114fveq2d 5679 . . . . . . . . . . . 12 ( = 𝑔 → (𝐺‘(𝑢)) = (𝐺‘(𝑔𝑢)))
116113, 115eqeq12d 2249 . . . . . . . . . . 11 ( = 𝑔 → ((𝑢) = (𝐺‘(𝑢)) ↔ (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
117116ralbidv 2544 . . . . . . . . . 10 ( = 𝑔 → (∀𝑢𝑧 (𝑢) = (𝐺‘(𝑢)) ↔ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
118112, 117anbi12d 473 . . . . . . . . 9 ( = 𝑔 → (( Fn 𝑧 ∧ ∀𝑢𝑧 (𝑢) = (𝐺‘(𝑢))) ↔ (𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
119118cbvexv 1970 . . . . . . . 8 (∃( Fn 𝑧 ∧ ∀𝑢𝑧 (𝑢) = (𝐺‘(𝑢))) ↔ ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
120111, 119sylib 122 . . . . . . 7 ((((𝜑𝑧 ∈ On) ∧ ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ∧ 𝑧𝑋) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
121120exp31 364 . . . . . 6 ((𝜑𝑧 ∈ On) → (∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝑧𝑋 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
122121expcom 116 . . . . 5 (𝑧 ∈ On → (𝜑 → (∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → (𝑧𝑋 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))))
123122a2d 26 . . . 4 (𝑧 ∈ On → ((𝜑 → ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) → (𝜑 → (𝑧𝑋 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))))
124 impexp 263 . . . . . 6 (((𝜑𝑤𝑋) → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ↔ (𝜑 → (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
125124ralbii 2550 . . . . 5 (∀𝑤𝑧 ((𝜑𝑤𝑋) → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ↔ ∀𝑤𝑧 (𝜑 → (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
126 r19.21v 2621 . . . . 5 (∀𝑤𝑧 (𝜑 → (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))) ↔ (𝜑 → ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
127125, 126bitri 184 . . . 4 (∀𝑤𝑧 ((𝜑𝑤𝑋) → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ↔ (𝜑 → ∀𝑤𝑧 (𝑤𝑋 → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
128 impexp 263 . . . 4 (((𝜑𝑧𝑋) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) ↔ (𝜑 → (𝑧𝑋 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
129123, 127, 1283imtr4g 205 . . 3 (𝑧 ∈ On → (∀𝑤𝑧 ((𝜑𝑤𝑋) → ∃𝑔(𝑔 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))) → ((𝜑𝑧𝑋) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))))
13010, 17, 129tfis3 4713 . 2 (𝐶 ∈ On → ((𝜑𝐶𝑋) → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐺‘(𝑔𝑢)))))
1313, 130mpcom 36 1 ((𝜑𝐶𝑋) → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐺‘(𝑔𝑢))))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  w3a 1005  wal 1396   = wceq 1398  wex 1541  wcel 2205  {cab 2220  wral 2522  wrex 2523  Vcvv 2815  cun 3212  {csn 3694  cop 3697   cuni 3919  Ord word 4488  Oncon0 4489  suc csuc 4491  cres 4756  Fun wfun 5351   Fn wfn 5352  cfv 5357  recscrecs 6548
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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2207  ax-14 2208  ax-ext 2216  ax-coll 4230  ax-sep 4233  ax-pow 4292  ax-pr 4327  ax-un 4559  ax-setind 4664
This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2085  df-mo 2086  df-clab 2221  df-cleq 2227  df-clel 2230  df-nfc 2375  df-ne 2415  df-ral 2527  df-rex 2528  df-reu 2529  df-rab 2531  df-v 2817  df-sbc 3046  df-csb 3142  df-dif 3216  df-un 3218  df-in 3220  df-ss 3227  df-nul 3513  df-pw 3676  df-sn 3700  df-pr 3701  df-op 3703  df-uni 3920  df-iun 3998  df-br 4115  df-opab 4177  df-mpt 4178  df-tr 4214  df-id 4419  df-iord 4492  df-on 4494  df-suc 4497  df-xp 4760  df-rel 4761  df-cnv 4762  df-co 4763  df-dm 4764  df-rn 4765  df-res 4766  df-ima 4767  df-iota 5317  df-fun 5359  df-fn 5360  df-f 5361  df-f1 5362  df-fo 5363  df-f1o 5364  df-fv 5365  df-recs 6549
This theorem is referenced by:  tfr1onlemres  6593
  Copyright terms: Public domain W3C validator