Theorem frrlem1 8227

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 6577	. . . . . 6 ⊢ (𝑓 = 𝑔 → (𝑓 Fn 𝑥 ↔ 𝑔 Fn 𝑥))
3		fveq1 6827	. . . . . . . 8 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑦) = (𝑔‘𝑦))
4		reseq1 5926	. . . . . . . . 9 ⊢ (𝑓 = 𝑔 → (𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))
5	4	oveq2d 7373	. . . . . . . 8 ⊢ (𝑓 = 𝑔 → (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))
6	3, 5	eqeq12d 2755	. . . . . . 7 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
7	6	ralbidv 3162	. . . . . 6 ⊢ (𝑓 = 𝑔 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
8	2, 7	3anbi13d 1446	. . . . 5 ⊢ (𝑓 = 𝑔 → ((𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))))
9	8	exbidv 1928	. . . 4 ⊢ (𝑓 = 𝑔 → (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑥(𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))))
10		fneq2 6578	. . . . . 6 ⊢ (𝑥 = 𝑧 → (𝑔 Fn 𝑥 ↔ 𝑔 Fn 𝑧))
11		sseq1 3940	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (𝑥 ⊆ 𝐴 ↔ 𝑧 ⊆ 𝐴))
12		sseq2 3941	. . . . . . . . 9 ⊢ (𝑥 = 𝑧 → (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧))
13	12	raleqbi1dv 3307	. . . . . . . 8 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ ∀𝑦 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧))
14		predeq3 6257	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → Pred(𝑅, 𝐴, 𝑦) = Pred(𝑅, 𝐴, 𝑤))
15	14	sseq1d 3946	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧 ↔ Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧))
16	15	cbvralvw 3217	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧 ↔ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)
17	13, 16	bitrdi 288	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧))
18	11, 17	anbi12d 638	. . . . . 6 ⊢ (𝑥 = 𝑧 → ((𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ↔ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))
19		raleq 3294	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
20		fveq2 6828	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (𝑔‘𝑦) = (𝑔‘𝑤))
21		id 22	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → 𝑦 = 𝑤)
22	14	reseq2d 5932	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → (𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))
23	21, 22	oveq12d 7375	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))
24	20, 23	eqeq12d 2755	. . . . . . . 8 ⊢ (𝑦 = 𝑤 → ((𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
25	24	cbvralvw 3217	. . . . . . 7 ⊢ (∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))
26	19, 25	bitrdi 288	. . . . . 6 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
27	10, 18, 26	3anbi123d 1444	. . . . 5 ⊢ (𝑥 = 𝑧 → ((𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))))
28	27	cbvexvw 2044	. . . 4 ⊢ (∃𝑥(𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝑦𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
29	9, 28	bitrdi 288	. . 3 ⊢ (𝑓 = 𝑔 → (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))))
30	29	cbvabv 2809	. 2 ⊢ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝑦𝐺(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} = {𝑔 ∣ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))}
31	1, 30	eqtri 2762	1 ⊢ 𝐵 = {𝑔 ∣ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝑤𝐺(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))}

Syntax hints:   ∧ wa 396   ∧ w3a 1092   = wceq 1547  ∃wex 1786  {cab 2717  ∀wral 3053   ⊆ wss 3883   ↾ cres 5621  Predcpred 6252   Fn wfn 6481  ‘cfv 6486  (class class class)co 7357

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-ext 2711

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-sb 2074  df-clab 2718  df-cleq 2731  df-clel 2814  df-ral 3054  df-rex 3064  df-rab 3392  df-v 3433  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-sn 4557  df-pr 4559  df-op 4563  df-uni 4840  df-br 5074  df-opab 5136  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6253  df-iota 6442  df-fun 6488  df-fn 6489  df-fv 6494  df-ov 7360

This theorem is referenced by:  frrlem2  8228  frrlem3  8229  frrlem4  8230  frrlem8  8234  frrlem12  8238  frrlem13  8239  fpr1  8244  fprresex  8251  frr1  9675  frr2  9676