Theorem tfrcllembxssdm 6587

Description: Lemma for tfrcl 6595. The union of 𝐵 is defined on all elements of 𝑋. (Contributed by Jim Kingdon, 25-Mar-2022.)

Hypotheses

Ref	Expression
tfrcl.f	⊢ 𝐹 = recs(𝐺)
tfrcl.g	⊢ (𝜑 → Fun 𝐺)
tfrcl.x	⊢ (𝜑 → Ord 𝑋)
tfrcl.ex	⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋 ∧ 𝑓:𝑥⟶𝑆) → (𝐺‘𝑓) ∈ 𝑆)
tfrcllemsucfn.1	⊢ 𝐴 = {𝑓 ∣ ∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)))}
tfrcllembacc.3	⊢ 𝐵 = {ℎ ∣ ∃𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))}
tfrcllembacc.u	⊢ ((𝜑 ∧ 𝑥 ∈ ∪ 𝑋) → suc 𝑥 ∈ 𝑋)
tfrcllembacc.4	⊢ (𝜑 → 𝐷 ∈ 𝑋)
tfrcllembacc.5	⊢ (𝜑 → ∀𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ 𝑤))))

Assertion

Ref	Expression
tfrcllembxssdm	⊢ (𝜑 → 𝐷 ⊆ dom ∪ 𝐵)

Distinct variable groups:   𝐴,𝑓,𝑔,ℎ,𝑥,𝑦,𝑧   𝐷,𝑓,𝑔,𝑥,𝑦   𝑓,𝐺,𝑥,𝑦   𝑆,𝑓,𝑥,𝑦   𝑓,𝑋,𝑥   𝜑,𝑓,𝑔,ℎ,𝑥,𝑦,𝑧   𝐵,𝑔,ℎ,𝑧   𝑤,𝐵,𝑔,𝑧   𝐷,ℎ,𝑧   ℎ,𝐺,𝑧   𝑤,𝐺,𝑦   𝑆,ℎ,𝑧   𝑧,𝑋

Allowed substitution hints:   𝜑(𝑤)   𝐴(𝑤)   𝐵(𝑥,𝑦,𝑓)   𝐷(𝑤)   𝑆(𝑤,𝑔)   𝐹(𝑥,𝑦,𝑧,𝑤,𝑓,𝑔,ℎ)   𝐺(𝑔)   𝑋(𝑦,𝑤,𝑔,ℎ)

Proof of Theorem tfrcllembxssdm

Step	Hyp	Ref	Expression
1		tfrcllembacc.5	. . . 4 ⊢ (𝜑 → ∀𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ 𝑤))))
2		fveq2 5670	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (𝑔‘𝑤) = (𝑔‘𝑦))
3		reseq2 5033	. . . . . . . . . 10 ⊢ (𝑤 = 𝑦 → (𝑔 ↾ 𝑤) = (𝑔 ↾ 𝑦))
4	3	fveq2d 5674	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (𝐺‘(𝑔 ↾ 𝑤)) = (𝐺‘(𝑔 ↾ 𝑦)))
5	2, 4	eqeq12d 2247	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → ((𝑔‘𝑤) = (𝐺‘(𝑔 ↾ 𝑤)) ↔ (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
6	5	cbvralv 2778	. . . . . . 7 ⊢ (∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ 𝑤)) ↔ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
7	6	anbi2i 457	. . . . . 6 ⊢ ((𝑔:𝑧⟶𝑆 ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ 𝑤))) ↔ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
8	7	exbii 1654	. . . . 5 ⊢ (∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ 𝑤))) ↔ ∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
9	8	ralbii 2548	. . . 4 ⊢ (∀𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑤 ∈ 𝑧 (𝑔‘𝑤) = (𝐺‘(𝑔 ↾ 𝑤))) ↔ ∀𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
10	1, 9	sylib 122	. . 3 ⊢ (𝜑 → ∀𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
11		simp1 1024	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → 𝜑)
12		simp2 1025	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → 𝑧 ∈ 𝐷)
13		tfrcllembacc.4	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ 𝑋)
14	11, 13	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → 𝐷 ∈ 𝑋)
15		tfrcl.x	. . . . . . . . . . 11 ⊢ (𝜑 → Ord 𝑋)
16		ordtr1 4509	. . . . . . . . . . 11 ⊢ (Ord 𝑋 → ((𝑧 ∈ 𝐷 ∧ 𝐷 ∈ 𝑋) → 𝑧 ∈ 𝑋))
17	15, 16	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑧 ∈ 𝐷 ∧ 𝐷 ∈ 𝑋) → 𝑧 ∈ 𝑋))
18	17	imp 124	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑧 ∈ 𝐷 ∧ 𝐷 ∈ 𝑋)) → 𝑧 ∈ 𝑋)
19	11, 12, 14, 18	syl12anc 1272	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → 𝑧 ∈ 𝑋)
20		simp3l 1052	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → 𝑔:𝑧⟶𝑆)
21		feq2 5492	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑧 → (𝑓:𝑥⟶𝑆 ↔ 𝑓:𝑧⟶𝑆))
22	21	imbi1d 231	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → ((𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
23	22	albidv 1873	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → (∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆)))
24		tfrcl.ex	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋 ∧ 𝑓:𝑥⟶𝑆) → (𝐺‘𝑓) ∈ 𝑆)
25	24	3expia 1232	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → (𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
26	25	alrimiv 1923	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
27	26	ralrimiva 2615	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑥 ∈ 𝑋 ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
28	27	adantr 276	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑋) → ∀𝑥 ∈ 𝑋 ∀𝑓(𝑓:𝑥⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
29		simpr 110	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑋) → 𝑧 ∈ 𝑋)
30	23, 28, 29	rspcdva 2926	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑋) → ∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆))
31		feq1 5491	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → (𝑓:𝑧⟶𝑆 ↔ 𝑔:𝑧⟶𝑆))
32		fveq2 5670	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → (𝐺‘𝑓) = (𝐺‘𝑔))
33	32	eleq1d 2301	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → ((𝐺‘𝑓) ∈ 𝑆 ↔ (𝐺‘𝑔) ∈ 𝑆))
34	31, 33	imbi12d 234	. . . . . . . . . . 11 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) ↔ (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆)))
35	34	spv 1909	. . . . . . . . . 10 ⊢ (∀𝑓(𝑓:𝑧⟶𝑆 → (𝐺‘𝑓) ∈ 𝑆) → (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆))
36	30, 35	syl 14	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑋) → (𝑔:𝑧⟶𝑆 → (𝐺‘𝑔) ∈ 𝑆))
37	36	imp 124	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑋) ∧ 𝑔:𝑧⟶𝑆) → (𝐺‘𝑔) ∈ 𝑆)
38	11, 19, 20, 37	syl21anc 1273	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → (𝐺‘𝑔) ∈ 𝑆)
39		vex 2816	. . . . . . . . . 10 ⊢ 𝑧 ∈ V
40		opexg 4344	. . . . . . . . . 10 ⊢ ((𝑧 ∈ V ∧ (𝐺‘𝑔) ∈ 𝑆) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
41	39, 38, 40	sylancr 414	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ V)
42		snidg 3718	. . . . . . . . 9 ⊢ (⟨𝑧, (𝐺‘𝑔)⟩ ∈ V → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ {⟨𝑧, (𝐺‘𝑔)⟩})
43		elun2 3387	. . . . . . . . 9 ⊢ (⟨𝑧, (𝐺‘𝑔)⟩ ∈ {⟨𝑧, (𝐺‘𝑔)⟩} → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))
44	41, 42, 43	3syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))
45		simp3r 1053	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))
46		rspe 2591	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝑋 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ∃𝑧 ∈ 𝑋 (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
47	19, 20, 45, 46	syl12anc 1272	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ∃𝑧 ∈ 𝑋 (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
48		feq2 5492	. . . . . . . . . . . . . 14 ⊢ (𝑧 = 𝑥 → (𝑔:𝑧⟶𝑆 ↔ 𝑔:𝑥⟶𝑆))
49		raleq 2741	. . . . . . . . . . . . . 14 ⊢ (𝑧 = 𝑥 → (∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
50	48, 49	anbi12d 473	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑥 → ((𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))) ↔ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
51	50	cbvrexv 2779	. . . . . . . . . . . 12 ⊢ (∃𝑧 ∈ 𝑋 (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
52	47, 51	sylib 122	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
53		vex 2816	. . . . . . . . . . . 12 ⊢ 𝑔 ∈ V
54		feq1 5491	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑔 → (𝑓:𝑥⟶𝑆 ↔ 𝑔:𝑥⟶𝑆))
55		fveq1 5669	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑔 → (𝑓‘𝑦) = (𝑔‘𝑦))
56		reseq1 5032	. . . . . . . . . . . . . . . . 17 ⊢ (𝑓 = 𝑔 → (𝑓 ↾ 𝑦) = (𝑔 ↾ 𝑦))
57	56	fveq2d 5674	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑔 → (𝐺‘(𝑓 ↾ 𝑦)) = (𝐺‘(𝑔 ↾ 𝑦)))
58	55, 57	eqeq12d 2247	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑔 → ((𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
59	58	ralbidv 2542	. . . . . . . . . . . . . 14 ⊢ (𝑓 = 𝑔 → (∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)) ↔ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
60	54, 59	anbi12d 473	. . . . . . . . . . . . 13 ⊢ (𝑓 = 𝑔 → ((𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
61	60	rexbidv 2543	. . . . . . . . . . . 12 ⊢ (𝑓 = 𝑔 → (∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦))) ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))))
62		tfrcllemsucfn.1	. . . . . . . . . . . 12 ⊢ 𝐴 = {𝑓 ∣ ∃𝑥 ∈ 𝑋 (𝑓:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) = (𝐺‘(𝑓 ↾ 𝑦)))}
63	53, 61, 62	elab2 2965	. . . . . . . . . . 11 ⊢ (𝑔 ∈ 𝐴 ↔ ∃𝑥 ∈ 𝑋 (𝑔:𝑥⟶𝑆 ∧ ∀𝑦 ∈ 𝑥 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))))
64	52, 63	sylibr 134	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → 𝑔 ∈ 𝐴)
65	12, 20, 64	3jca 1204	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → (𝑧 ∈ 𝐷 ∧ 𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴))
66		snexg 4297	. . . . . . . . . . 11 ⊢ (⟨𝑧, (𝐺‘𝑔)⟩ ∈ V → {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V)
67		unexg 4564	. . . . . . . . . . . 12 ⊢ ((𝑔 ∈ V ∧ {⟨𝑧, (𝐺‘𝑔)⟩} ∈ V) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
68	53, 67	mpan 424	. . . . . . . . . . 11 ⊢ ({⟨𝑧, (𝐺‘𝑔)⟩} ∈ V → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
69	41, 66, 68	3syl 17	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V)
70		isset 2820	. . . . . . . . . 10 ⊢ ((𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ V ↔ ∃ℎ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))
71	69, 70	sylib 122	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ∃ℎ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))
72		simpr3 1032	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))) → ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))
73		19.8a 1639	. . . . . . . . . . . . . 14 ⊢ ((𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})) → ∃𝑔(𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})))
74		rspe 2591	. . . . . . . . . . . . . . 15 ⊢ ((𝑧 ∈ 𝐷 ∧ ∃𝑔(𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))) → ∃𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})))
75		tfrcllembacc.3	. . . . . . . . . . . . . . . 16 ⊢ 𝐵 = {ℎ ∣ ∃𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))}
76	75	abeq2i 2343	. . . . . . . . . . . . . . 15 ⊢ (ℎ ∈ 𝐵 ↔ ∃𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩})))
77	74, 76	sylibr 134	. . . . . . . . . . . . . 14 ⊢ ((𝑧 ∈ 𝐷 ∧ ∃𝑔(𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))) → ℎ ∈ 𝐵)
78	73, 77	sylan2 286	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))) → ℎ ∈ 𝐵)
79	72, 78	eqeltrrd 2310	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴 ∧ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}))) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐵)
80	79	3exp2 1252	. . . . . . . . . . 11 ⊢ (𝑧 ∈ 𝐷 → (𝑔:𝑧⟶𝑆 → (𝑔 ∈ 𝐴 → (ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐵))))
81	80	3imp 1220	. . . . . . . . . 10 ⊢ ((𝑧 ∈ 𝐷 ∧ 𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴) → (ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐵))
82	81	exlimdv 1868	. . . . . . . . 9 ⊢ ((𝑧 ∈ 𝐷 ∧ 𝑔:𝑧⟶𝑆 ∧ 𝑔 ∈ 𝐴) → (∃ℎ ℎ = (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐵))
83	65, 71, 82	sylc 62	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐵)
84		elunii 3919	. . . . . . . 8 ⊢ ((⟨𝑧, (𝐺‘𝑔)⟩ ∈ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∧ (𝑔 ∪ {⟨𝑧, (𝐺‘𝑔)⟩}) ∈ 𝐵) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ ∪ 𝐵)
85	44, 83, 84	syl2anc 411	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → ⟨𝑧, (𝐺‘𝑔)⟩ ∈ ∪ 𝐵)
86		opeq2 3884	. . . . . . . . . 10 ⊢ (𝑤 = (𝐺‘𝑔) → ⟨𝑧, 𝑤⟩ = ⟨𝑧, (𝐺‘𝑔)⟩)
87	86	eleq1d 2301	. . . . . . . . 9 ⊢ (𝑤 = (𝐺‘𝑔) → (⟨𝑧, 𝑤⟩ ∈ ∪ 𝐵 ↔ ⟨𝑧, (𝐺‘𝑔)⟩ ∈ ∪ 𝐵))
88	87	spcegv 2905	. . . . . . . 8 ⊢ ((𝐺‘𝑔) ∈ 𝑆 → (⟨𝑧, (𝐺‘𝑔)⟩ ∈ ∪ 𝐵 → ∃𝑤⟨𝑧, 𝑤⟩ ∈ ∪ 𝐵))
89	39	eldm2 4954	. . . . . . . 8 ⊢ (𝑧 ∈ dom ∪ 𝐵 ↔ ∃𝑤⟨𝑧, 𝑤⟩ ∈ ∪ 𝐵)
90	88, 89	imbitrrdi 162	. . . . . . 7 ⊢ ((𝐺‘𝑔) ∈ 𝑆 → (⟨𝑧, (𝐺‘𝑔)⟩ ∈ ∪ 𝐵 → 𝑧 ∈ dom ∪ 𝐵))
91	38, 85, 90	sylc 62	. . . . . 6 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷 ∧ (𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦)))) → 𝑧 ∈ dom ∪ 𝐵)
92	91	3expia 1232	. . . . 5 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷) → ((𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))) → 𝑧 ∈ dom ∪ 𝐵))
93	92	exlimdv 1868	. . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝐷) → (∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))) → 𝑧 ∈ dom ∪ 𝐵))
94	93	ralimdva 2609	. . 3 ⊢ (𝜑 → (∀𝑧 ∈ 𝐷 ∃𝑔(𝑔:𝑧⟶𝑆 ∧ ∀𝑦 ∈ 𝑧 (𝑔‘𝑦) = (𝐺‘(𝑔 ↾ 𝑦))) → ∀𝑧 ∈ 𝐷 𝑧 ∈ dom ∪ 𝐵))
95	10, 94	mpd 13	. 2 ⊢ (𝜑 → ∀𝑧 ∈ 𝐷 𝑧 ∈ dom ∪ 𝐵)
96		dfss3 3227	. 2 ⊢ (𝐷 ⊆ dom ∪ 𝐵 ↔ ∀𝑧 ∈ 𝐷 𝑧 ∈ dom ∪ 𝐵)
97	95, 96	sylibr 134	1 ⊢ (𝜑 → 𝐷 ⊆ dom ∪ 𝐵)

Syntax hints:   → wi 4   ∧ wa 104   ∧ w3a 1005  ∀wal 1396   = wceq 1398  ∃wex 1541   ∈ wcel 2203  {cab 2218  ∀wral 2520  ∃wrex 2521  Vcvv 2813   ∪ cun 3209   ⊆ wss 3211  {csn 3689  ⟨cop 3692  ∪ cuni 3914  Ord word 4483  suc csuc 4486  dom cdm 4749   ↾ cres 4751  Fun wfun 5346  ⟶wf 5348  ‘cfv 5352  recscrecs 6535

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-sep 4228  ax-pow 4287  ax-pr 4322  ax-un 4554

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-nf 1510  df-sb 1812  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ral 2525  df-rex 2526  df-v 2815  df-un 3215  df-in 3217  df-ss 3224  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-br 4110  df-opab 4172  df-tr 4209  df-iord 4487  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-fv 5360

This theorem is referenced by:  tfrcllembfn  6588