Theorem dfwrecsOLD 8354

Description: Obsolete definition of the well-ordered recursive function generator as of 18-Nov-2024. (New usage is discouraged.) (Proof modification is discouraged.) (Contributed by Scott Fenton, 7-Jun-2018.)

Assertion

Ref	Expression
dfwrecsOLD	⊢ wrecs(𝑅, 𝐴, 𝐹) = ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}

Distinct variable groups:   𝑅,𝑓,𝑥,𝑦   𝐴,𝑓,𝑥,𝑦   𝑓,𝐹,𝑥,𝑦

Proof of Theorem dfwrecsOLD

Step	Hyp	Ref	Expression
1		df-wrecs 8353	. 2 ⊢ wrecs(𝑅, 𝐴, 𝐹) = frecs(𝑅, 𝐴, (𝐹 ∘ 2nd ))
2		df-frecs 8322	. 2 ⊢ frecs(𝑅, 𝐴, (𝐹 ∘ 2nd )) = ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
3		vex 3492	. . . . . . . . . . 11 ⊢ 𝑦 ∈ V
4	3	a1i 11	. . . . . . . . . 10 ⊢ (⊤ → 𝑦 ∈ V)
5		vex 3492	. . . . . . . . . . . 12 ⊢ 𝑓 ∈ V
6	5	resex 6058	. . . . . . . . . . 11 ⊢ (𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)) ∈ V
7	6	a1i 11	. . . . . . . . . 10 ⊢ (⊤ → (𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)) ∈ V)
8	4, 7	opco2 8165	. . . . . . . . 9 ⊢ (⊤ → (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))
9	8	mptru 1544	. . . . . . . 8 ⊢ (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))
10	9	eqeq2i 2753	. . . . . . 7 ⊢ ((𝑓‘𝑦) = (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))
11	10	ralbii 3099	. . . . . 6 ⊢ (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))
12	11	3anbi3i 1159	. . . . 5 ⊢ ((𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))))
13	12	exbii 1846	. . . 4 ⊢ (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))))
14	13	abbii 2812	. . 3 ⊢ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
15	14	unieqi 4943	. 2 ⊢ ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦(𝐹 ∘ 2nd )(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} = ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
16	1, 2, 15	3eqtri 2772	1 ⊢ wrecs(𝑅, 𝐴, 𝐹) = ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}

Syntax hints:   ∧ wa 395   ∧ w3a 1087   = wceq 1537  ⊤wtru 1538  ∃wex 1777   ∈ wcel 2108  {cab 2717  ∀wral 3067  Vcvv 3488   ⊆ wss 3976  ∪ cuni 4931   ↾ cres 5702   ∘ ccom 5704  Predcpred 6331   Fn wfn 6568  ‘cfv 6573  (class class class)co 7448  2^nd c2nd 8029  frecscfrecs 8321  wrecscwrecs 8352

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-sep 5317  ax-nul 5324  ax-pr 5447  ax-un 7770

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-rab 3444  df-v 3490  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-fo 6579  df-fv 6581  df-ov 7451  df-2nd 8031  df-frecs 8322  df-wrecs 8353

This theorem is referenced by:  wrecseq123OLD  8356  nfwrecsOLD  8358  wfrrelOLD  8370  wfrdmssOLD  8371  wfrdmclOLD  8373  wfrfunOLD  8375  wfrlem12OLD  8376  wfrlem16OLD  8380  wfrlem17OLD  8381  dfrecs3OLD  8429