Theorem frrlem1 8216

Description: Lemma for well-founded recursion. The final item we are interested in is the union of acceptable functions 𝐵. This lemma just changes bound variables for later use. (Contributed by Paul Chapman, 21-Apr-2012.)

Hypothesis

Ref	Expression
frrlem1.1	⊢ 𝐵 = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}

Assertion

Ref	Expression
frrlem1	⊢ 𝐵 = {𝑔 ∣ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))}

Distinct variable groups:   𝐴,𝑓,𝑔,𝑤,𝑥,𝑦,𝑧   𝑓,𝐺,𝑔,𝑤,𝑥,𝑦,𝑧   𝑅,𝑓,𝑔,𝑤,𝑥,𝑦,𝑧

Allowed substitution hints:   𝐵(𝑥,𝑦,𝑧,𝑤,𝑓,𝑔)

Proof of Theorem frrlem1

Step	Hyp	Ref	Expression
1		frrlem1.1	. 2 ⊢ 𝐵 = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
2		fneq1 6572	. . . . . 6 ⊢ (𝑓 = 𝑔 → (𝑓 Fn 𝑥 ↔ 𝑔 Fn 𝑥))
3		fveq1 6821	. . . . . . . 8 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑦) = (𝑔‘𝑦))
4		reseq1 5921	. . . . . . . . 9 ⊢ (𝑓 = 𝑔 → (𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))
5	4	oveq2d 7362	. . . . . . . 8 ⊢ (𝑓 = 𝑔 → (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))
6	3, 5	eqeq12d 2747	. . . . . . 7 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
7	6	ralbidv 3155	. . . . . 6 ⊢ (𝑓 = 𝑔 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
8	2, 7	3anbi13d 1440	. . . . 5 ⊢ (𝑓 = 𝑔 → ((𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))))
9	8	exbidv 1922	. . . 4 ⊢ (𝑓 = 𝑔 → (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑥(𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))))
10		fneq2 6573	. . . . . 6 ⊢ (𝑥 = 𝑧 → (𝑔 Fn 𝑥 ↔ 𝑔 Fn 𝑧))
11		sseq1 3955	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (𝑥 ⊆ 𝐴 ↔ 𝑧 ⊆ 𝐴))
12		sseq2 3956	. . . . . . . . 9 ⊢ (𝑥 = 𝑧 → (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧))
13	12	raleqbi1dv 3304	. . . . . . . 8 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ ∀𝑦 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧))
14		predeq3 6252	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → Pred(𝑅, 𝐴, 𝑦) = Pred(𝑅, 𝐴, 𝑤))
15	14	sseq1d 3961	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧 ↔ Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧))
16	15	cbvralvw 3210	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧 ↔ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)
17	13, 16	bitrdi 287	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧))
18	11, 17	anbi12d 632	. . . . . 6 ⊢ (𝑥 = 𝑧 → ((𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ↔ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))
19		raleq 3289	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
20		fveq2 6822	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (𝑔‘𝑦) = (𝑔‘𝑤))
21		id 22	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → 𝑦 = 𝑤)
22	14	reseq2d 5927	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → (𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))
23	21, 22	oveq12d 7364	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))
24	20, 23	eqeq12d 2747	. . . . . . . 8 ⊢ (𝑦 = 𝑤 → ((𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
25	24	cbvralvw 3210	. . . . . . 7 ⊢ (∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))
26	19, 25	bitrdi 287	. . . . . 6 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
27	10, 18, 26	3anbi123d 1438	. . . . 5 ⊢ (𝑥 = 𝑧 → ((𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))))
28	27	cbvexvw 2038	. . . 4 ⊢ (∃𝑥(𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
29	9, 28	bitrdi 287	. . 3 ⊢ (𝑓 = 𝑔 → (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))))
30	29	cbvabv 2801	. 2 ⊢ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} = {𝑔 ∣ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))}
31	1, 30	eqtri 2754	1 ⊢ 𝐵 = {𝑔 ∣ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))}

Syntax hints:   ∧ wa 395   ∧ w3a 1086   = wceq 1541  ∃wex 1780  {cab 2709  ∀wral 3047   ⊆ wss 3897   ↾ cres 5616  Predcpred 6247   Fn wfn 6476  ‘cfv 6481  (class class class)co 7346

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-ext 2703

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2710  df-cleq 2723  df-clel 2806  df-ral 3048  df-rex 3057  df-rab 3396  df-v 3438  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-nul 4281  df-if 4473  df-sn 4574  df-pr 4576  df-op 4580  df-uni 4857  df-br 5090  df-opab 5152  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6248  df-iota 6437  df-fun 6483  df-fn 6484  df-fv 6489  df-ov 7349

This theorem is referenced by:  frrlem2  8217  frrlem3  8218  frrlem4  8219  frrlem8  8223  frrlem12  8227  frrlem13  8228  fpr1  8233  fprresex  8240  frr1  9652  frr2  9653