Theorem wfrlem1 8032

Description: Lemma for well-ordered 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 Scott Fenton, 21-Apr-2011.)

Hypothesis

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

Assertion

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

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

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

Proof of Theorem wfrlem1

Step	Hyp	Ref	Expression
1		wfrlem1.1	. 2 ⊢ 𝐵 = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
2		fneq1 6448	. . . . . 6 ⊢ (𝑓 = 𝑔 → (𝑓 Fn 𝑥 ↔ 𝑔 Fn 𝑥))
3		fveq1 6694	. . . . . . . 8 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑦) = (𝑔‘𝑦))
4		reseq1 5830	. . . . . . . . 9 ⊢ (𝑓 = 𝑔 → (𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))
5	4	fveq2d 6699	. . . . . . . 8 ⊢ (𝑓 = 𝑔 → (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))
6	3, 5	eqeq12d 2752	. . . . . . 7 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
7	6	ralbidv 3108	. . . . . 6 ⊢ (𝑓 = 𝑔 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
8	2, 7	3anbi13d 1440	. . . . 5 ⊢ (𝑓 = 𝑔 → ((𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))))
9	8	exbidv 1929	. . . 4 ⊢ (𝑓 = 𝑔 → (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑥(𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))))))
10		fneq2 6449	. . . . . 6 ⊢ (𝑥 = 𝑧 → (𝑔 Fn 𝑥 ↔ 𝑔 Fn 𝑧))
11		sseq1 3912	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (𝑥 ⊆ 𝐴 ↔ 𝑧 ⊆ 𝐴))
12		sseq2 3913	. . . . . . . . 9 ⊢ (𝑥 = 𝑧 → (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧))
13	12	raleqbi1dv 3307	. . . . . . . 8 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ ∀𝑦 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧))
14		predeq3 6144	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → Pred(𝑅, 𝐴, 𝑦) = Pred(𝑅, 𝐴, 𝑤))
15	14	sseq1d 3918	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧 ↔ Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧))
16	15	cbvralvw 3348	. . . . . . . 8 ⊢ (∀𝑦 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑧 ↔ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)
17	13, 16	bitrdi 290	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥 ↔ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧))
18	11, 17	anbi12d 634	. . . . . 6 ⊢ (𝑥 = 𝑧 → ((𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ↔ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))
19		raleq 3309	. . . . . . 7 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))))
20		fveq2 6695	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (𝑔‘𝑦) = (𝑔‘𝑤))
21	14	reseq2d 5836	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → (𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))
22	21	fveq2d 6699	. . . . . . . . 9 ⊢ (𝑦 = 𝑤 → (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))
23	20, 22	eqeq12d 2752	. . . . . . . 8 ⊢ (𝑦 = 𝑤 → ((𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
24	23	cbvralvw 3348	. . . . . . 7 ⊢ (∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))
25	19, 24	bitrdi 290	. . . . . 6 ⊢ (𝑥 = 𝑧 → (∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦))) ↔ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
26	10, 18, 25	3anbi123d 1438	. . . . 5 ⊢ (𝑥 = 𝑧 → ((𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))))
27	26	cbvexvw 2047	. . . 4 ⊢ (∃𝑥(𝑔 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
28	9, 27	bitrdi 290	. . 3 ⊢ (𝑓 = 𝑔 → (∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦)))) ↔ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))))
29	28	cbvabv 2804	. 2 ⊢ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐹‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} = {𝑔 ∣ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))}
30	1, 29	eqtri 2759	1 ⊢ 𝐵 = {𝑔 ∣ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐹‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤))))}

Syntax hints:   ∧ wa 399   ∧ w3a 1089   = wceq 1543  ∃wex 1787  {cab 2714  ∀wral 3051   ⊆ wss 3853   ↾ cres 5538  Predcpred 6139   Fn wfn 6353  ‘cfv 6358

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2018  ax-8 2114  ax-9 2122  ax-ext 2708

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-sb 2073  df-clab 2715  df-cleq 2728  df-clel 2809  df-ral 3056  df-rab 3060  df-v 3400  df-dif 3856  df-un 3858  df-in 3860  df-ss 3870  df-nul 4224  df-if 4426  df-sn 4528  df-pr 4530  df-op 4534  df-uni 4806  df-br 5040  df-opab 5102  df-xp 5542  df-rel 5543  df-cnv 5544  df-co 5545  df-dm 5546  df-rn 5547  df-res 5548  df-ima 5549  df-pred 6140  df-iota 6316  df-fun 6360  df-fn 6361  df-fv 6366

This theorem is referenced by:  wfrlem2  8033  wfrlem3  8034  wfrlem3a  8035  wfrlem4  8036  wfrdmcl  8041