Theorem wfrlem17OLD 8339

Description: Obsolete version as of 18-Nov-2024. Without using ax-rep 5249, show that all restrictions of wrecs are sets. (New usage is discouraged.) (Proof modification is discouraged.) (Contributed by Scott Fenton, 31-Jul-2020.)

Hypotheses

Ref	Expression
wfrlem17OLD.1	⊢ 𝑅 We 𝐴
wfrlem17OLD.2	⊢ 𝑅 Se 𝐴
wfrlem17OLD.3	⊢ 𝐹 = wrecs(𝑅, 𝐴, 𝐺)

Assertion

Ref	Expression
wfrlem17OLD	⊢ (𝑋 ∈ dom 𝐹 → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V)

Proof of Theorem wfrlem17OLD

Dummy variables 𝑓 𝑔 𝑥 𝑦 𝑧 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		wfrlem17OLD.1	. . . . 5 ⊢ 𝑅 We 𝐴
2		wfrlem17OLD.2	. . . . 5 ⊢ 𝑅 Se 𝐴
3		wfrlem17OLD.3	. . . . 5 ⊢ 𝐹 = wrecs(𝑅, 𝐴, 𝐺)
4	1, 2, 3	wfrfunOLD 8333	. . . 4 ⊢ Fun 𝐹
5		funfvop 7040	. . . 4 ⊢ ((Fun 𝐹 ∧ 𝑋 ∈ dom 𝐹) → ⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝐹)
6	4, 5	mpan 690	. . 3 ⊢ (𝑋 ∈ dom 𝐹 → ⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝐹)
7		dfwrecsOLD 8312	. . . . . 6 ⊢ wrecs(𝑅, 𝐴, 𝐺) = ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
8	3, 7	eqtri 2758	. . . . 5 ⊢ 𝐹 = ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
9	8	eleq2i 2826	. . . 4 ⊢ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝐹 ↔ ⟨𝑋, (𝐹‘𝑋)⟩ ∈ ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})
10		eluni 4886	. . . 4 ⊢ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} ↔ ∃𝑔(⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}))
11	9, 10	bitri 275	. . 3 ⊢ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝐹 ↔ ∃𝑔(⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}))
12	6, 11	sylib 218	. 2 ⊢ (𝑋 ∈ dom 𝐹 → ∃𝑔(⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}))
13		simprr 772	. . . 4 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})) → 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})
14		eqid 2735	. . . . 5 ⊢ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} = {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}
15		vex 3463	. . . . 5 ⊢ 𝑔 ∈ V
16	14, 15	wfrlem3OLDa 8325	. . . 4 ⊢ (𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} ↔ ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
17	13, 16	sylib 218	. . 3 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})) → ∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))))
18		3simpa 1148	. . . . 5 ⊢ ((𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))) → (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))
19		simprlr 779	. . . . . . . . 9 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})
20		elssuni 4913	. . . . . . . . . 10 ⊢ (𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} → 𝑔 ⊆ ∪ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})
21	20, 8	sseqtrrdi 4000	. . . . . . . . 9 ⊢ (𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))} → 𝑔 ⊆ 𝐹)
22	19, 21	syl 17	. . . . . . . 8 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → 𝑔 ⊆ 𝐹)
23		predeq3 6294	. . . . . . . . . . 11 ⊢ (𝑤 = 𝑋 → Pred(𝑅, 𝐴, 𝑤) = Pred(𝑅, 𝐴, 𝑋))
24	23	sseq1d 3990	. . . . . . . . . 10 ⊢ (𝑤 = 𝑋 → (Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧 ↔ Pred(𝑅, 𝐴, 𝑋) ⊆ 𝑧))
25		simprrr 781	. . . . . . . . . . 11 ⊢ (((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧))) → ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)
26	25	adantl 481	. . . . . . . . . 10 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)
27		simprll 778	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → ⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔)
28		df-br 5120	. . . . . . . . . . . . 13 ⊢ (𝑋𝑔(𝐹‘𝑋) ↔ ⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔)
29	27, 28	sylibr 234	. . . . . . . . . . . 12 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → 𝑋𝑔(𝐹‘𝑋))
30		fvex 6889	. . . . . . . . . . . . 13 ⊢ (𝐹‘𝑋) ∈ V
31		breldmg 5889	. . . . . . . . . . . . 13 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (𝐹‘𝑋) ∈ V ∧ 𝑋𝑔(𝐹‘𝑋)) → 𝑋 ∈ dom 𝑔)
32	30, 31	mp3an2 1451	. . . . . . . . . . . 12 ⊢ ((𝑋 ∈ dom 𝐹 ∧ 𝑋𝑔(𝐹‘𝑋)) → 𝑋 ∈ dom 𝑔)
33	29, 32	syldan 591	. . . . . . . . . . 11 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → 𝑋 ∈ dom 𝑔)
34		simprrl 780	. . . . . . . . . . . 12 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → 𝑔 Fn 𝑧)
35	34	fndmd 6643	. . . . . . . . . . 11 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → dom 𝑔 = 𝑧)
36	33, 35	eleqtrd 2836	. . . . . . . . . 10 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → 𝑋 ∈ 𝑧)
37	24, 26, 36	rspcdva 3602	. . . . . . . . 9 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → Pred(𝑅, 𝐴, 𝑋) ⊆ 𝑧)
38	37, 35	sseqtrrd 3996	. . . . . . . 8 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → Pred(𝑅, 𝐴, 𝑋) ⊆ dom 𝑔)
39		fun2ssres 6581	. . . . . . . 8 ⊢ ((Fun 𝐹 ∧ 𝑔 ⊆ 𝐹 ∧ Pred(𝑅, 𝐴, 𝑋) ⊆ dom 𝑔) → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑋)))
40	4, 22, 38, 39	mp3an2i 1468	. . . . . . 7 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) = (𝑔 ↾ Pred(𝑅, 𝐴, 𝑋)))
41	15	resex 6016	. . . . . . 7 ⊢ (𝑔 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V
42	40, 41	eqeltrdi 2842	. . . . . 6 ⊢ ((𝑋 ∈ dom 𝐹 ∧ ((⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))}) ∧ (𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)))) → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V)
43	42	expr 456	. . . . 5 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})) → ((𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧)) → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V))
44	18, 43	syl5 34	. . . 4 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})) → ((𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))) → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V))
45	44	exlimdv 1933	. . 3 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})) → (∃𝑧(𝑔 Fn 𝑧 ∧ (𝑧 ⊆ 𝐴 ∧ ∀𝑤 ∈ 𝑧 Pred(𝑅, 𝐴, 𝑤) ⊆ 𝑧) ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ Pred(𝑅, 𝐴, 𝑤)))) → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V))
46	17, 45	mpd 15	. 2 ⊢ ((𝑋 ∈ dom 𝐹 ∧ (⟨𝑋, (𝐹‘𝑋)⟩ ∈ 𝑔 ∧ 𝑔 ∈ {𝑓 ∣ ∃𝑥(𝑓 Fn 𝑥 ∧ (𝑥 ⊆ 𝐴 ∧ ∀𝑦 ∈ 𝑥 Pred(𝑅, 𝐴, 𝑦) ⊆ 𝑥) ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ Pred(𝑅, 𝐴, 𝑦))))})) → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V)
47	12, 46	exlimddv 1935	1 ⊢ (𝑋 ∈ dom 𝐹 → (𝐹 ↾ Pred(𝑅, 𝐴, 𝑋)) ∈ V)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540  ∃wex 1779   ∈ wcel 2108  {cab 2713  ∀wral 3051  Vcvv 3459   ⊆ wss 3926  ⟨cop 4607  ∪ cuni 4883   class class class wbr 5119   Se wse 5604   We wwe 5605  dom cdm 5654   ↾ cres 5656  Predcpred 6289  Fun wfun 6525   Fn wfn 6526  ‘cfv 6531  wrecscwrecs 8310

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-sep 5266  ax-nul 5276  ax-pr 5402  ax-un 7729

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-id 5548  df-po 5561  df-so 5562  df-fr 5606  df-se 5607  df-we 5608  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6290  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-fo 6537  df-fv 6539  df-ov 7408  df-2nd 7989  df-frecs 8280  df-wrecs 8311

This theorem is referenced by: (None)