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

Theorem tfrlemi1 6311
Description: We can define an acceptable function on any ordinal.

As with many of the transfinite recursion theorems, we have a hypothesis that states that 𝐹 is a function and that it is defined for all ordinals. (Contributed by Jim Kingdon, 4-Mar-2019.) (Proof shortened by Mario Carneiro, 24-May-2019.)

Hypotheses
Ref Expression
tfrlemisucfn.1 𝐴 = {𝑓 ∣ ∃𝑥 ∈ On (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐹‘(𝑓𝑦)))}
tfrlemisucfn.2 (𝜑 → ∀𝑥(Fun 𝐹 ∧ (𝐹𝑥) ∈ V))
Assertion
Ref Expression
tfrlemi1 ((𝜑𝐶 ∈ On) → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))
Distinct variable groups:   𝑓,𝑔,𝑢,𝑥,𝑦,𝐴   𝑓,𝐹,𝑔,𝑢,𝑥,𝑦   𝜑,𝑦   𝐶,𝑔,𝑢   𝜑,𝑓
Allowed substitution hints:   𝜑(𝑥,𝑢,𝑔)   𝐶(𝑥,𝑦,𝑓)

Proof of Theorem tfrlemi1
Dummy variables 𝑒 𝑘 𝑡 𝑣 𝑤 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 109 . . . . . . 7 ((𝑧 = 𝑤𝑔 = 𝑘) → 𝑔 = 𝑘)
2 simpl 108 . . . . . . 7 ((𝑧 = 𝑤𝑔 = 𝑘) → 𝑧 = 𝑤)
31, 2fneq12d 5290 . . . . . 6 ((𝑧 = 𝑤𝑔 = 𝑘) → (𝑔 Fn 𝑧𝑘 Fn 𝑤))
41fveq1d 5498 . . . . . . . 8 ((𝑧 = 𝑤𝑔 = 𝑘) → (𝑔𝑢) = (𝑘𝑢))
51reseq1d 4890 . . . . . . . . 9 ((𝑧 = 𝑤𝑔 = 𝑘) → (𝑔𝑢) = (𝑘𝑢))
65fveq2d 5500 . . . . . . . 8 ((𝑧 = 𝑤𝑔 = 𝑘) → (𝐹‘(𝑔𝑢)) = (𝐹‘(𝑘𝑢)))
74, 6eqeq12d 2185 . . . . . . 7 ((𝑧 = 𝑤𝑔 = 𝑘) → ((𝑔𝑢) = (𝐹‘(𝑔𝑢)) ↔ (𝑘𝑢) = (𝐹‘(𝑘𝑢))))
82, 7raleqbidv 2677 . . . . . 6 ((𝑧 = 𝑤𝑔 = 𝑘) → (∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢)) ↔ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))))
93, 8anbi12d 470 . . . . 5 ((𝑧 = 𝑤𝑔 = 𝑘) → ((𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))) ↔ (𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))))
109cbvexdva 1922 . . . 4 (𝑧 = 𝑤 → (∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))) ↔ ∃𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))))
1110imbi2d 229 . . 3 (𝑧 = 𝑤 → ((𝜑 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢)))) ↔ (𝜑 → ∃𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))))))
12 fneq2 5287 . . . . . 6 (𝑧 = 𝐶 → (𝑔 Fn 𝑧𝑔 Fn 𝐶))
13 raleq 2665 . . . . . 6 (𝑧 = 𝐶 → (∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢)) ↔ ∀𝑢𝐶 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))
1412, 13anbi12d 470 . . . . 5 (𝑧 = 𝐶 → ((𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))) ↔ (𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐹‘(𝑔𝑢)))))
1514exbidv 1818 . . . 4 (𝑧 = 𝐶 → (∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))) ↔ ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐹‘(𝑔𝑢)))))
1615imbi2d 229 . . 3 (𝑧 = 𝐶 → ((𝜑 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢)))) ↔ (𝜑 → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))))
17 r19.21v 2547 . . . 4 (∀𝑤𝑧 (𝜑 → ∃𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))) ↔ (𝜑 → ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))))
18 tfrlemisucfn.1 . . . . . . . . 9 𝐴 = {𝑓 ∣ ∃𝑥 ∈ On (𝑓 Fn 𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) = (𝐹‘(𝑓𝑦)))}
1918tfrlem3 6290 . . . . . . . 8 𝐴 = {𝑔 ∣ ∃𝑧 ∈ On (𝑔 Fn 𝑧 ∧ ∀𝑒𝑧 (𝑔𝑒) = (𝐹‘(𝑔𝑒)))}
20 tfrlemisucfn.2 . . . . . . . . . 10 (𝜑 → ∀𝑥(Fun 𝐹 ∧ (𝐹𝑥) ∈ V))
21 fveq2 5496 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → (𝐹𝑥) = (𝐹𝑧))
2221eleq1d 2239 . . . . . . . . . . . 12 (𝑥 = 𝑧 → ((𝐹𝑥) ∈ V ↔ (𝐹𝑧) ∈ V))
2322anbi2d 461 . . . . . . . . . . 11 (𝑥 = 𝑧 → ((Fun 𝐹 ∧ (𝐹𝑥) ∈ V) ↔ (Fun 𝐹 ∧ (𝐹𝑧) ∈ V)))
2423cbvalv 1910 . . . . . . . . . 10 (∀𝑥(Fun 𝐹 ∧ (𝐹𝑥) ∈ V) ↔ ∀𝑧(Fun 𝐹 ∧ (𝐹𝑧) ∈ V))
2520, 24sylib 121 . . . . . . . . 9 (𝜑 → ∀𝑧(Fun 𝐹 ∧ (𝐹𝑧) ∈ V))
2625adantr 274 . . . . . . . 8 ((𝜑 ∧ (𝑧 ∈ On ∧ ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))))) → ∀𝑧(Fun 𝐹 ∧ (𝐹𝑧) ∈ V))
27 simpr 109 . . . . . . . . . . . . 13 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → 𝑘 = 𝑓)
28 simplr 525 . . . . . . . . . . . . 13 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → 𝑤 = 𝑣)
2927, 28fneq12d 5290 . . . . . . . . . . . 12 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → (𝑘 Fn 𝑤𝑓 Fn 𝑣))
3027eleq1d 2239 . . . . . . . . . . . 12 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → (𝑘𝐴𝑓𝐴))
31 simpll 524 . . . . . . . . . . . . 13 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → 𝑡 = )
3227fveq2d 5500 . . . . . . . . . . . . . . . 16 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → (𝐹𝑘) = (𝐹𝑓))
3328, 32opeq12d 3773 . . . . . . . . . . . . . . 15 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → ⟨𝑤, (𝐹𝑘)⟩ = ⟨𝑣, (𝐹𝑓)⟩)
3433sneqd 3596 . . . . . . . . . . . . . 14 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → {⟨𝑤, (𝐹𝑘)⟩} = {⟨𝑣, (𝐹𝑓)⟩})
3527, 34uneq12d 3282 . . . . . . . . . . . . 13 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → (𝑘 ∪ {⟨𝑤, (𝐹𝑘)⟩}) = (𝑓 ∪ {⟨𝑣, (𝐹𝑓)⟩}))
3631, 35eqeq12d 2185 . . . . . . . . . . . 12 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → (𝑡 = (𝑘 ∪ {⟨𝑤, (𝐹𝑘)⟩}) ↔ = (𝑓 ∪ {⟨𝑣, (𝐹𝑓)⟩})))
3729, 30, 363anbi123d 1307 . . . . . . . . . . 11 (((𝑡 = 𝑤 = 𝑣) ∧ 𝑘 = 𝑓) → ((𝑘 Fn 𝑤𝑘𝐴𝑡 = (𝑘 ∪ {⟨𝑤, (𝐹𝑘)⟩})) ↔ (𝑓 Fn 𝑣𝑓𝐴 = (𝑓 ∪ {⟨𝑣, (𝐹𝑓)⟩}))))
3837cbvexdva 1922 . . . . . . . . . 10 ((𝑡 = 𝑤 = 𝑣) → (∃𝑘(𝑘 Fn 𝑤𝑘𝐴𝑡 = (𝑘 ∪ {⟨𝑤, (𝐹𝑘)⟩})) ↔ ∃𝑓(𝑓 Fn 𝑣𝑓𝐴 = (𝑓 ∪ {⟨𝑣, (𝐹𝑓)⟩}))))
3938cbvrexdva 2706 . . . . . . . . 9 (𝑡 = → (∃𝑤𝑧𝑘(𝑘 Fn 𝑤𝑘𝐴𝑡 = (𝑘 ∪ {⟨𝑤, (𝐹𝑘)⟩})) ↔ ∃𝑣𝑧𝑓(𝑓 Fn 𝑣𝑓𝐴 = (𝑓 ∪ {⟨𝑣, (𝐹𝑓)⟩}))))
4039cbvabv 2295 . . . . . . . 8 {𝑡 ∣ ∃𝑤𝑧𝑘(𝑘 Fn 𝑤𝑘𝐴𝑡 = (𝑘 ∪ {⟨𝑤, (𝐹𝑘)⟩}))} = { ∣ ∃𝑣𝑧𝑓(𝑓 Fn 𝑣𝑓𝐴 = (𝑓 ∪ {⟨𝑣, (𝐹𝑓)⟩}))}
41 simpl 108 . . . . . . . . 9 ((𝑧 ∈ On ∧ ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))) → 𝑧 ∈ On)
4241adantl 275 . . . . . . . 8 ((𝜑 ∧ (𝑧 ∈ On ∧ ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))))) → 𝑧 ∈ On)
43 simpr 109 . . . . . . . . . 10 ((𝑧 ∈ On ∧ ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))) → ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))))
44 simpr 109 . . . . . . . . . . . . . 14 ((𝑤 = 𝑣𝑘 = 𝑓) → 𝑘 = 𝑓)
45 simpl 108 . . . . . . . . . . . . . 14 ((𝑤 = 𝑣𝑘 = 𝑓) → 𝑤 = 𝑣)
4644, 45fneq12d 5290 . . . . . . . . . . . . 13 ((𝑤 = 𝑣𝑘 = 𝑓) → (𝑘 Fn 𝑤𝑓 Fn 𝑣))
47 simplr 525 . . . . . . . . . . . . . . . 16 (((𝑤 = 𝑣𝑘 = 𝑓) ∧ 𝑢 = 𝑦) → 𝑘 = 𝑓)
48 simpr 109 . . . . . . . . . . . . . . . 16 (((𝑤 = 𝑣𝑘 = 𝑓) ∧ 𝑢 = 𝑦) → 𝑢 = 𝑦)
4947, 48fveq12d 5503 . . . . . . . . . . . . . . 15 (((𝑤 = 𝑣𝑘 = 𝑓) ∧ 𝑢 = 𝑦) → (𝑘𝑢) = (𝑓𝑦))
5047, 48reseq12d 4892 . . . . . . . . . . . . . . . 16 (((𝑤 = 𝑣𝑘 = 𝑓) ∧ 𝑢 = 𝑦) → (𝑘𝑢) = (𝑓𝑦))
5150fveq2d 5500 . . . . . . . . . . . . . . 15 (((𝑤 = 𝑣𝑘 = 𝑓) ∧ 𝑢 = 𝑦) → (𝐹‘(𝑘𝑢)) = (𝐹‘(𝑓𝑦)))
5249, 51eqeq12d 2185 . . . . . . . . . . . . . 14 (((𝑤 = 𝑣𝑘 = 𝑓) ∧ 𝑢 = 𝑦) → ((𝑘𝑢) = (𝐹‘(𝑘𝑢)) ↔ (𝑓𝑦) = (𝐹‘(𝑓𝑦))))
53 simpll 524 . . . . . . . . . . . . . 14 (((𝑤 = 𝑣𝑘 = 𝑓) ∧ 𝑢 = 𝑦) → 𝑤 = 𝑣)
5452, 53cbvraldva2 2703 . . . . . . . . . . . . 13 ((𝑤 = 𝑣𝑘 = 𝑓) → (∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)) ↔ ∀𝑦𝑣 (𝑓𝑦) = (𝐹‘(𝑓𝑦))))
5546, 54anbi12d 470 . . . . . . . . . . . 12 ((𝑤 = 𝑣𝑘 = 𝑓) → ((𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))) ↔ (𝑓 Fn 𝑣 ∧ ∀𝑦𝑣 (𝑓𝑦) = (𝐹‘(𝑓𝑦)))))
5655cbvexdva 1922 . . . . . . . . . . 11 (𝑤 = 𝑣 → (∃𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))) ↔ ∃𝑓(𝑓 Fn 𝑣 ∧ ∀𝑦𝑣 (𝑓𝑦) = (𝐹‘(𝑓𝑦)))))
5756cbvralv 2696 . . . . . . . . . 10 (∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))) ↔ ∀𝑣𝑧𝑓(𝑓 Fn 𝑣 ∧ ∀𝑦𝑣 (𝑓𝑦) = (𝐹‘(𝑓𝑦))))
5843, 57sylib 121 . . . . . . . . 9 ((𝑧 ∈ On ∧ ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))) → ∀𝑣𝑧𝑓(𝑓 Fn 𝑣 ∧ ∀𝑦𝑣 (𝑓𝑦) = (𝐹‘(𝑓𝑦))))
5958adantl 275 . . . . . . . 8 ((𝜑 ∧ (𝑧 ∈ On ∧ ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))))) → ∀𝑣𝑧𝑓(𝑓 Fn 𝑣 ∧ ∀𝑦𝑣 (𝑓𝑦) = (𝐹‘(𝑓𝑦))))
6019, 26, 40, 42, 59tfrlemiex 6310 . . . . . . 7 ((𝜑 ∧ (𝑧 ∈ On ∧ ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))))) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))
6160expr 373 . . . . . 6 ((𝜑𝑧 ∈ On) → (∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢)))))
6261expcom 115 . . . . 5 (𝑧 ∈ On → (𝜑 → (∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢))) → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))))
6362a2d 26 . . . 4 (𝑧 ∈ On → ((𝜑 → ∀𝑤𝑧𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))) → (𝜑 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))))
6417, 63syl5bi 151 . . 3 (𝑧 ∈ On → (∀𝑤𝑧 (𝜑 → ∃𝑘(𝑘 Fn 𝑤 ∧ ∀𝑢𝑤 (𝑘𝑢) = (𝐹‘(𝑘𝑢)))) → (𝜑 → ∃𝑔(𝑔 Fn 𝑧 ∧ ∀𝑢𝑧 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))))
6511, 16, 64tfis3 4570 . 2 (𝐶 ∈ On → (𝜑 → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐹‘(𝑔𝑢)))))
6665impcom 124 1 ((𝜑𝐶 ∈ On) → ∃𝑔(𝑔 Fn 𝐶 ∧ ∀𝑢𝐶 (𝑔𝑢) = (𝐹‘(𝑔𝑢))))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  w3a 973  wal 1346   = wceq 1348  wex 1485  wcel 2141  {cab 2156  wral 2448  wrex 2449  Vcvv 2730  cun 3119  {csn 3583  cop 3586  Oncon0 4348  cres 4613  Fun wfun 5192   Fn wfn 5193  cfv 5198
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 609  ax-in2 610  ax-io 704  ax-5 1440  ax-7 1441  ax-gen 1442  ax-ie1 1486  ax-ie2 1487  ax-8 1497  ax-10 1498  ax-11 1499  ax-i12 1500  ax-bndl 1502  ax-4 1503  ax-17 1519  ax-i9 1523  ax-ial 1527  ax-i5r 1528  ax-13 2143  ax-14 2144  ax-ext 2152  ax-coll 4104  ax-sep 4107  ax-pow 4160  ax-pr 4194  ax-un 4418  ax-setind 4521
This theorem depends on definitions:  df-bi 116  df-3an 975  df-tru 1351  df-fal 1354  df-nf 1454  df-sb 1756  df-eu 2022  df-mo 2023  df-clab 2157  df-cleq 2163  df-clel 2166  df-nfc 2301  df-ne 2341  df-ral 2453  df-rex 2454  df-reu 2455  df-rab 2457  df-v 2732  df-sbc 2956  df-csb 3050  df-dif 3123  df-un 3125  df-in 3127  df-ss 3134  df-nul 3415  df-pw 3568  df-sn 3589  df-pr 3590  df-op 3592  df-uni 3797  df-iun 3875  df-br 3990  df-opab 4051  df-mpt 4052  df-tr 4088  df-id 4278  df-iord 4351  df-on 4353  df-suc 4356  df-xp 4617  df-rel 4618  df-cnv 4619  df-co 4620  df-dm 4621  df-rn 4622  df-res 4623  df-ima 4624  df-iota 5160  df-fun 5200  df-fn 5201  df-f 5202  df-f1 5203  df-fo 5204  df-f1o 5205  df-fv 5206  df-recs 6284
This theorem is referenced by:  tfrlemi14d  6312  tfrexlem  6313
  Copyright terms: Public domain W3C validator